Permalink
Browse files

test for X::HyperOp::NonDWIM

  • Loading branch information...
moritz committed May 28, 2012
1 parent 5eefbf8 commit 78d560a7711e42e1723513161de8e87a72b6ae56
Showing with 8 additions and 0 deletions.
  1. +8 −0 S32-exceptions/misc.t
View
@@ -250,4 +250,12 @@ throws_like 'my package A { }; my class B is A { }', X::Inheritance::Unsupported
throws_like 'my module Expo { sub f is export { }; { sub f is export { } } }',
X::Export::NameClash, symbol => '&f';
+#?rakudo skip 'segfaults'
+throws_like '<a b> »+« <c>', X::HyperOp::NonDWIM,
+ left-elems => 2, right-elems => 1,
+ operator => { .name eq 'infix:<+>' };
+
+throws_like '<a b> »+« <c>', X::HyperOp::NonDWIM,
+ left-elems => 2, right-elems => 1;
+
done;

0 comments on commit 78d560a

Please sign in to comment.