eqv and === for Version. Run test file

rakudo · May 13, 2012 · 2ac5691 · 2ac5691
1 parent f5288fc
commit 2ac5691
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/src/core/Version.pm b/src/core/Version.pm
@@ -26,4 +26,14 @@ class Version is List {
         }
         True;
     }
+
+    multi method WHICH(Version:D:) {
+        my $s := join '|', self.^name, self.Str;
+        nqp::box_s(nqp::unbox_s($s), ObjAt);
+    }
 }
+
+multi sub infix:<eqv>(Version:D $a, Version:D $b) {
+    $a.WHAT === $b.WHAT && $a.Str eq $b.Str
+}
+
diff --git a/t/spectest.data b/t/spectest.data
@@ -43,6 +43,7 @@ S02-literals/sub-calls.t
 S02-literals/subscript.t
 S02-literals/types.t
 S02-literals/underscores.t
+S02-literals/version.t
 S02-magicals/args.t
 S02-magicals/config.t
 S02-magicals/dollar_bang.t