contrib/perl5/t/op/sprintf.t

   1 #!./perl
   2
   3 # $RCSfile: sprintf.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:27 $
   4
   5 print "1..4\n";
   6
   7 $^W = 1;
   8 $SIG{__WARN__} = sub {
   9     if ($_[0] =~ /^Invalid conversion/) {
  10         $w++;
  11     } else {
  12         warn @_;
  13     }
  14 };
  15
  16 $w = 0;
  17 $x = sprintf("%3s %-4s%%foo %.0d%5d %#x%c%3.1f","hi",123,0,456,0,ord('A'),3.0999);
  18 if ($x eq ' hi 123 %foo   456 0A3.1' && $w == 0) {
  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 }