Tests for RT #125608.

Raku · Jul 15, 2015 · 44e1719 · 44e1719
1 parent 9f936e7
commit 44e1719
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/S05-metasyntax/longest-alternative.t b/S05-metasyntax/longest-alternative.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 50;
+plan 53;
 
 #L<S05/Unchanged syntactic features/"While the syntax of | does not change">
 
@@ -447,5 +447,14 @@ my $str = 'a' x 7;
     is ~('ab' ~~ / a | b | $y /), 'a', "non constants don't count toward LTM";
 }
 
+# RT #125608
+{
+    is ~('food' ~~ / 'foo' | ('food' || 'doof')/), 'food',
+        'sequential alternation first branch involved in longest alternative (1)';
+    dies-ok { 'food' ~~ / 'foo' | ('food' <!> || { die "Should die here" })/ },
+        'sequential alternation first branch involved in longest alternative (2)';
+    is ~('food' ~~ / 'foo' | ('food' <!> || 'doof')/), 'foo',
+        'sequential alternation first branch failure after LTM tries next best option';
+}
 
 # vim: ft=perl6 et