t/07_host_routing.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use Test;
   6 use App::MrShell;
   7
   8 plan tests => 2;
   9
  10 my $shell = App::MrShell->new;
  11 my @cmd = (qw(a b c %h d e f %h g h i j k l));
  12
  13 DIRECT: {
  14     my $host  = "nombre";
  15     my @type1 = $shell->set_subst_vars('%h'=>$host)->subst_cmd_vars(@cmd);
  16     ok("@type1", "a b c nombre d e f nombre g h i j k l");
  17 }
  18
  19 INDIRECT1: {
  20     my $host  = "via1!nombre";
  21     my @type1 = $shell->set_subst_vars('%h'=>$host)->subst_cmd_vars(@cmd);
  22     ok("@type1", "a b c via1 a b c nombre d e f via1 a b c via1 a b c nombre d e f nombre g h i j k l");
  23 }