new test file for regex-delims, RT #117415

S05-metasyntax/delimiters.t

@@ -0,0 +1,20 @@
+
+use Test;
+
+plan 23;
+
+# L<S05/Regexes constitute a first-class language, rather than just being strings/can take (almost) any chars as delimiters>
+
+my @delims = < ^ ° ! " § $ % @ € & / = ? ` * + ~ ' ; , . - | >;
+my %todo;
+
+#?niecza emit %todo = < ? 1 * 1 + 1 ~ 1 ' 1 - 1 >;
+
+for @delims -> $d {
+    my $ok  = try { eval("my \$x = 'abc'; \$x ~~ m{$d}b{$d}") };
+    my $nok = try { eval("my \$x = 'abc'; \$x ~~ m{$d}d{$d}") };
+    my $is  = try { eval("my \$x = 'abc'; \$x ~~ s{$d}a{$d}b{$d}; \$x") } eq 'bbc';
+
+    todo "$d not yet supported" if %todo{$d};
+    ok $ok && !$nok && $is, "$d as delimiter in match and substitution";
+}