Mercurial > pub > Impl

diff 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
line wrap: on
line diff
--- a/Lib/IMPL/Test/TAPListener.pm	Fri Apr 16 16:33:11 2010 +0400
+++ b/Lib/IMPL/Test/TAPListener.pm	Mon Apr 19 02:38:18 2010 +0400
@@ -58,7 +58,7 @@
             $result->State == IMPL::Test::Result::SUCCESS ?
             "ok $n " . join("\n# ", split(/\n/, $result->Name) )
                 :
-            "not ok $n " . (eval { $result->Exception->isa('IMPL::Test::SkipException') } ? '#SKIP: ' : '') . join("\n# ", split(/\n/, $result->Name.": ".$result->Exception || '') )
+           (eval { $result->Exception->isa('IMPL::Test::SkipException') } ? "ok $n #SKIP: " : "not ok $n ") . join("\n# ", split(/\n/, $result->Name.": ".$result->Exception || '') )
         ),"\n";
         
 }