Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[eqv.t] tests for RT #75322

  • Loading branch information...
commit b814b4d139637f980c31f70964c2af89d956b062 1 parent afcdfa2
@moritz moritz authored
Showing with 10 additions and 1 deletion.
  1. +10 −1 S03-operators/eqv.t
View
11 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
Please sign in to comment.
Something went wrong with that request. Please try again.