Really test special sprintf formats
authorVincent Pit <vince@profvince.com>
Thu, 6 May 2010 20:35:14 +0000 (22:35 +0200)
committerVincent Pit <vince@profvince.com>
Thu, 6 May 2010 20:35:14 +0000 (22:35 +0200)
t/op/sprintf.t

index 8d93297..4d2fe49 100644 (file)
@@ -70,7 +70,8 @@ $SIG{__WARN__} = sub {
 for ($i = 1; @tests; $i++) {
     ($template, $evalData, $result, $comment, $data) = @{shift @tests};
     $w = undef;
-    $x = sprintf(">$template<", @$evalData);
+    $x = sprintf($template, @$evalData);
+    $x = ">$x<" if defined $x;
     substr($x, -1, 0) = $w if $w;
     # $x may have 3 exponent digits, not 2
     my $y = $x;