From c08a6e79791c6517cb7869140282cef5d60a0124 Mon Sep 17 00:00:00 2001 From: Vadim Belman Date: Thu, 7 Feb 2019 22:13:52 -0500 Subject: [PATCH] Test for #2613 --- S14-roles/typecheck.t | 15 +++++++++++++++ packages/Roles/lib/GH2613.pm6 | 4 ++++ 2 files changed, 19 insertions(+) create mode 100644 S14-roles/typecheck.t create mode 100644 packages/Roles/lib/GH2613.pm6 diff --git a/S14-roles/typecheck.t b/S14-roles/typecheck.t new file mode 100644 index 0000000000..3b8f1edd43 --- /dev/null +++ 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 new file mode 100644 index 0000000000..83b1efac76 --- /dev/null +++ b/packages/Roles/lib/GH2613.pm6 @@ -0,0 +1,4 @@ +unit module GH2613; + +role R1 is export { +}