Add a test that "eval" does not create additional reference to ouside variables.

[p5sagit/p5-mst-13.2.git] / t / op / sprintf.t

diff --git a/t/op/sprintf.t b/t/op/sprintf.t
old mode 100755 (executable)
new mode 100644 (file)
index c220946..a127143
--- a/t/op/sprintf.t
+++ b/t/op/sprintf.t
@@ -49,8 +49,8 @@ while (<DATA>) {
     }
 
     $evalData = eval $data;
-    $data = ref $evalData ? $evalData : [$evalData];
-    push @tests, [$template, $data, $result, $comment];
+    $evalData = ref $evalData ? $evalData : [$evalData];
+    push @tests, [$template, $evalData, $result, $comment, $data];
 }
 
 print '1..', scalar @tests, "\n";
@@ -60,15 +60,17 @@ $SIG{__WARN__} = sub {
        $w = ' INVALID';
     } elsif ($_[0] =~ /^Use of uninitialized value/) {
        $w = ' UNINIT';
+    } elsif ($_[0] =~ /^Missing argument/) {
+       $w = ' MISSING';
     } else {
        warn @_;
     }
 };
 
 for ($i = 1; @tests; $i++) {
-    ($template, $data, $result, $comment) = @{shift @tests};
+    ($template, $evalData, $result, $comment, $data) = @{shift @tests};
     $w = undef;
-    $x = sprintf(">$template<", @$data);
+    $x = sprintf(">$template<", @$evalData);
     substr($x, -1, 0) = $w if $w;
     # $x may have 3 exponent digits, not 2
     my $y = $x;
@@ -618,7 +620,7 @@ __END__
 >%3$d %d %d<   >[12, 34, 56]<  >56 12 34<
 >%2$*3$d %d<   >[12, 34, 3]<   > 34 12<
 >%*3$2$d %d<   >[12, 34, 3]<   >%*3$2$d 12 INVALID<
->%2$d<         >12<    >0 UNINIT<
+>%2$d<         >12<    >0 MISSING<
 >%0$d<         >12<    >%0$d INVALID<
 >%1$$d<                >12<    >%1$$d INVALID<
 >%1$1$d<       >12<    >%1$1$d INVALID<
@@ -685,4 +687,4 @@ __END__
 >%#o<          >0<     >0<
 >%#x<          >0<     >0<
 >%2147483647$v2d<      >''<    ><
->%*2147483647$v2d<     >''<    > UNINIT<
+>%*2147483647$v2d<     >''<    > MISSING<