sprintf test tweaks (from Dominic Dunlop)

p4raw-id: //depot/perl@6386

diff --git a/t/op/sprintf.t b/t/op/sprintf.t
index 2b0ecae..c484355 100755 (executable)
--- 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<