changed up ad-hoc $! test to use throws_like.

perl6 · Dec 18, 2012 · e76e8b92d8b3be881d1036b259a23e697ca106e1 · e76e8b9
1 parent 4aa7777
commit e76e8b92d8b3be881d1036b259a23e697ca106e1
Unified Split

Showing with 3 additions and 2 deletions.

+3 −2 S12-introspection/meta-class.t
diff --git a/S12-introspection/meta-class.t b/S12-introspection/meta-class.t
@@ -45,8 +45,9 @@ eval_lives_ok "True.HOW.say", "can output the .gist of a .HOW";
 
 # RT #114130
 {
-    try eval 'Any.HOW(Foo)';
-    isa_ok $!, X::Syntax::Argument::MOPMacro, "Passing arguments to HOW throws an exception";
+    use lib "t/spec/packages";
+    use Test::Util;
+    throws_like 'Any.HOW(Foo)', X::Syntax::Argument::MOPMacro;
 }
 
 # vim: ft=perl6