Permalink
Browse files

correct an eqv test

  • Loading branch information...
1 parent f16c416 commit 5a51d4d2e50faa4445131a2adfff2ca5d1b80081 @moritz moritz committed Dec 13, 2011
Showing with 6 additions and 4 deletions.
  1. +6 −4 S03-operators/eqv.t
View
10 S03-operators/eqv.t
@@ -65,9 +65,11 @@ plan 53;
ok ($a eqv $a), "eqv on sub references (1-1)";
ok ($b eqv $b), "eqv on sub references (1-2)";
- #?rakudo todo 'eqv on sub-refs'
- ok ($a eqv $b), "eqv on sub references (1-3)";
- ok !($a eqv { 5 }), 'eqv on sub references (1-4)';
+ # it's impossible to compare blocks for equivalence in general,
+ # and they have associations to different source locations
+ # (line number, column)
+ nok ($a eqv $b), "eqv on sub references (1-3)";
+ nok ($a eqv { 5 }), 'eqv on sub references (1-4)';
}
#?niecza skip 'Cannot use value like Sub as a number'
@@ -89,7 +91,7 @@ plan 53;
{
#?niecza todo
- ok !([1,2,3] eqv [4,5,6]), "eqv on anonymous array references (1)";
+ nok ([1,2,3] eqv [4,5,6]), "eqv on anonymous array references (1)";
ok ([1,2,3] eqv [1,2,3]), "eqv on anonymous array references (2)";
ok ([] eqv []), "eqv on anonymous array references (3)";
}

0 comments on commit 5a51d4d

Please sign in to comment.