use constant COMPILER => {
qw/C gcc
CPP g++
+ GOLFSCRIPT golfscript
MONO gmcs
JAVA javac
PASCAL fpc
GCCGO gccgo
HASKELL ghc
PERL perl
- PYTHON python/};
+ PYTHON python
+ RUBY ruby
+ SBCL sbcl/};
+
+my %needs_fork = map { $_ => 1 } qw/GOLANG GOLFSCRIPT GCCGO JAVA RUBY/;
my $loglevel = $ENV{TEST_LOG_LEVEL} // ($ENV{TEST_VERBOSE} ? 'TRACE' : 'OFF');
my $log_conf = <<CONF;
my $format = $meta->{files}{prog}{format};
my $compiler = COMPILER->{$format};
skip "$compiler not found in path", 3 unless $ENV{GRUNTMASTER_VM} || which $compiler;
- skip "$format requires multiple processes. Set GRUNTMASTER_KILL_USER and GRUNTMASTER_SUDO to allow multiple processes.", 3 if !$ENV{GRUNTMASTER_KILL_USER} && $format eq 'JAVA' || $format eq 'GOLANG' || $format eq 'GCCGO';
+ skip "$format requires multiple processes. Set GRUNTMASTER_KILL_USER and GRUNTMASTER_SUDO to allow multiple processes.", 3 if !$ENV{GRUNTMASTER_KILL_USER} && $needs_fork{$format};
$meta->{files}{prog}{content} = read_file "$source/$meta->{files}{prog}{name}";
}
$meta = merge $meta, $pbmeta;