#! perl
use strict;
use warnings;
use Test::More 0.89;
use Config;
use Cwd qw/getcwd/;
use File::Temp qw/tempdir/;
use ExtUtils::Builder::Util 'get_perl';
use ExtUtils::Manifest 'mkmanifest';
my $tempdir = tempdir(CLEANUP => 1, TEMPLATE => 'ExtUtilsBuilderXXXX');
my $pwd = getcwd;
chdir $tempdir;
open my $mfpl, '>', 'Makefile.PL';
my @touch_prefix = $^O eq 'MSWin32' || $^O eq 'VMS' ? (get_perl(), '-MExtUtils::Command', '-e') : ();
my $touch = join ', ', map { qq{'$_'} } @touch_prefix, 'touch';
printf $mfpl <<'END', $touch;
use ExtUtils::MakeMaker;
use ExtUtils::Builder::MakeMaker;
use ExtUtils::Builder::Util qw/command code/;
WriteMakefile(
        NAME => 'FOO',
        VERSION => 0.001,
        NO_MYMETA => 1,
        NO_META => 1,
);
sub MY::make_plans {
        my ($self, $planner, $config) = @_;
        my $action1 = command(%s, 'very_unlikely_name');
        my $action2 = code(code => 'open my $fh, "\\x{3e}", "other_unlikely_name"');
        $planner->create_node(target => 'foo', actions => [ $action1, $action2 ]);
        $planner->create_node(target => 'pure_all', dependencies => [ 'foo' ], phony => 1);
}
END
close $mfpl;
{
        local $ExtUtils::Manifest::Verbose = 0;
        mkmanifest;
}
system get_perl(), 'Makefile.PL';
ok(-e 'Makefile', 'Makefile exists');
open my $mf, '<', 'Makefile' or die "Couldn't open Makefile: $!";
my $content = do { local $/; <$mf> };
like($content, qr/^\t .* touch .* very_unlikely_name/xm, 'Makefile contains very_unlikely_name');
my $make = $ENV{MAKE} // $Config{make};
system $make;
ok(-e 'very_unlikely_name', "Unlikely file has been touched");
ok(-e 'other_unlikely_name', "Unlikely file has been touched");
chdir $pwd;
done_testing;