test infix:<eqv>. Added variant for Code objects

rakudo · Jun 29, 2009 · d95def2 · d95def2
1 parent 13b1ff5
commit d95def2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
@@ -25,6 +25,7 @@ multi sub infix:<...> (@lhs, Code $generator) {
 
 multi sub infix:<eqv> (Num $a, Num $b) { $a === $b }
 multi sub infix:<eqv> (Str $a, Str $b) { $a === $b }
+multi sub infix:<eqv> (Code $a, Code $b) { $a === $b }
 multi sub infix:<eqv> (Positional $a, Positional $b) {
     return Bool::False unless $a.WHAT === $b.WHAT;
     return Bool::False unless $a.elems == $b.elems;

diff --git a/t/spectest.data b/t/spectest.data
@@ -120,6 +120,7 @@ S03-operators/context-forcers.t
 S03-operators/context.t
 S03-operators/cross-metaop.t
 S03-operators/equality.t
+S03-operators/eqv.t
 S03-operators/hyper.t
 S03-operators/increment.t
 S03-operators/inplace.t