#!/usr/bin/env perl -w
use strict;
use utf8;
use Test::More tests => 1;
use English qw( -no_match_vars );
my $interpreter = Bat::Interpreter->new();
my $cmd_file = $PROGRAM_NAME;
$cmd_file =~ s/\.t/\.cmd/;
$interpreter->run($cmd_file);
is_deeply( ['cp file1 file2'], $interpreter->executor->commands_executed );