This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Refactor t/uni/case.pl to use test.pl instead of making TAP by hand.
authorColin Kuskie <colink@perldreamer.com>
Thu, 19 Jul 2012 01:35:19 +0000 (18:35 -0700)
committerNicholas Clark <nick@ccl4.org>
Wed, 29 Aug 2012 20:06:32 +0000 (22:06 +0200)
t/uni/case.pl

index aa6467c..08df670 100644 (file)
@@ -88,9 +88,7 @@ sub casetest {
        foreach my $func (@funcs) {
            my $d = $func->($c);
            my $e = unidump($d);
-           print $d eq pack("U0U", $simple{$i}) ?
-               "ok $test # $i -> $w\n" : "not ok $test # $i -> $e ($w)\n";
-               $test++;
+           is( $d, pack("U0U", $simple{$i}), "$i -> $e ($w)" );
        }
     }
 
@@ -101,9 +99,7 @@ sub casetest {
        foreach my $func (@funcs) {
            my $d = $func->($c);
            my $e = unidump($d);
-           print $w eq $e ?
-               "ok $test # $i -> $w\n" : "not ok $test # $h -> $e ($w)\n";
-               $test++;
+            is( $w, $e, "$h -> $e ($w)" );
        }
     }
 
@@ -113,13 +109,11 @@ sub casetest {
        foreach my $func (@funcs) {
            my $d = $func->($c);
            my $e = unidump($d);
-           print $d eq $c ?
-               "ok $test # $i -> $w\n" : "not ok $test # $i -> $e ($w)\n";
-               $test++;
+            is( $d, $c, "$i -> $e ($w)" );
        }
     }
 
-    print "1..$tests\n";
+    done_testing();
 }
 
 1;