diff options
Diffstat (limited to 't/op.sprintf')
| -rw-r--r-- | t/op.sprintf | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/t/op.sprintf b/t/op.sprintf new file mode 100644 index 0000000000..cb4e5c7b3a --- /dev/null +++ b/t/op.sprintf @@ -0,0 +1,8 @@ +#!./perl + +# $Header: op.sprintf,v 1.0 87/12/18 13:14:24 root Exp $ + +print "1..1\n"; + +$x = sprintf("%3s %-4s foo %5d%c%3.1f","hi",123,456,65,3.0999); +if ($x eq ' hi 123 foo 456A3.1') {print "ok 1\n";} else {print "not ok 1\n";} |