Re: [ID 20010529.003] find2perl and File::Find doesn't emulate find when path is...

[p5sagit/p5-mst-13.2.git] / t / lib / xs-typemap.t

diff --git a/t/lib/xs-typemap.t b/t/lib/xs-typemap.t
index eaf83cc..0cf1ab3 100644 (file)
--- a/t/lib/xs-typemap.t
+++ b/t/lib/xs-typemap.t
@@ -162,7 +162,7 @@ ok( T_U_CHAR(300) != 300);
 print "# T_FLOAT\n";
 
 # limited precision
-ok( sprintf("%6.3f",T_FLOAT(52.345)), 52.345);
+ok( sprintf("%6.3f",T_FLOAT(52.345)), sprintf("%6.3f",52.345));
 
 # T_NV
 print "# T_NV\n";
@@ -172,7 +172,7 @@ ok( T_NV(52.345), 52.345);
 # T_DOUBLE
 print "# T_DOUBLE\n";
 
-ok( T_DOUBLE(52.345), 52.345);
+ok( sprintf("%6.3f",T_DOUBLE(52.345)), sprintf("%6.3f",52.345));
 
 # T_PV
 print "# T_PV\n";