[t/spec] Cut back on a few more or less duplicate tests.

git-svn-id: http://svn.pugscode.org/pugs@30629 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · May 15, 2010 · 61ad9ad · 61ad9ad
1 parent 37632cb
commit 61ad9ad
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/S32-num/rounders.t b/S32-num/rounders.t
@@ -46,20 +46,20 @@ is( (-Inf).truncate, -Inf, '(-Inf).truncate is -Inf');
 my %tests =
     ( ceiling => [ [ 1.5, 2 ], [ 2, 2 ], [ 1.4999, 2 ],
          [ -0.1, 0 ], [ -1, -1 ], [ -5.9, -5 ],
-         [ -0.5, 0 ], [ -0.499, 0 ], [ -5.499, -5 ],
-         [ "-0.499.Num", 0 ], [ "-5.499.Num", -5 ], [ "2.Num", 2 ] ],
+         [ -0.5, 0 ], [ "-0.499.Num", 0 ], [ "-5.499.Num", -5 ], 
+         [ "2.Num", 2 ] ],
       floor => [ [ 1.5, 1 ], [ 2, 2 ], [ 1.4999, 1 ],
          [ -0.1, -1 ], [ -1, -1 ], [ -5.9, -6 ],
-         [ -0.5, -1 ], [ -0.499, -1 ], [ -5.499, -6 ],
-         [ "-0.499.Num", -1 ], [ "-5.499.Num", -6 ], [ "2.Num", 2 ]  ],
+         [ -0.5, -1 ], [ "-0.499.Num", -1 ], [ "-5.499.Num", -6 ], 
+         [ "2.Num", 2 ]  ],
       round => [ [ 1.5, 2 ], [ 2, 2 ], [ 1.4999, 1 ],
          [ -0.1, 0 ], [ -1, -1 ], [ -5.9, -6 ],
-         [ -0.5, 0 ], [ -0.499, 0 ], [ -5.499, -5 ],
-         [ "-0.499.Num", 0 ], [ "-5.499.Num", -5 ], [ "2.Num", 2 ]  ],
+         [ -0.5, 0 ], [ "-0.499.Num", 0 ], [ "-5.499.Num", -5 ], 
+         [ "2.Num", 2 ]  ],
       truncate => [ [ 1.5, 1 ], [ 2, 2 ], [ 1.4999, 1 ],
          [ -0.1, 0 ], [ -1, -1 ], [ -5.9, -5 ],
-         [ -0.5, 0 ], [ -0.499, 0 ], [ -5.499, -5 ],
-         [ "-0.499.Num", 0 ], [ "-5.499.Num", -5 ], [ "2.Num", 2 ]  ],
+         [ -0.5, 0 ], [ "-0.499.Num", 0 ], [ "-5.499.Num", -5 ], 
+         [ "2.Num", 2 ]  ],
     );
 
 #?pugs emit if $?PUGS_BACKEND ne "BACKEND_PUGS" {