Don't use require in comp/utf.t, as require isn't tested yet.
authorNicholas Clark <nick@ccl4.org>
Fri, 9 Oct 2009 10:49:05 +0000 (12:49 +0200)
committerNicholas Clark <nick@ccl4.org>
Fri, 9 Oct 2009 18:26:17 +0000 (20:26 +0200)
So emit TAP directly, rather than utilising test.pl. Like test.pl, avoid using
++, as it has complexity, and that complexity isn't tested yet.

t/comp/utf.t

index 0d340f6..6f79d27 100644 (file)
@@ -1,8 +1,7 @@
-#!./perl
+#!./perl -w
 
-BEGIN { require "./test.pl"; }
-
-plan(tests => 18);
+print "1..18\n";
+my $test = 0;
 
 my %templates = (
                 utf8 => 'C0U',
@@ -24,7 +23,14 @@ sub test {
     print $fh bytes_to_utf($enc, "$tag\n", $bom);
     close $fh or die $!;
     my $got = do "./utf$$.pl";
-    is($got, $tag);
+    $test = $test + 1;
+    if (!defined $got) {
+       print "not ok $test # $enc $tag $bom; got undef\n";
+    } elsif ($got ne $tag) {
+       print "not ok $test # $enc $tag $bom; got '$got'\n";
+    } else {
+       print "ok $test\n";
+    }
 }
 
 for my $bom (0, 1) {