Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[t/spec] RT #64098, methods on enums

git-svn-id: http://svn.pugscode.org/pugs@26722 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 43a7b3dae609403186133959deabe1effcb546ff 1 parent e4e8d45
moritz authored
Showing with 17 additions and 1 deletion.
  1. +17 −1 S12-enums/thorough.t
View
18 S12-enums/thorough.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 64;
+plan 66;
=begin description
@@ -75,3 +75,19 @@ sub test_stuff($x) {
ok $x.day = &day::("Tue"), "basic enum mixing worked (4-1)";
test_stuff($x);
}
+
+# used to be Rakudo regression, RT #64098
+{
+ class Object is also {
+ method f { 'inObject' };
+ }
+
+ class Bool is also {
+ method f { 'inBool' };
+ }
+ is True.f, 'inBool', 'method on short name pick up the one from the enum';
+ is Bool::True.f, 'inBool', 'method on long name pick up the one from the enum';
+
+}
+
+# vim: ft=perl6
Please sign in to comment.
Something went wrong with that request. Please try again.