Merge pull request #601 from dumarchie/#3346

Add regression test for rakudo/issues/3346

Author: lizmat

S03-operators/eqv.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 58;
+plan 59;
 
 # L<S03/Comparison semantics/Binary eqv tests equality much like === does>
 # L<S32::Basics/Any/"=item eqv">
@@ -222,6 +222,18 @@ subtest 'Seq eqv Seq' => {
         'eqv between Seqs with different end values';
 }
 
+# rakudo/issues/3346
+{
+    my $test = start {
+        my $a = (0,1).hyper;
+        my $b = (0,2).hyper;
+        die if $a eqv $b;
+    };
+
+    await Promise.anyof($test, Promise.in(5));
+    is $test.status, Kept, 'HyperSeq eqv HyperSeq';
+}
+
 subtest 'Throws/lives in lazy cases' => {
     plan 8;