correction of TraceUtils to avoid test error on (some?) windows plateform

where 1.2e+34 may appear as 1.2e+034

1 files changed, 5 insertions, 2 deletions

diff --git a/Perl/t/traceutils.t b/Perl/t/traceutils.t
index 0636037..4d35ae6 100644
--- a/Perl/t/traceutils.t
+++ b/Perl/t/traceutils.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: traceutils.t,v 1.2 2004-05-07 16:53:43 mertz Exp $
+# $Id: traceutils.t,v 1.3 2005-06-23 17:09:49 mertz Exp $
 # Author: Christophe Mertz
 #
 
@@ -65,9 +65,12 @@ $arg = "(-1, -2, -3, -4)";
 is (&List (eval $arg), $arg, $arg);
 
 $arg = "(1.2, -2, .01, -1.2e+22, 1.02e+34)";
-
 is (&List (eval $arg), ($arg =~ s/\.01/0.01/ , $arg ), $arg);
 
+$arg = "(1.2, -2, .01, -1.2e+022, 1.02e+034)";
+my $correctedArg = "(1.2, -2, 0.01, -1.2e+22, 1.02e+34)";
+is (&List (eval $arg), $correctedArg, $arg);
+
 $arg = "('-1aa' => -2, '-a b', -1.2)";
 is (&List (eval $arg), $arg, $arg);