t/09_simplest_usersubst.t

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