Mercurial > pub > Impl

diff lib/IMPL/Test/TAPListener.pm @ 410:9335cf010b23 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactoring
author cin
date Mon, 14 Sep 2015 01:11:53 +0300
parents c6e90e02dd17
children
line wrap: on
line diff
--- a/lib/IMPL/Test/TAPListener.pm	Sun Sep 13 19:30:49 2015 +0300
+++ b/lib/IMPL/Test/TAPListener.pm	Mon Sep 14 01:11:53 2015 +0300
@@ -55,10 +55,10 @@
     $this->_testNo($n+1);
     
     print $out (
-            $result->State == IMPL::Test::Result::SUCCESS ?
-            "ok $n " . join("\n# ", split(/\n/, $result->Name) )
+            $result->state == IMPL::Test::Result::SUCCESS ?
+            "ok $n " . join("\n# ", split(/\n/, $result->name) )
                 :
-           (eval { $result->Exception->isa('IMPL::Test::SkipException') } ? "ok $n #SKIP: " : "not ok $n ") . 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";
         
 }