Permalink
Browse files

[t/spec] fudge eqv.t for rakudo

git-svn-id: http://svn.pugscode.org/pugs@27304 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 276dc9b commit 01ef6c2fadd6c32ae4884be218daa197335c4152 moritz committed Jun 29, 2009
Showing with 6 additions and 2 deletions.
  1. +6 −2 S03-operators/eqv.t
View
@@ -40,7 +40,7 @@ plan 40;
ok (\@a eqv \@a), "eqv on array references (1)";
ok (\@b eqv \@b), "eqv on array references (2)";
- #?pugs todo 'bug'
+ #?rakudo todo 'captures and infix:<eqv>'
ok !(\@a eqv \@b), "eqv on array references (3)";
}
@@ -50,10 +50,11 @@ plan 40;
ok ($a eqv $a), "eqv on scalar references (1-1)";
ok ($b eqv $b), "eqv on scalar references (1-2)";
- #?pugs todo 'bug'
+ #?rakudo todo 'captures and infix:<eqv>'
ok !($a eqv $b), "eqv on scalar references (1-3)";
}
+#?
{
my $a = { 3 };
my $b = { 3 };
@@ -82,15 +83,18 @@ plan 40;
{
ok !([1,2,3] eqv [4,5,6]), "eqv on anonymous array references (1)";
#?pugs 2 todo 'bug'
+ #?rakudo 2 todo 'captures? test bug?'
ok !([1,2,3] eqv [1,2,3]), "eqv on anonymous array references (2)";
ok !([] eqv []), "eqv on anonymous array references (3)";
}
+#?rakudo skip 'hashes'
{
ok !({a => 1} eqv {a => 2}), "eqv on anonymous hash references (1)";
ok !({a => 1} eqv {a => 1}), "eqv on anonymous hash references (2)";
}
+#?rakudo skip 'captures'
{
ok !(\3 eqv \4), "eqv on anonymous scalar references (1)";
#?pugs 2 todo 'bug'

0 comments on commit 01ef6c2

Please sign in to comment.