3 # $RCSfile: sprintf.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:27 $
9 if ($_[0] =~ /^Invalid conversion/) {
17 $x = sprintf("%3s %-4s%%foo %5d%c%3.1f","hi",123,456,65,3.0999);
18 if ($x eq ' hi 123 %foo 456A3.1' && $w == 0) {
21 print "not ok 1 '$x'\n";
25 $f = ('%6 .6s', '%6. 6s', '%6.6 s')[$i - 2];
28 if ($x eq $f && $w == 1) {
31 print "not ok $i '$x' '$f' '$w'\n";