Mercurial > pub > Impl

comparison Lib/IMPL/Test/TAPListener.pm @ 86:52eeec77504b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TAP fixes
author wizard
date Mon, 19 Apr 2010 02:38:18 +0400
parents e568c7c8b743
children 4267a2ac3d46
comparison
equal deleted inserted replaced
85:190c794a41ae 86:52eeec77504b
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.": ".$result->Exception || '') ) 61 (eval { $result->Exception->isa('IMPL::Test::SkipException') } ? "ok $n #SKIP: " : "not ok $n ") . join("\n# ", split(/\n/, $result->Name.": ".$result->Exception || '') )
62 ),"\n"; 62 ),"\n";
63 63
64 } 64 }
65 65
66 sub save { 66 sub save {