- my $meta = LoadFile "$problem/meta.yml";
- for (1 .. $meta->{testcnt}) {
- $meta->{infile}[$_ - 1] = read_file "$problem/$_.in" if $meta->{generator} eq 'File';
- $meta->{okfile}[$_ - 1] = read_file "$problem/$_.ok" if $meta->{runner} eq 'File';
- }
- if (exists $meta->{files}) {
- $_->{content} = read_file "$problem/$_->{name}" for values $meta->{files}
- }
- set_problem_meta scalar fileparse($problem), $meta;
-
- TODO: {
- local $TODO = $meta->{todo} if exists $meta->{todo};
- note "Now testing problem $meta->{name} ($meta->{description})";
-
- for my $source (<$problem/tests/*>) {
- my $meta = LoadFile "$source/meta.yml";
- $meta->{files}{prog}{content} = read_file "$source/$meta->{files}{prog}{name}";
- $job++;
- set_job_inmeta $job, $meta;
- set_job_problem $job, scalar fileparse $problem;
- note "Running $meta->{test_name} ($meta->{test_description})...";
- my $savedcwd = cwd;
- chdir $tempdir;
- Gruntmaster::Daemon::process $job;
- check_job $job;
- chdir $savedcwd;
+ my $pbmeta = LoadFile "$problem/meta.yml";
+ for (1 .. $pbmeta->{testcnt}) {
+ $pbmeta->{infile}[$_ - 1] = read_file "$problem/$_.in" if $pbmeta->{generator} eq 'File';
+ $pbmeta->{okfile}[$_ - 1] = read_file "$problem/$_.ok" if $pbmeta->{runner} && $pbmeta->{runner} eq 'File';
+ }
+ if (exists $pbmeta->{files}) {
+ $_->{content} = read_file "$problem/$_->{name}" for values %{$pbmeta->{files}}
+ }
+
+ TODO: {
+ note "Now testing problem $pbmeta->{name} ($pbmeta->{description})";
+
+ for my $source (<$problem/tests/*>) {
+ SKIP: {
+ my $meta = LoadFile "$source/meta.yml";
+ if ($meta->{files}{prog}) {
+ 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} && $needs_fork{$format};
+ $meta->{files}{prog}{content} = read_file "$source/$meta->{files}{prog}{name}";
+ }
+ $meta = merge $meta, $pbmeta;
+ local $TODO = $meta->{todo} if exists $meta->{todo};
+ note "Running $meta->{test_name} ($meta->{test_description})...";
+ my $savedcwd = getcwd;
+ chdir $tempdir;
+ Gruntmaster::Daemon::process $meta;
+ chdir $savedcwd;
+ check_job $meta;
+ }
+ }