comparison lib/IMPL/Test/Plan.pm @ 410:9335cf010b23 ref20150831

refactoring
author cin
date Mon, 14 Sep 2015 01:11:53 +0300
parents c6e90e02dd17
children
comparison
equal deleted inserted replaced
409:f7eeafbd33da 410:9335cf010b23
150 ); 150 );
151 foreach my $test (@{$info->{Tests}}) { 151 foreach my $test (@{$info->{Tests}}) {
152 152
153 $this->_Tell(RunTest => $badTest); 153 $this->_Tell(RunTest => $badTest);
154 my $result = new IMPL::Test::Result( 154 my $result = new IMPL::Test::Result(
155 Name => $test->Name, 155 name => $test->Name,
156 State => IMPL::Test::Result::FAIL, 156 state => IMPL::Test::Result::FAIL,
157 Exception => $e 157 exception => $e
158 ); 158 );
159 $this->_Tell(EndTest => $badTest,$result); 159 $this->_Tell(EndTest => $badTest,$result);
160 push @results,$result; 160 push @results,$result;
161 } 161 }
162 } 162 }