Permalink
Browse files

[t/spec] === tests on Rat and Num.

git-svn-id: http://svn.pugscode.org/pugs@29960 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 60babe2 commit ae000349607553e000ef24b4e78f56e48ea4b3b1 colomon committed Mar 6, 2010
Showing with 14 additions and 0 deletions.
  1. +14 −0 S03-operators/value_equivalence.t
@@ -31,6 +31,20 @@ plan *;
isa_ok (Mu === Mu), Bool, '=== on values (Mu === Mu)';
}
+# more value tests
+{
+ #?rakudo todo "=== broken on Rat"
+ ok 1/2 === 1/2, "=== on Rats";
+ ok 1/2 !=== 3/2, "!=== on Rats";
+ isa_ok 1/2 === 1/2, Bool, "=== on Rats yields Bool";
+ isa_ok 1/2 !=== 3/2, Bool, "!=== on Rats yields Bool";
+ ok 0.5e0 === 0.5e0, "=== on Nums";
+ ok 0.5e0 !=== 1.5e0, "!=== on Nums";
+ #?rakudo todo "=== does not yield Bool on Num"
+ isa_ok 0.5e0 === 0.5e0, Bool, "=== on Nums yields Bool";
+ isa_ok 0.5e0 !=== 1.5e0, Bool, "!=== on Nums yields Bool";
+}
+
# Value types
{
my $a = 1;

0 comments on commit ae00034

Please sign in to comment.