Test Seqs !eqv Lists

Rakudo fix: rakudo/rakudo@dd1dab2e35
Raku · Mar 1, 2017 · dcdcec2 · dcdcec2
1 parent 3fdfcc0
commit dcdcec2
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/S03-operators/eqv.t b/S03-operators/eqv.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 55;
+plan 56;
 
 # L<S03/Comparison semantics/Binary eqv tests equality much like === does>
 # L<S32::Basics/Any/"=item eqv">
@@ -171,4 +171,14 @@ subtest 'Setty eqv Setty' => {
     ok  set(<42>) eqv set(<42>), 'IntStr does     eqv IntStr';
 }
 
+subtest 'Seq eqv List' => {
+    my @tests = ().Seq => (),  (1, 2).Seq => (1, 2),           ().Seq => (1, 2),
+            (1, 2).Seq => (),       (1…∞) => (1…∞).List,   (1…∞).List => (1…∞);
+
+    plan +@tests;
+    cmp-ok .key, &[!eqv], .value,
+        "{.key.^name}({.key}) !eqv {.value.^name}({.value})"
+    for @tests;
+}
+
 # vim: ft=perl6