From ee638edb8ce97aeb5b6e76921cf63a0cc995f786 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sun, 8 Feb 2015 17:04:16 +0200 Subject: [PATCH] Improve test names --- t/01-jobs.t | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/t/01-jobs.t b/t/01-jobs.t index d0c928b..f44a1e8 100644 --- a/t/01-jobs.t +++ b/t/01-jobs.t @@ -48,9 +48,10 @@ sub check_job{ 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 $desc = $meta->{name} . ': ' . $meta->{test_name}; + is $meta->{result}, $meta->{expected_result}, "Result is correct ($desc)"; + is $meta->{result_text}, $meta->{expected_result_text}, "Result text is correct ($desc)"; + is_deeply $meta->{results}, $meta->{expected_results}, "Results are correct ($desc)"; } my @problems = exists $ENV{TEST_PROBLEMS} ? map {"t/problems/$_"} split ' ', $ENV{TEST_PROBLEMS} : ; -- 2.30.2