Skip to content
Browse files

test lexical roles and ===

  • Loading branch information...
1 parent 3696d21 commit 1faa73da1c809657ce431e45e8f6a22835880d04 @moritz moritz committed
Showing with 15 additions and 1 deletion.
  1. +15 −1 S03-operators/value_equivalence.t
View
16 S03-operators/value_equivalence.t
@@ -14,7 +14,7 @@ false, and C<[1,2] eqv [1,2]> returns true.
# L<S03/"Chaining binary precedence" /Value identity>
-plan 74;
+plan 75;
# === on values
{
@@ -181,6 +181,20 @@ plan 74;
ok 1|2 === 1, '=== does autothread (1)';
isa_ok 1|2 === 1, Junction, '=== does autothread (2)';
+#?pugs skip 'roles'
+{
+ my $a = do {
+ my role A { };
+ 1 but A;
+ };
+ my $b = do {
+ my role A { };
+ 1 but A;
+ };
+ #?rakudo todo '.WHICH based on type names'
+ nok $a === $b, 'two lexical roles come out as different when compared with ===';
+}
+
done;
# vim: ft=perl6

0 comments on commit 1faa73d

Please sign in to comment.
Something went wrong with that request. Please try again.