Merge pull request #511 from vrurg/issue_2613

Test for #2613

Author: jnthn

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";

packages/Roles/lib/GH2613.pm6

@@ -0,0 +1,4 @@
+unit module GH2613;
+
+role R1 is export {
+}