my $unexpected_ok = 0;
my $expected_fail = 0;
my $unexpected_fail = 0;
- my $prefix = "";
my $unexpected_err = 0;
my $orig_open_len = $#$open_tests;
push (@$open_tests, $1);
} elsif (/^time: (\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)Z\n/) {
$msg_ops->report_time(mktime($6, $5, $4, $3, $2, $1));
- } elsif (/^prefix: (.*)\n/) {
- $prefix = $1;
} elsif (/^(success|successful|failure|fail|skip|knownfail|error|xfail): (.*?)( \[)?([ \t]*)\n/) {
$msg_ops->control_msg($_);
my $result = $1;
unless ($terminated) {
$statistics->{TESTS_ERROR}++;
- $msg_ops->end_test($open_tests, $testname, $result, 1, "reason interrupted");
+ $msg_ops->end_test($testname, $result, 1, "reason interrupted");
return 1;
}
}
if ($result eq "success" or $result eq "successful") {
pop(@$open_tests); #FIXME: Check that popped value == $testname
$statistics->{TESTS_EXPECTED_OK}++;
- $msg_ops->end_test($open_tests, $testname, $result, 0, $reason);
+ $msg_ops->end_test($testname, $result, 0, $reason);
} elsif ($result eq "xfail" or $result eq "knownfail") {
pop(@$open_tests); #FIXME: Check that popped value == $testname
$statistics->{TESTS_EXPECTED_FAIL}++;
- $msg_ops->end_test($open_tests, $testname, $result, 0, $reason);
+ $msg_ops->end_test($testname, $result, 0, $reason);
$expected_fail++;
} elsif ($result eq "failure" or $result eq "fail") {
pop(@$open_tests); #FIXME: Check that popped value == $testname
$statistics->{TESTS_UNEXPECTED_FAIL}++;
- $msg_ops->end_test($open_tests, $testname, $result, 1, $reason);
+ $msg_ops->end_test($testname, $result, 1, $reason);
$unexpected_fail++;
} elsif ($result eq "skip") {
$statistics->{TESTS_SKIP}++;
if (defined($last) and $last ne $testname) {
push (@$open_tests, $testname);
}
- $msg_ops->end_test($open_tests, $testname, $result, 0, $reason);
+ $msg_ops->end_test($testname, $result, 0, $reason);
} elsif ($result eq "error") {
$statistics->{TESTS_ERROR}++;
pop(@$open_tests); #FIXME: Check that popped value == $testname
- $msg_ops->end_test($open_tests, $testname, $result, 1, $reason);
+ $msg_ops->end_test($testname, $result, 1, $reason);
$unexpected_err++;
}
} else {
printf "time: %04d-%02d-%02d %02d:%02d:%02dZ\n", $year+1900, $mon, $mday, $hour, $min, $sec;
}
-sub prefix($)
-{
- my ($prefix) = @_;
- print "prefix: $prefix\n";
-}
-
1;
sub start_test($$$)
{
- my ($self, $parents, $testname) = @_;
-
- if ($#$parents == -1) {
- $self->start_testsuite($testname);
- }
+ my ($self, $testname) = @_;
}
sub end_test($$$$$)
{
- my ($self, $parents, $testname, $result, $unexpected, $reason) = @_;
+ my ($self, $testname, $result, $unexpected, $reason) = @_;
if ($unexpected) {
$self->{test_output}->{$self->{NAME}} .= "UNEXPECTED($result): $testname\n";
}
-
- if ($#$parents == -1) {
- $self->end_testsuite($testname, $result, $unexpected, $reason);
- }
}
sub summary($)
{
my ($self, $name) = @_;
+ $self->{START_TIME} = $self->{last_time};
+
$self->{local_statistics} = {
success => 0,
skip => 0,
sub start_test($$)
{
- my ($self, $parents, $testname) = @_;
-
- if ($#$parents == -1) {
- $self->{START_TIME} = $self->{last_time};
- $self->start_testsuite($testname);
- return;
- }
+ my ($self, $testname) = @_;
$self->{active_test} = $testname;
$self->{msg} = "";
}
-sub end_test($$$$$$)
+sub end_test($$$$)
{
- my ($self, $parents, $testname, $result, $unexpected, $reason) = @_;
-
- if ($#$parents == -1) {
- $self->end_testsuite($testname, $result, $unexpected, $reason);
- return;
- }
+ my ($self, $testname, $result, $unexpected, $reason) = @_;
print TEST "<tr>";
sub start_test($$$)
{
- my ($self, $parents, $testname) = @_;
-
- if ($#$parents == -1) {
- $self->start_testsuite($testname);
- }
+ my ($self, $testname) = @_;
}
sub end_test($$$$$)
{
- my ($self, $parents, $testname, $result, $unexpected, $reason) = @_;
+ my ($self, $testname, $result, $unexpected, $reason) = @_;
- if ($#$parents == -1) {
- if ($result eq "skip") {
- $self->skip_testsuite($testname, $reason);
- } else {
- $self->end_testsuite($testname, $result, $unexpected, $reason);
- }
- return;
- }
-
my $append = "";
unless ($unexpected) {
return;
}
- my $fullname = join(".", @$parents).".$testname";
-
- $append = "UNEXPECTED($result): $testname ($fullname)\n";
+ $append = "UNEXPECTED($result): $testname\n";
$self->{test_output}->{$self->{NAME}} .= $append;
Subunit::end_test($name, $result, $reason);
}
-sub start_test($$$)
+sub start_test($$)
{
- my ($self, $parents, $testname) = @_;
+ my ($self, $testname) = @_;
Subunit::start_test($testname);
}
sub end_test($$$$$)
{
- my ($self, $parents, $testname, $result, $unexpected, $reason) = @_;
+ my ($self, $testname, $result, $unexpected, $reason) = @_;
if ($result eq "fail" and not $unexpected) { $result = "xfail"; }
my $pcap_file = setup_pcap($name);
Subunit::report_time(time());
- Subunit::prefix($name);
Subunit::start_test($name);
my $ret = system("$cmd | $RealBin/filter-subunit.pl --prefix \"$name.\" 2>&1");