Skip over state declarations at run time

[perl5.git] / t / op / exec.t

diff --git a/t/op/exec.t b/t/op/exec.t
old mode 100755 (executable)
new mode 100644 (file)
index 91821aa..6ec3646
--- a/t/op/exec.t
+++ b/t/op/exec.t
@@ -25,7 +25,7 @@ if ($^O eq 'VMS') {
 }
 
 
-# supress VMS whinging about bad execs.
+# suppress VMS whinging about bad execs.
 use vmsish qw(hushed);
 
 $| = 1;                                # flush stdout
@@ -36,9 +36,7 @@ $ENV{LANGUAGE} = 'C';         # Ditto in GNU.
 my $Is_VMS   = $^O eq 'VMS';
 my $Is_Win32 = $^O eq 'MSWin32';
 
-skip_all("Tests mostly usesless on MacOS") if $^O eq 'MacOS';
-
-plan(tests => 22);
+plan(tests => 24);
 
 my $Perl = which_perl();
 
@@ -126,10 +124,22 @@ $Perl -le "print 'ok'"
 END
 
 {
+    no warnings 'experimental::lexical_topic';
     my $_ = qq($Perl -le "print 'ok'");
     is( readpipe, "ok\n", 'readpipe default argument' );
 }
 
+package o {
+    use subs "readpipe";
+    sub readpipe { pop }
+    ::is `${\"hello"}`, 'hello',
+         'overridden `` interpolates [perl #115330]';
+    ::is <<`119827`, "ls\n",
+l${\"s"}
+119827
+        '<<`` respects overrides and interpolates [perl #119827]';
+}
+
 TODO: {
     my $tnum = curr_test();
     if( $^O =~ /Win32/ ) {