t/op/sprintf2.t

   1 #!./perl -w
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6     require './test.pl';
   7 }
   8
   9 plan tests => 2;
  10
  11 is(
  12     sprintf("%.40g ",0.01),
  13     sprintf("%.40g", 0.01)." ",
  14     q(the sprintf "%.<number>g" optimization)
  15 );
  16 is(
  17     sprintf("%.40f ",0.01),
  18     sprintf("%.40f", 0.01)." ",
  19     q(the sprintf "%.<number>f" optimization)
  20 );