Mercurial > pub > Impl

comparison lib/IMPL/Test/Unit.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
84 # we need to call Cleanup anyway 84 # we need to call Cleanup anyway
85 $this->Cleanup($session); 85 $this->Cleanup($session);
86 }; 86 };
87 87
88 return new IMPL::Test::Result( 88 return new IMPL::Test::Result(
89 Name => $this->Name, 89 name => $this->Name,
90 State => IMPL::Test::Result::SUCCESS, 90 state => IMPL::Test::Result::SUCCESS,
91 TimeExclusive => $elapsed, 91 timeExclusive => $elapsed,
92 TimeInclusive => tv_interval ( $t ) 92 timeInclusive => tv_interval ( $t )
93 ); 93 );
94 } catch IMPL::Test::FailException with { 94 } catch IMPL::Test::FailException with {
95 my $e = shift; 95 my $e = shift;
96 return new IMPL::Test::Result( 96 return new IMPL::Test::Result(
97 Name => $this->Name, 97 name => $this->Name,
98 State => IMPL::Test::Result::FAIL, 98 state => IMPL::Test::Result::FAIL,
99 Exception => $e, 99 exception => $e,
100 TimeInclusive => tv_interval ( $t ) 100 timeInclusive => tv_interval ( $t )
101 ); 101 );
102 } otherwise { 102 } otherwise {
103 my $e = shift; 103 my $e = shift;
104 return new IMPL::Test::Result( 104 return new IMPL::Test::Result(
105 Name => $this->Name, 105 name => $this->Name,
106 State => IMPL::Test::Result::ERROR, 106 state => IMPL::Test::Result::ERROR,
107 Exception => $e, 107 exception => $e,
108 TimeInclusive => tv_interval ( $t ) 108 timeInclusive => tv_interval ( $t )
109 ); 109 );
110 } 110 }
111 } 111 }
112 112
113 sub GetResourceFile { 113 sub GetResourceFile {