Permalink
Browse files

RT #75640

  • Loading branch information...
1 parent 896563b commit 28a82e845d4fa88d55d2f9d34ab935495bb07fa7 @moritz moritz committed Jan 3, 2013
Showing with 16 additions and 1 deletion.
  1. +7 −1 S02-literals/quoting.t
  2. +9 −0 S32-exceptions/misc.t
View
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 153;
+plan 155;
my $foo = "FOO";
my $bar = "BAR";
@@ -575,6 +575,12 @@ Hello, World
is qx/echo world/.trans('wd' => 'WD').chomp, "WorlD", "qx doesn't return a Parrot string";
}
+# RT #75320
+{
+ is "$foo >>", "FOO >>", 'quoting and >> (RT 75320, 1)';
+ is "$foo>>", "FOO>>", 'quoting and >> (RT 75320, 2)';
+}
+
done;
# vim: ft=perl6
View
@@ -298,4 +298,13 @@ throws_like 'my class A {}; (-> &c, $m { A.new()(); CATCH { default { $m } } } )
dies_ok {eval(class A{}; (-> &c, $m { A.new()(); CATCH { default { $m } } } )(A, "")) }, "Should fail type check with unbound variable";
}
+# RT #75640
+# cannot use dies_ok, because it puts the call in the dynamic scope of a
+# dispatcher
+try {
+ proto a() { nextsame };
+ a();
+}
+ok $! ~~ X::NoDispatcher, 'nextsame in proto';
+
done;

0 comments on commit 28a82e8

Please sign in to comment.