Add tests for RT #113884

S05-metasyntax/longest-alternative.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 48;
+plan 50;
 
 #L<S05/Unchanged syntactic features/"While the syntax of | does not change">
 
@@ -437,4 +437,15 @@ my $str = 'a' x 7;
     is ~$/, 'äaÄAÁ', 'got longest alternative with :i:m';
 }
 
+# RT #113884
+{
+    #?rakudo todo "RT #113884 - constant variables not counted in LTM yet"
+    constant $x = 'ab'; 
+    is ~('ab' ~~ / a | b | $x /), 'ab', 'got longest alternative with constant';
+
+    my $y = 'ab';
+    is ~('ab' ~~ / a | b | $y /), 'a', "non constants don't count toward LTM";
+}
+
+
 # vim: ft=perl6 et