Refactor t/porting/checkcase.t to use test.pl instead of making TAP by hand.
authorColin Kuskie <colink@perldreamer.com>
Wed, 18 Jul 2012 05:21:21 +0000 (22:21 -0700)
committerNicholas Clark <nick@ccl4.org>
Wed, 29 Aug 2012 20:01:21 +0000 (22:01 +0200)
t/porting/checkcase.t

index 49f59e8..3c05e22 100644 (file)
@@ -3,6 +3,7 @@
 
 BEGIN {
     @INC = '..' if -f '../TestInit.pm';
+    require './test.pl';
 }
 use TestInit qw(T); # T is chdir to the top level
 
@@ -36,12 +37,8 @@ find({no_chdir => 1, wanted => sub {
         }}, '.');
 
 foreach (sort values %files) {
-    if (@$_ > 1) {
-               print "not ok ".++$test_count. " - ". join(", ", @$_), "\n";
-               print STDERR "# $_\n" foreach @$_;
-    } else {
-               print "ok ".++$test_count. " - ". join(", ", @$_), "\n";
-       }
+    is( @$_, 1, join(", ", @$_) ) or
+        do{ note($_) foreach @$_; };
 }
 
-print "1..".$test_count."\n";
+done_testing();