#!/usr/bin/env perl -w
use
strict;
use
warnings;
use
utf8;
use
Bat::Interpreter;
use
Data::Dumper;
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 );