Permalink
Browse files

tests for typed exceptions

  • Loading branch information...
1 parent a45df5f commit dc765ebbf6fda331d05018a232ec786e4d5cbf41 @moritz moritz committed Jan 25, 2012
Showing with 9 additions and 0 deletions.
  1. +9 −0 S32-exceptions/misc.t
View
@@ -80,4 +80,13 @@ throws_like '1!foo()',
throws_like 'sub f() { }; f() := 2', X::Bind::WrongLHS;
throws_like 'my int $x := 2', X::Bind::NativeType;
+throws_like 'for (1; 1; 1) { }', X::Obsolete,
+ old => rx/<<for>>/,
+ replacement => rx/<<loop>>/;
+throws_like 'foreach (1..10) { }', X::Obsolete,
+ old => "'foreach'",
+ replacement => "'for'";
+throws_like 'undef', X::Obsolete,
+ old => rx/<<undef>>/;
+
done;

0 comments on commit dc765eb

Please sign in to comment.