Test for #2613

Raku · Feb 8, 2019 · c08a6e7 · c08a6e7
1 parent e95d29d
commit c08a6e7
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/S14-roles/typecheck.t b/S14-roles/typecheck.t
@@ -0,0 +1,15 @@
+use v6;
+use lib $?FILE.IO.parent(2).add("packages/Roles/lib");
+
+use Test;
+
+plan 4;
+
+# GH #2613
+use GH2613;
+my class TestGH2613 does R1 { }
+
+ok TestGH2613.^does(R1), "class typecheck against short role name";
+ok TestGH2613.^does(GH2613::R1), "class typecheck against full role name";
+ok TestGH2613 ~~ R1, "class smartmatches against short role name";
+ok TestGH2613 ~~ GH2613::R1, "class smartmatches against full role name";
diff --git a/packages/Roles/lib/GH2613.pm6 b/packages/Roles/lib/GH2613.pm6
@@ -0,0 +1,4 @@
+unit module GH2613;
+
+role R1 is export {
+}