t/05_touch_things.t

   1
   2 use strict;
   3 use warnings;
   4 use Test;
   5 use App::MrShell;
   6
   7 plan tests => 5;
   8
   9 my $res = eval {
  10     my $shell = App::MrShell->new
  11         -> set_shell_command_option([0, 't/touch', '%h', '%n'])
  12         -> set_hosts("a", "b")
  13         -> queue_command("c1")
  14         -> queue_command("c2")
  15         -> run_queue;
  16 7};
  17
  18 ok( $res, 7 ) or warn $@;
  19
  20 ok( -f "test_file.a.1.c1" );
  21 ok( -f "test_file.a.2.c2" );
  22 ok( -f "test_file.b.1.c1" );
  23 ok( -f "test_file.b.2.c2" );