Changeset 21190 for t/spec/S03-operators/arith.t

Timestamp:

07/03/08 21:20:14 (5 months ago)

Author:

moritz

Message:

[spec] arith.t more fudging, not quite there yet

Files:

• t/spec/S03-operators/arith.t (modified) (4 diffs)

t/spec/S03-operators/arith.t

@@ -17 +17 @@
 
 #?DOES 1
-sub tryok ($ok, $todo = '') {
-    if ($todo) {
-        #&ok.nextwith($ok,$todo, :todo);
-        ok($ok,$todo, :todo);
-    } else {
-        #&ok.nextwith($ok);
-        ok($ok);
-    }
+sub tryeq ($lhs, $rhs) {
+    ok($lhs == $rhs);
 }
 
 #?DOES 1
-sub tryeq ($lhs, $rhs, $todo = '') {
-    if ($todo) {
-        #&ok.nextwith($lhs == $rhs,$todo ~ " " ~ $lhs ~ " != " ~ $rhs, :todo);
-        ok($lhs == $rhs,$todo ~ " " ~ $lhs ~ " != " ~ $rhs, :todo);
-    } else {
-        #&ok.nextwith($lhs == $rhs);
-        ok($lhs == $rhs);
-    }
-}
 sub tryeq_sloppy ($lhs, $rhs, $todo1 = '') {
     my $todo = $todo1;  # TODO is rw
@@ -75 +60 @@
 my $limit = 1e6;
 
-tryok abs( 13e21 %  4e21 -  1e21) < $limit;
-tryok abs(-13e21 %  4e21 -  3e21) < $limit;
-tryok abs( 13e21 % -4e21 - -3e21) < $limit;
-tryok abs(-13e21 % -4e21 - -1e21) < $limit;
+ok abs( 13e21 %  4e21 -  1e21) < $limit;
+ok abs(-13e21 %  4e21 -  3e21) < $limit;
+ok abs( 13e21 % -4e21 - -3e21) < $limit;
+ok abs(-13e21 % -4e21 - -1e21) < $limit;
 
 # UVs, IVs, etc make no sense but the tests are useful anyhow.
@@ -212 +197 @@
 
 # check with 0xFFFF and 0xFFFF
-tryeq 65535 * 65535, 4294836225;
-tryeq 65535 * -65535, -4294836225;
-tryeq -65535 * 65535, -4294836225;
-tryeq -65535 * -65535, 4294836225;
+#?rakudo skip 'arithmetics'
+{
+    tryeq 65535 * 65535, 4294836225;
+    tryeq 65535 * -65535, -4294836225;
+    tryeq -65535 * 65535, -4294836225;
+    tryeq -65535 * -65535, 4294836225;
+}
 
 # check with 0xFFFF and 0x10001
@@ -408 +396 @@
 my $x;
 
+#?rakudo 3 todo 'modulo by zero'
 dies_ok( { say 3 % 0 }, 'Modulo zero dies and is catchable');
 dies_ok( { $x = 0; say 3 % $x; }, 'Modulo zero dies and is catchable with VInt/VRat variables');