Test for RT #130562, ltm alternation only sees first sequential alter…

…native.
Raku · Jan 17, 2017 · 89c51ac · 89c51ac
1 parent 5d837a7
commit 89c51ac
Showing 1 changed file with 4 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 55;
+plan 56;
 
 #L<S05/Unchanged syntactic features/"While the syntax of | does not change">
 
@@ -454,6 +454,9 @@ my $str = 'a' x 7;
         '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';
+    # related RT #130562
+    is ~('food' ~~ / 'foo' | ['doof' || 'food']/), 'foo',
+        'sequential alternation branches after first not involved in LTM';
 }
 
 # RT #126573