Permalink
Browse files

Remove special casing of Microsoft Windows in system test.

When pugs wasn't available on Windows machine, it was failing because
test through that on Windows the only Perl 6 implementation is pugs.
  • Loading branch information...
1 parent 5c64ac0 commit b94fb84d27c6acbc7bf954a543629a0d040b91a6 GlitchMr committed Sep 15, 2012
Showing with 1 addition and 5 deletions.
  1. +1 −5 S29-os/system.t
View
6 S29-os/system.t
@@ -11,13 +11,9 @@ if $*OS eq "browser" {
exit;
}
-my $pugs = ($*OS eq any(<MSWin32 mingw msys cygwin>))
- ?? 'pugs.exe'
- !! $*EXECUTABLE_NAME;
-
my $res;
-$res = run($pugs,'-e1');
+$res = run($*EXECUTABLE_NAME,'-e1');
ok($res,"run() to an existing program does not die (and returns something true)");
$res = run("program_that_does_not_exist_ignore_this_error_please.exe");

0 comments on commit b94fb84

Please sign in to comment.