sub cleanup_test{
  my ($self, $result) = @_;
	
  # Update statistics
  $self->{_test_statistics}{num_tests}++;
  if ($result == 0) {
  $self->{_test_statistics}{num_tests_failed}++;
  }
  # Log testcase result and return
  log_testcase($self->{_test_name}, $self->{_testcase_name}, $self->{_test_statistics}{num_tests_failed}, $duration, $self->{_log_file});