- my ($state, $testname, $result, $unexpected, $reason) = @_;
+ 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}} = "";