Skip to content

Commit

Permalink
Add test for GH #2901
Browse files Browse the repository at this point in the history
  • Loading branch information
Altai-man committed May 18, 2019
1 parent b5c4ed2 commit 954d32b
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion S05-metasyntax/regex.t
Expand Up @@ -3,7 +3,7 @@ use Test;
use lib $?FILE.IO.parent(2).add("packages/Test-Helpers");
use Test::Util;

plan 51;
plan 52;

throws-like 'qr/foo/', X::Obsolete, 'qr// is gone';

Expand Down Expand Up @@ -283,4 +283,7 @@ is ~("ddd" ~~ / [ x | d ] **? 2..3 /), "dd", 'frugal match with alternation';
is_run /a/; print "pass", {:out<pass>, :err(''), :0status},
'/a/ in sink context in in uppermost scope does not explode';

# https://github.com/rakudo/rakudo/issues/2901
is 'a' ~~ / a & a /, 'a', 'Unescaped & works as conjunction';

# vim: ft=perl6

0 comments on commit 954d32b

Please sign in to comment.