Mercurial > pub > Impl

comparison Lib/IMPL/Test/TAPListener.pm @ 84:e568c7c8b743

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 {