more typed exceptions

Raku · Jan 30, 2012 · 2002a2f · 2002a2f
1 parent 31654a6
commit 2002a2f
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -1,6 +1,7 @@
 use v6;
 use Test;
 
+#?DOES 1
 sub throws_like($code, $ex_type, *%matcher) {
     my $msg;
     if $code ~~ Callable {
@@ -114,4 +115,12 @@ throws_like 'sub f(*@a, $b?) { }', X::Parameter::WrongOrder,
     misplaced   => 'optional positional',
     after       => 'variadic';
 
+#?rakudo skip 'parsing regression'
+throws_like '#`', X::Syntax::Comment::Embedded;
+#?rakudo skip 'parsing regression'
+throws_like '=begin', X::Syntax::Pod::BeginWithoutIdentifier;
+
+throws_like '@', X::Syntax::SigilWithoutName;
+throws_like '1∞', X::Syntax::Confused;
+
 done;