Select Code to Download

 
sub run_test{

...
     last TESTCASE;   # Exit loop
    } 
}

sub cleanup_test{
  my ($self, $result) = @_;
...
  }
  # Log testcase result and return
  log_testcase($self->{_test_name}, $self->{_testcase_name}, $self->{_
+test_statistics}{num_tests_failed}, $duration, $self->{_log_file});