Mercurial > pub > Impl
comparison Lib/IMPL/Test/TAPListener.pm @ 84:e568c7c8b743
Minor changes to the test infrastructure
author | wizard |
---|---|
date | Wed, 14 Apr 2010 17:38:11 +0400 |
parents | 16ada169ca75 |
children | 52eeec77504b |
comparison
equal
deleted
inserted
replaced
83:74bae30eb25e | 84:e568c7c8b743 |
---|---|
56 | 56 |
57 print $out ( | 57 print $out ( |
58 $result->State == IMPL::Test::Result::SUCCESS ? | 58 $result->State == IMPL::Test::Result::SUCCESS ? |
59 "ok $n " . join("\n# ", split(/\n/, $result->Name) ) | 59 "ok $n " . join("\n# ", split(/\n/, $result->Name) ) |
60 : | 60 : |
61 "not ok $n " . (eval { $result->Exception->isa('IMPL::Test::SkipException') } ? '# SKIP ' : '') . join("\n# ", split(/\n/, $result->Name."\n".$result->Exception || '') ) | 61 "not ok $n " . (eval { $result->Exception->isa('IMPL::Test::SkipException') } ? '#SKIP: ' : '') . join("\n# ", split(/\n/, $result->Name.": ".$result->Exception || '') ) |
62 ),"\n"; | 62 ),"\n"; |
63 | 63 |
64 } | 64 } |
65 | 65 |
66 sub save { | 66 sub save { |