t/06_touch_things_w_mrsh.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    local @ARGV = (
  11         "-s" => qq|0 t/touch '\%h' '\%n'|,
  12         "-l" => "05_touch.log", '--trunc',
  13         "-H" => 'a',
  14         "-H" => 'b',
  15         'c3'
  16     );
  17
  18     unless( defined(do "blib/script/mrsh") ) {
  19         die "mrsh failure: $!$@"
  20     }
  21 };
  22
  23 ok( $res );
  24 ok( -f "test_file.a.1.c3" );
  25 ok( -f "test_file.b.1.c3" );