Permalink
Browse files

move tests for Inf and NaN Str.Numeric

  • Loading branch information...
1 parent 2a981f3 commit 9dc48a057e77e1dca919fb538f9646a7ff624df8 @moritz moritz committed Jul 14, 2011
Showing with 5 additions and 3 deletions.
  1. +0 −3 S03-operators/context-forcers.t
  2. +5 −0 S32-str/numeric.t
@@ -50,9 +50,6 @@ sub iis(Mu $a, Mu $b, $descr) {
is +(3i), 3i, "+ context forcer works (4)";
# jnthn and pmichaud believe the next test is incorrect
# is +Mu, 0, "+ context forcer works (8)";
- is +"Inf", Inf, "+ context forcer works (9)";
- is +"-Inf", -Inf, "+ context forcer works (10)";
- is +"NaN", NaN, "+ context forcer works (11)";
is +(?0), 0, "+ context forcer works (13)";
is +(?3), 1, "+ context forcer works (14)";
}
View
@@ -20,6 +20,7 @@ sub f($str) {
check '', Int, 0;
check '123', Int, 123;
+check ' 123', Int, 123;
check '1_2_3', Int, 123;
check '+123', Int, 123;
check '-123', Int, -123;
@@ -109,6 +110,10 @@ f '120e2_';
# TODO: Nums with radix
+is +"Inf", 'Inf', 'Inf';
+is +"+Inf", 'Inf', '+Inf';
+is +"-Inf", '-Inf', '-Inf';
+is +"NaN", 'NaN', 'NaN';
check '1+2i', Complex, 1+2i;
check '-1-2i', Complex, -1-2i;

0 comments on commit 9dc48a0

Please sign in to comment.