This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dumpvar.t: use Test::More;
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 8 Sep 2003 05:21:21 +0000 (05:21 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 8 Sep 2003 05:21:21 +0000 (05:21 +0000)
p4raw-id: //depot/perl@21068

lib/perl5db/dumpvar.t

index 4530c3b..08dfe22 100644 (file)
@@ -12,35 +12,36 @@ BEGIN {
 use strict;
 
 $|=1;
-undef $/;
-my @prgs = split "########\n", <DATA>;
-close DATA;
-print "1..", scalar @prgs, "\n";
+
+my @prgs;
+{
+    local $/;
+    @prgs = split "########\n", <DATA>;
+    close DATA;
+}
+
+use Test::More;
+
+plan tests => scalar @prgs;
+
 require "dumpvar.pl";
 
-my $i = 0;
-for (@prgs){
-    my($prog,$expected) = split(/\nEXPECT\n?/, $_);
+for (@prgs) {
+    my($prog, $expected) = split(/\nEXPECT\n?/, $_);
     open my $select, ">", \my $got or die;
     select $select;
     eval $prog;
-    my $not = "";
-    my $why = "";
-    if ($@) {
-        $not = "not ";
-        $why = " # prog[$prog]\$\@[$@]";
-    } elsif ($got ne $expected) {
-        $not = "not ";
-        $why = " # prog[$prog]got[$got]expected[$expected]";
-    }
+    my $ERR = $@;
     close $select;
     select STDOUT;
-    print $not, "ok ", ++$i, $why, "\n";
+    if ($ERR) {
+        ok(0, "$prog - $ERR");
+    } else {
+        is($got, $expected, $prog);
+    }
 }
 
 __END__
-"";
-EXPECT
 ########
 dumpValue(1);
 EXPECT