Changeset 3314

Timestamp:

03/13/09 03:40:16 (18 months 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

Location:

trunk/Padre

Files:

• Changes (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• t/00-compile.t (modified) (3 diffs)

trunk/Padre/Changes

@@ -7 +7 @@
     Eliminate a test failure on non-English locale. (SZABGAB)
     Internal cleanups & documentation for configuration subsystem (JQUELIN)
+    Require Test::Most for the testing and bail_on compilation errors. (SZABGAB)
 
 v0.28 2009.03.04

trunk/Padre/Makefile.PL

@@ -85 +85 @@
 test_requires  'Test::Compile'            => '0.08' unless win32;
 test_requires  'Test::More'               => '0.47';
+test_requires  'Test::Most'               => '0.21';
 test_requires  'Test::Script'             => '1.03';
 test_requires  'Test::Exception'          => '0.27';

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");
 }