Convert POSIX's test to Test::More.
authorNicholas Clark <nick@ccl4.org>
Wed, 30 Jun 2010 18:58:53 +0000 (19:58 +0100)
committerNicholas Clark <nick@ccl4.org>
Wed, 30 Jun 2010 19:31:35 +0000 (20:31 +0100)
ext/POSIX/t/is.t
ext/POSIX/t/posix.t

index cb36fb5..a0f5a45 100644 (file)
@@ -70,7 +70,7 @@ foreach my $s (keys %classes) {
 
 # Expected number of tests is one each for every combination of a
 # known is<xxx> function and string listed above.
-require '../../t/test.pl';
+use Test::More;
 plan(tests => keys(%classes) * keys(%functions));
 
 
index 0800f91..32382e8 100644 (file)
@@ -8,13 +8,17 @@ BEGIN {
     }
 }
 
-BEGIN { require "../../t/test.pl"; }
-plan(tests => 66);
+use Test::More tests => 66;
 
 use POSIX qw(fcntl_h signal_h limits_h _exit getcwd open read strftime write
             errno);
 use strict 'subs';
 
+sub next_test {
+    my $builder = Test::More->builder;
+    $builder->current_test($builder->current_test() + 1);
+}
+
 $| = 1;
 
 $Is_W32     = $^O eq 'MSWin32';