}
}
+sub control_msg($$$)
+{
+ my ($self, $state, $output) = @_;
+
+ $self->output_msg($state, $output);
+}
+
sub end_testsuite($$$$$)
{
my ($self, $state, $expected_ret, $ret, $envlog) = @_;
my ($state, $testname) = @_;
}
-sub end_test($$$$)
+sub end_test($$$$$$)
{
- my ($state, $testname, $result, $unexpected) = @_;
+ my ($self, $state, $testname, $result, $unexpected, $reason) = @_;
+
+ if ($unexpected and $self->{immediate} and not $self->{verbose}) {
+ print "$testname: $result [ $reason ]\n";
+ print $self->{test_output}->{$state->{NAME}}."\n";
+ }
+ $self->{test_output}->{$state->{NAME}} = "";
}
sub summary($)
print "FAIL: $name (ENV[$envname] not available!)\n";
}
-sub skip_testsuite($$)
+sub skip_testsuite($$$)
{
- my ($self, $name) = @_;
+ my ($self, $envname, $name, $reason) = @_;
- print "SKIPPED: $name\n";
+ if ($reason) {
+ print "SKIPPED: $name [$reason]\n";
+ } else {
+ print "SKIPPED: $name\n";
+ }
}
1;