Really test special sprintf formats

diff --git a/t/op/sprintf.t b/t/op/sprintf.t
index 8d93297..4d2fe49 100644 (file)
--- a/t/op/sprintf.t
+++ b/t/op/sprintf.t
@@ -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;