[p5sagit/p5-mst-13.2.git] / t / op / sprintf2.t

#!./perl -w

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}   

plan tests => 2;

is(
    sprintf("%.40g ",0.01),
    sprintf("%.40g", 0.01)." ",
    q(the sprintf "%.<number>g" optimization)
);
is(
    sprintf("%.40f ",0.01),
    sprintf("%.40f", 0.01)." ",
    q(the sprintf "%.<number>f" optimization)
);
Commit	Line	Data
1d917b39	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	);