| Subject: | new testcase: negative (kind of) square root |
% perl -wE 'say sqrt -1e-309'
-0
% perl -v
This is perl, v5.10.0 built for x86_64-linux-gnu-thread-multi
A patch for studyperl.t is attached.
Thanks, Frank
| Subject: | studyperl.t.diff |
--- studyperl.t.old 2009-01-08 10:06:52.000000000 +0100
+++ studyperl.t 2009-01-08 10:06:12.000000000 +0100
@@ -15,3 +15,5 @@
studyperl(q{'123456789123456789.2' <=> '123456789123456790.0'}, "native big math float/float");
studyperl(q{'123456789123456789' <=> '123456789123456790'}, "native big math int/int");
studyperl(q{'123456789123456789123456789123456789' <=> '123456789123456789123456789123456790'}, "native big math int/int larger");
+
+studyperl(q{sqrt(-1e-309)}, "negative square root");