test X::Mixin::NonComposable

Raku · May 27, 2012 · 5a8433b · 5a8433b
1 parent 8dbf8cc
commit 5a8433b
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -227,6 +227,11 @@ throws_like 'my Str $x := 3', X::TypeCheck::Binding, got => Int, expected => Str
 throws_like 'sub f() returns Str { 5 }; f', X::TypeCheck::Return, got => Int, expected => Str;
 
 throws_like '1.foo', X::Method::NotFound, method => 'foo', typename => 'Int';
+throws_like 'my class NC { }; NC.new does NC', X::Mixin::NonComposable,
+            :target(*.defined), :rolish(*.^name eq 'NC');
+throws_like 'my class NC { }; NC.new but  NC', X::Mixin::NonComposable,
+            :target(*.defined), :rolish(*.^name eq 'NC');
+
 
 
 done;