Changeset 3314 for trunk/Padre/t/00-compile.t

Timestamp:

03/13/09 03:40:16 (3 years ago)

Author:

szabgab

Message:

Require Test::More for the testing and bail on failure in the compilation tests
change the order of the STDIN/STDERR tests to see the more important one in case of a bail out

File:

• trunk/Padre/t/00-compile.t (modified) (3 diffs)

trunk/Padre/t/00-compile.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More;
+use Test::Most;
 BEGIN {
     if (not $ENV{DISPLAY} and not $^O eq 'MSWin32') {
@@ -10 +10 @@
 
 #use Test::NeedsDisplay ':skip_all';
+bail_on_fail;
 
 use File::Find::Rule;
@@ -26 +27 @@
         $module =~ s/\.pm$//;
         system "$^X -e \"require $module; print 'ok';\" > $out 2>$err";
+        my $err_data = slurp($err);
+        is($err_data, '', "STDERR of $file");
+
         my $out_data = slurp($out);
         is($out_data, 'ok', "STDOUT of $file");
-
-        my $err_data = slurp($err);
-        is($err_data, '', "STDERR of $file");
 }