summaryrefslogtreecommitdiff
path: root/t/op/misc.t
diff options
context:
space:
mode:
Diffstat (limited to 't/op/misc.t')
-rwxr-xr-xt/op/misc.t10
1 files changed, 10 insertions, 0 deletions
diff --git a/t/op/misc.t b/t/op/misc.t
index 5a61acd55d..c529830123 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -335,3 +335,13 @@ print "eat flaming death\n" unless ($s == 7);
sub foo { local $_ = shift; split; @_ }
@x = foo(' x y z ');
print "you die joe!\n" unless "@x" eq 'x y z';
+########
+/(?{"{"})/ # Check it outside of eval too
+EXPECT
+/(?{"{"})/: Sequence (?{...}) not terminated or not {}-balanced at - line 1.
+########
+/(?{"{"}})/ # Check it outside of eval too
+EXPECT
+Unmatched right bracket at (re_eval 1) line 1, at end of line
+syntax error at (re_eval 1) line 1, near ""{"}"
+Compilation failed in regexp at - line 1.