| Subject: | [PATCH] Test failures with Perl configured with -Duselongdouble -Duse64bitint |
When testing DBI with a Perl with configured with -Duselongdouble
-Duse64bitint I received two test failures that seem to be solely due to
the extra configure arguments for my 32-bit processor. Eseentially, I
get additional decimal digits from the results of dbi_profile_merge.
I'm not sure if the following is exactly the fix you're looking for, but
I was able to get the test cases to pass by converting the following
into regexps.
--- DBI-1.50/t/40profile.t 2005-12-13 09:56:52.000000000 -0600
+++ DBI-1.50-patch/t/40profile.t 2006-01-17 10:33:35.000000000 -0600
@@ -199,7 +199,7 @@
[ 10, 0.51, 0.11, 0.01, 0.22, 1023110000, 1023110010 ],
[ 15, 0.42, 0.12, 0.02, 0.23, 1023110005, 1023110009 ],
);
-ok("@$totals", "25 0.93 0.11 0.01 0.23 1023110000 1023110010");
+ok("@$totals" =~ /25 0.93\d* 0.11\d* 0.01\d* 0.23\d* 1023110000
1023110010/);
ok($total_time, 0.93);
$total_time = dbi_profile_merge(
@@ -208,7 +208,7 @@
bar => [ 17, 1.42, 0.12, 0.02, 0.23, 1023110005, 1023110009 ],
}
);
-ok("@$totals", "27 2.93 0.11 0.01 0.23 1023110000 1023110010");
+ok("@$totals" =~ /27 2.93\d* 0.11\d* 0.01\d* 0.23\d* 1023110000
1023110010/);
ok($total_time, 2.93);
# check that output went into the log file