Ticket #1360: smoke_languages.pl.path.problem.2.patch

smoke_languages.pl

@@ -68 +68 @@
 my $FH;
 my $parrot = catfile($pwd, $bindir, 'parrot');
 
-$out = `$parrot -V`;
+$out = `"$parrot" -V`;
 $out =~ m/version (\S+) built/;
 my $version = $1;
 
@@ -92 +92 @@
 $exe = catfile($pwd, $bindir, 'parrot-abc');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot abc.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "3\n", "check abc");
 unlink($filename);
 }
@@ -120 +120 @@
 $exe = catfile($pwd, $bindir, 'parrot-befunge');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot befunge.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "If you can see a 4 here ->4 <- then everything is ok!\n", "check befunge");
 unlink($filename);
 }
@@ -165 +165 @@
 $exe = catfile($pwd, $bindir, 'parrot-blizkost');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot perl5.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n" || $out eq "Hello, World!\r\n", "check blizkost");
 unlink($filename);
 }
@@ -177 +177 @@
 $exe = catfile($pwd, $bindir, 'parrot-cardinal');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot cardinal.pbc" unless (-e $exe);
-$out = `$exe -e "print 'hello world';"`;
+$out = `"$exe" -e "print 'hello world';"`;
 ok($out eq "hello world", "check cardinal");
 }
 
@@ -193 +193 @@
 $exe = catfile($pwd, $bindir, 'parrot-chitchat');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot chitchat.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, world!\n", "check chitchat");
 unlink($filename);
 }
@@ -202 +202 @@
 {
 skip(".NET", 1) unless (-d "$pwd/$langdir/dotnet");
 chdir("$pwd/$langdir/dotnet");
-$out = `$parrot dotnet/net2pbc.pbc`;
+$out = `"$parrot" dotnet/net2pbc.pbc`;
 ok($out =~ /^Usage/, "check dotnet");
 }
 
@@ -218 +218 @@
 $exe = catfile($pwd, $bindir, 'parrot-js');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot js.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello World from JS\n", "check ecmascript");
 unlink($filename);
 }
@@ -235 +235 @@
 $exe = catfile($pwd, $bindir, 'parrot-fun');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot fun.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello World!\n", "check fun");
 unlink($filename);
 }
@@ -252 +252 @@
 $exe = catfile($pwd, $bindir, 'parrot-gil');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot gil.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, world!\n", "check gil");
 unlink($filename);
 }
@@ -269 +269 @@
 $exe = catfile($pwd, $bindir, 'parrot-hq9plus');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot hq9plus.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, world!\n", "check HQ9Plus");
 unlink($filename);
 }
@@ -286 +286 @@
 $exe = catfile($pwd, $bindir, 'parrot-lisp');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot lisp.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n", "check lisp");
 unlink($filename);
 }
@@ -307 +307 @@
 $exe = catfile($pwd, $bindir, 'parrot-lolcode');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot lolcode.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "HAI WORLD!\n", "check lolcode");
 unlink($filename);
 }
@@ -319 +319 @@
 $exe = catfile($pwd, $bindir, 'parrot-lua');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot lua.pbc" unless (-e $exe);
-$out = `$exe -e "print(nil)"`;
+$out = `"$exe" -e "print(nil)"`;
 ok($out eq "nil\n", "check lua");
 }
 
@@ -346 +346 @@
 $exe = catfile($pwd, $bindir, 'parrot-markdown');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot markdown.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "<p>Hello, World!</p>\n", "check markdown");
 unlink($filename);
 }
@@ -363 +363 @@
 $exe = catfile($pwd, $bindir, 'parrot-matrixy');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot matrixy.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, world!\n", "check matrixy");
 unlink($filename);
 }
@@ -380 +380 @@
 $exe = catfile($pwd, $bindir, 'parrot-apl');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot apl.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello world!\n", "check Paraplegic");
 unlink($filename);
 }
@@ -397 +397 @@
 $exe = catfile($pwd, $bindir, 'parrot-pheme');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot pheme.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n", "check pheme");
 unlink($filename);
 }
@@ -414 +414 @@
 $exe = catfile($pwd, $bindir, 'parrot-pipp');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot pipp.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n", "check pipp");
 unlink($filename);
 }
@@ -436 +436 @@
 $exe = catfile($pwd, $bindir, 'parrot-porcupine');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot porcupine.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, world!\n", "check porcupine");
 unlink($filename);
 }
@@ -453 +453 @@
 $exe = catfile($pwd, $bindir, 'parrot-primitivearc');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot primitivearc.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, world!\n\n", "check primitivearc");
 unlink($filename);
 }
@@ -470 +470 @@
 $exe = catfile($pwd, $bindir, 'parrot-punie');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot punie.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!", "check punie");
 unlink($filename);
 }
@@ -487 +487 @@
 $exe = catfile($pwd, $bindir, 'parrot-pynie');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot pynie.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n", "check pynie");
 unlink($filename);
 }
@@ -499 +499 @@
 $exe = catfile($pwd, $bindir, 'perl6');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot perl6.pbc" unless (-e $exe);
-$out = `$exe -e "say 'hello world'"`;
+$out = `"$exe" -e "say 'hello world'"`;
 ok($out eq "hello world\n", "check rakudo");
 }
 
@@ -606 +606 @@
 $exe = catfile($pwd, $bindir, 'parrot-shakespeare');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot shakespeare.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello World!\n", "check shakespeare");
 unlink($filename);
 }
@@ -623 +623 @@
 $exe = catfile($pwd, $bindir, 'parrot-steme');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot steme.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n", "check steme");
 unlink($filename);
 }
@@ -640 +640 @@
 $exe = catfile($pwd, $bindir, 'parrot-squaak');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot squaak.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello, World!\n", "check squaak");
 unlink($filename);
 }
@@ -660 +660 @@
 $exe = catfile($pwd, $bindir, 'parrot-unl');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot unl.pbc" unless (-e $exe);
-$out = `$exe $filename`;
+$out = `"$exe" $filename`;
 ok($out eq "Hello world\n", "check unlambda");
 unlink($filename);
 }
@@ -685 +685 @@
 $exe = catfile($pwd, $bindir, 'parrot-wmlsi');
 $exe .= '.exe' if ($^O eq 'MSWin32');
 $exe = "$parrot wmlsi.pbc" unless (-e $exe);
-$out = `$exe ${filename}c main`;
+$out = `"$exe" ${filename}c main`;
 ok($out eq "Hello World!\n", "check wmlscript");
 unlink($filename);
 unlink($filename . 'c');