8 my $cwdb = my $cwd = cwd();
12 my $testdir = "t e s t";
13 my $exename = "showav";
14 my $plxname = "showargv";
16 my $exe = "$testdir/$exename";
17 my $exex = $exe . ".exe";
18 (my $exeb = $exe) =~ s,/,\\,g;
19 my $exebx = $exeb . ".exe";
21 my $bat = "$testdir/$plxname";
22 my $batx = $bat . ".bat";
23 (my $batb = $bat) =~ s,/,\\,g;
24 my $batbx = $batb . ".bat";
26 my $cmdx = $bat . ".cmd";
28 my $cmdbx = $cmdb . ".cmd";
66 [$^X, "$cwdb\\$batbx"],
81 ["", "\ta b c ", "abc"],
82 [" ", "\ta b c ", "abc"],
85 print "1.." . (@commands * @av * 2) . "\n";
86 for my $cmds (@commands) {
89 my @cmds = defined($cmds) ? (ref($cmds) ? @$cmds : $cmds) : ();
90 my @args = defined($args) ? (ref($args) ? @$args : $args) : ();
91 print "######## [@cmds]\n";
92 print "<", join('><', $cmds[$#cmds], @args), ">\n";
93 if (system(@cmds,@args) != 0) {
94 print "Failed, status($?)\n";
95 # print "Running again in debug mode\n";
97 # system(@cmds,@args);
100 my $cmdstr = join " ", map { /\s|^$/ ? qq["$_"] : $_ } @cmds, @args;
101 print "######## '$cmdstr'\n";
102 if (system($cmdstr) != 0) {
103 print "Failed, status($?)\n";
104 # print "Running again in debug mode\n";