use strict;
use warnings;
use t::BorkedX;
use Test;
use App::MrShell;
plan tests => 5;
my $res = eval {
my $shell = App::MrShell->new
-> set_shell_command_option([$^X, "-e", '$"="."; open TOUCH, ">test_file.@ARGV"', '%h', '%n'])
-> set_hosts("a", "b")
-> queue_command("c1")
-> queue_command("c2")
-> run_queue;
7};
ok( $res, 7 ) or warn $@;
ok( -f "test_file.a.1.c1" );
ok( -f "test_file.a.2.c2" );
ok( -f "test_file.b.1.c1" );
ok( -f "test_file.b.2.c2" );