test that subet with :: in the name works (RT #89708)

Raku · Oct 3, 2011 · 1f36ea3 · 1f36ea3
1 parent 8a543d3
commit 1f36ea3
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/S12-subset/subtypes.t b/S12-subset/subtypes.t
@@ -225,6 +225,12 @@ ok "x" !~~ NW1, 'subset declaration without where clause rejects wrong value';
     ok (S ~~ R) ~~ Bool, 'smart-matching a subset returns a Bool (2)';
 }
 
+
+# RT #89708
+{
+    subset Many::Parts of Str;
+    ok 'a' ~~ Many::Parts, 'subset names with many parts work';
+}
 done;
 
 # vim: ft=perl6