Tests for RT #127660.

Raku · Mar 9, 2016 · cf3374d · cf3374d
1 parent a20b3a4
commit cf3374d
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/S12-methods/submethods.t b/S12-methods/submethods.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 27;
+plan 29;
 
 =begin pod
 
@@ -121,4 +121,12 @@ Basic submethod tests. See L<S12/"Submethods">
   is( $C2.double_value, 200, '... or value passed in' );
 }
 
+# RT #127660
+{
+    my class M { method Bool { True } }
+    is M || 42, M, 'Bool method in class is used in boolificiation';
+    my class SM { submethod Bool { True } }
+    is SM || 42, SM, 'Bool submethod in class is used in boolificiation';
+}
+
 # vim: ft=perl6
diff --git a/S14-roles/mixin.t b/S14-roles/mixin.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 48;
+plan 50;
 
 # L<S14/Run-time Mixins/>
 
@@ -221,4 +221,12 @@ throws-like 'True but (1, 1)', Exception, gist => { $^g ~~ /'Int'/ && $g ~~ /res
     ok (Any but role { }) !=== (Any but role { }), 'anonymous roles are distinct';
 }
 
+# RT #127660
+{
+    my $m = Any but role { method Bool { True } }
+    is $m || 42, $m, 'method Bool in mixin is used';
+    my $sm = Any but role { submethod Bool { True } }
+    is $sm || 42, $sm, 'submethod Bool in mixin is used';
+}
+
 # vim: syn=perl6