- my $job = shift;
- my $jobh = get_job $job;
- my $meta = job_inmeta $job;
- $meta->{result} = $jobh->{result};
- $meta->{result_text} = $jobh->{result_text};
- $meta->{results} = $jobh->{results};
- if (defined $meta->{results}) {
- delete $meta->{results}[$_]{time} for keys $meta->{results};
- }
- is $meta->{result}, $meta->{expected_result}, "Result is correct";
- is $meta->{result_text}, $meta->{expected_result_text}, "Result text is correct";
- is_deeply $meta->{results}, $meta->{expected_results}, "Results are correct";
+ my $meta = shift;
+ if (defined $meta->{results}) {
+ delete $meta->{results}[$_]{time} for keys @{$meta->{results}};
+ }
+ is $meta->{result}, $meta->{expected_result}, "Result is correct";
+ is $meta->{result_text}, $meta->{expected_result_text}, "Result text is correct";
+ is_deeply $meta->{results}, $meta->{expected_results}, "Results are correct";