This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PATCH: [perl #133997] Assert fail with script runs
[perl5.git] / t / re / script_run.t
index 19d4e10..21cacec 100644 (file)
@@ -119,4 +119,8 @@ foreach my $type ('script_run', 'sr', 'atomic_script_run', 'asr') {
     like("\x{1d7ce}αβγ", qr/^(*sr:.{4})/,
          "Non-ASCII Common digits work with Greek"); # perl #133547
 
+    fresh_perl_is('no warnings "experimental::script_run";
+                   print scalar "0" =~ m!(((*sr:()|)0)(*sr:)0|)!;',
+                  1, {}, '[perl #133997]');
+
 done_testing();