test for RT #71820, failed subset type check error includes name of s…

…ubset
Raku · Oct 5, 2011 · 044a4a6 · 044a4a6
1 parent ef8462e
commit 044a4a6
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/S12-subset/subtypes.t b/S12-subset/subtypes.t
@@ -237,6 +237,15 @@ ok "x" !~~ NW1, 'subset declaration without where clause rejects wrong value';
     sub f(Int::Positive $a) { $a * $a };
     nok eval('f(-2)'), 'Cannot violate Int::Positive constraint';
 }
+
+# RT #71820
+{
+    subset Interesting of Int where * > 10;
+    class AI { has Interesting $.x };
+    eval 'AI.new(x => 2)';
+    ok $!.Str ~~ /Interesting/, 'error message mentions subset name';
+
+}
 done;
 
 # vim: ft=perl6