1 BEGIN { $| = 1; print "1..5\n"; }
2 END {print "not ok 1\n" unless $loaded;}
8 # ensure &startint returns a reasonable value
11 # try right formatting
12 if (" foo" eq fmtstr('','foo','R5')) {
19 if ("foo " eq fmtstr('','foo','L5')) {
25 # try centering with even spacing
26 if (" foo " eq fmtstr('','foo','C5')) {
32 # try centering with uneven spacing
33 if ("foo " eq fmtstr('','foo','C4')) {