From d5365ef1067689aa2554eff253a6f4f4cd043841 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Wed, 12 Jul 2000 21:42:39 +0000 Subject: [PATCH] sprintf test tweaks (from Dominic Dunlop) p4raw-id: //depot/perl@6386 --- t/op/sprintf.t | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/t/op/sprintf.t b/t/op/sprintf.t index 2b0ecae..c484355 100755 --- a/t/op/sprintf.t +++ b/t/op/sprintf.t @@ -157,7 +157,7 @@ __END__ >%v+-3d< >"\01\02\03"< >+1 .2 .3 < >%v4.3d< >"\01\02\03"< > 001. 002. 003< >%v04.3d< >"\01\02\03"< >0001.0002.0003< ->%*v02d< >['-', "\0\7\13"]< >00-07-11< +>%*v02d< >['-', "\0\7\14"]< >00-07-12< >%v.*d< >[3, "\01\02\03"]< >001.002.003< >%v0*d< >[3, "\01\02\03"]< >001.002.003< >%v-*d< >[3, "\01\02\03"]< >1 .2 .3 < @@ -204,8 +204,10 @@ __END__ >%f< >0< >0.000000< >%.0f< >0< >0< >%.0f< >2**38< >274877906944< >Should have exact int'l rep'n< ->%.0f< >0.5< >0< ->%.0f< >-0.5< >-0< +>%.0f< >0.1< >0< +>%.0f< >-0.1< >-0< +>%.0f< >0.6< >1< +>%.0f< >-0.6< >-1< >%g< >12345.6789< >12345.7< >%+g< >12345.6789< >+12345.7< >%#g< >12345.6789< >12345.7< @@ -246,6 +248,7 @@ __END__ >%+o< >2**32-1< >37777777777< >%#o< >2**32-1< >037777777777< >%d< >$p=sprintf('%p',$p);$p=~/^[0-9a-f]+$/< >1< >Coarse hack: hex from %p?< +>%#p< >''< >%#p INVALID< >%q< >''< >%q INVALID< >%r< >''< >%r INVALID< >%s< >'string'< >string< -- 2.7.4