Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
79072805 |
3 | # $RCSfile: sprintf.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:27 $ |
8d063cd8 |
4 | |
fb73857a |
5 | print "1..4\n"; |
8d063cd8 |
6 | |
fb73857a |
7 | $^W = 1; |
8 | $SIG{__WARN__} = sub { |
9 | if ($_[0] =~ /^Invalid conversion/) { |
10 | $w++; |
11 | } else { |
12 | warn @_; |
13 | } |
14 | }; |
15 | |
16 | $w = 0; |
9d116dd7 |
17 | $x = sprintf("%3s %-4s%%foo %.0d%5d %#x%c%3.1f","hi",123,0,456,0,ord('A'),3.0999); |
c10ed8b9 |
18 | if ($x eq ' hi 123 %foo 456 0A3.1' && $w == 0) { |
fb73857a |
19 | print "ok 1\n"; |
20 | } else { |
21 | print "not ok 1 '$x'\n"; |
22 | } |
23 | |
24 | for $i (2 .. 4) { |
25 | $f = ('%6 .6s', '%6. 6s', '%6.6 s')[$i - 2]; |
26 | $w = 0; |
27 | $x = sprintf($f, ''); |
28 | if ($x eq $f && $w == 1) { |
29 | print "ok $i\n"; |
30 | } else { |
31 | print "not ok $i '$x' '$f' '$w'\n"; |
32 | } |
33 | } |