Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

tests for typed exceptions

  • Loading branch information...
commit dc765ebbf6fda331d05018a232ec786e4d5cbf41 1 parent a45df5f
@moritz moritz authored
Showing with 9 additions and 0 deletions.
  1. +9 −0 S32-exceptions/misc.t
View
9 S32-exceptions/misc.t
@@ -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;
Please sign in to comment.
Something went wrong with that request. Please try again.