Change the test to use itself as test file, instead of the generated Makefile.

The generated Makefile is about to go away :-)

1 files changed, 11 insertions, 9 deletions

diff --git a/ext/IPC-Open3/t/fd.t b/ext/IPC-Open3/t/fd.t
index 4e2742714d..2a71b1387c 100644
--- a/ext/IPC-Open3/t/fd.t
+++ b/ext/IPC-Open3/t/fd.t
@@ -1,4 +1,4 @@
-#!./perl
+#!./perl -- # Perl Rules
 
 BEGIN {
     if ($^O eq 'VMS') {
@@ -12,11 +12,13 @@ use warnings;
 
 plan 3;
 
+  my $file = 't/fd.t';
+
 # [perl #76474]
 {
   my $stderr = runperl(
      switches => ['-MIPC::Open3', '-w'],
-     prog => 'open STDIN, q _Makefile_ or die $!; open3(q _<&0_, my $out, undef, $ENV{PERLEXE}, q _-e0_)',
+     prog => "open STDIN, q _${file}_ or die \$!; open3(q _<&0_, my \$out, undef, \$ENV{PERLEXE}, q _-e0_)",
      stderr => 1,
   );
 
@@ -25,18 +27,18 @@ plan 3;
 }
 
 {
-  my $want = qr/\A# This Makefile is for the IPC::Open3 extension to perl\.\r?\z/;
-  open my $fh, '<', 'Makefile' or die "Can't open MAKEFILE: $!";
+  my $want = qr{\A#!\./perl -- # Perl Rules\r?\z};
+  open my $fh, '<', $file or die "Can't open $file: $!";
   my $have = <$fh>;
   chomp $have;
-  like($have, $want, 'No surprises from MakeMaker');
+  like($have, $want, 'We can find our test string');
   close $fh;
 
-  fresh_perl_like(<<'EOP',
+  fresh_perl_like(<<"EOP",
 use IPC::Open3;
-open FOO, 'Makefile' or die $!;
-open3('<&' . fileno FOO, my $out, undef, $ENV{PERLEXE}, '-eprint scalar <STDIN>');
-print <$out>;
+open FOO, '$file' or die \$!;
+open3('<&' . fileno FOO, my \$out, undef, \$ENV{PERLEXE}, '-eprint scalar <STDIN>');
+print <\$out>;
 EOP
 		  $want,
 		  undef,