Merge pull request #405 from dogbert17/test-rt-127352

Test for RT 127352
Raku · Mar 22, 2018 · f2d422f · f2d422f
2 parents 64a0eae + bc2894a
commit f2d422f
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S04-declarations/constant.t b/S04-declarations/constant.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 use lib $?FILE.IO.parent(2).add("packages");
-plan 72;
+plan 73;
 
 # L<S04/The Relationship of Blocks and Declarations/"The new constant declarator">
 
@@ -384,4 +384,11 @@ throws-like q[constant Mouse = Rat; constant Mouse = Rat], X::Redeclaration,
     ok "foo" ~~ $constant-regex, 'Can match a exported constant regex';
 }
 
+# RT #127352
+{
+    constant $sepreg = rx/(<[\\/]>)/;
+    my $filenameW = "c:\\g\\b.mp4";
+    is $filenameW ~~ $sepreg, ｢\｣, 'Regex stored in constant with sigil works properly';
+}
+
 # vim: ft=perl6