[eqv.t] tests for RT #75322

Raku · Jan 31, 2011 · b814b4d · b814b4d
1 parent afcdfa2
commit b814b4d
Showing 1 changed file with 10 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 48;
+plan 53;
 
 # L<S03/Comparison semantics/Binary eqv tests equality much like === does>
 # L<S32::Basics/Any/"=item eqv">
@@ -136,4 +136,13 @@ plan 48;
     is Any eqv Mu, Bool::False, 'Any !eqv Mu';
 }
 
+# RT #75322 - Rakudo used to be confused when lists began with ()
+{
+    nok ((), "x") eqv ((), 9), 'list starting with () - 1';
+    nok ((), (), 1) eqv ((), 9), 'list starting with () - 1';
+    nok ((), (), (), 1) eqv ((), (), ""), 'list starting with () - 1';
+    nok ((), (), (), 1) eqv ((), 4), 'list starting with () - 1';
+    ok ((), ()) eqv ((), ()), '((), ())';
+}
+
 # vim: ft=perl6