Skip to content
Browse files

Added test for #114134

  • Loading branch information...
1 parent 0b90fb4 commit edf27d46345d3197af6afd4da1dc69f8c7e8ee29 @svatsan svatsan committed Nov 15, 2012
Showing with 7 additions and 0 deletions.
  1. +7 −0 S32-exceptions/misc.t
View
7 S32-exceptions/misc.t
@@ -277,4 +277,11 @@ throws_like 'Set(Any.new)', X::Set::Coerce;
throws_like 'use fatal; (1+2i).Num', X::Numeric::Real, target => Num;
throws_like 'use fatal; (1+2i).Real', X::Numeric::Real, target => Real;
+#RT #114134
+{
+throws_like 'class A{}; (-> &c, $m { A.new()(); CATCH { default { $m } } } )(A, "")', X::TypeCheck::Binding;
+
+dies_ok {eval(class A{}; (-> &c, $m { A.new()(); CATCH { default { $m } } } )(A, "")) }, "Should fail type check with unbound variable";
+}
+
done;

0 comments on commit edf27d4

Please sign in to comment.
Something went wrong with that request. Please try again.