Mercurial > pub > Impl

comparison 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
comparison
equal deleted inserted replaced
409:f7eeafbd33da 410:9335cf010b23
53 my $n = $this->_testNo; 53 my $n = $this->_testNo;
54 54
55 $this->_testNo($n+1); 55 $this->_testNo($n+1);
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 (eval { $result->Exception->isa('IMPL::Test::SkipException') } ? "ok $n #SKIP: " : "not ok $n ") . 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 {