diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2009-06-05 16:10:12 +0200 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2009-06-11 19:59:59 +0200 |
commit | 68578d6374236e0606b21f5168956c3a515b7b0c (patch) | |
tree | 5bdb214f3da7fc4a494b22c6bcfb0d6e281b9e35 /selftest/filter-subunit.pl | |
parent | e979560c134b70954a167ecdc6aad957763c8006 (diff) | |
download | samba-68578d6374236e0606b21f5168956c3a515b7b0c.tar.gz samba-68578d6374236e0606b21f5168956c3a515b7b0c.tar.bz2 samba-68578d6374236e0606b21f5168956c3a515b7b0c.zip |
selftest: Fix handling of testsuite, reintroduce progress indication.
Diffstat (limited to 'selftest/filter-subunit.pl')
-rwxr-xr-x | selftest/filter-subunit.pl | 29 |
1 files changed, 26 insertions, 3 deletions
diff --git a/selftest/filter-subunit.pl b/selftest/filter-subunit.pl index 9a2c6f556c..b7a72217f3 100755 --- a/selftest/filter-subunit.pl +++ b/selftest/filter-subunit.pl @@ -147,9 +147,9 @@ sub output_msg($$) print $msg; } -sub start_test($$$) +sub start_test($$) { - my ($self, $parents, $testname) = @_; + my ($self, $testname) = @_; if (defined($opt_prefix)) { $testname = $opt_prefix.$testname; @@ -160,7 +160,7 @@ sub start_test($$$) sub end_test($$$$$) { - my ($self, $parents, $testname, $result, $unexpected, $reason) = @_; + my ($self, $testname, $result, $unexpected, $reason) = @_; if (defined($opt_prefix)) { $testname = $opt_prefix.$testname; @@ -174,6 +174,29 @@ sub end_test($$$$$) Subunit::end_test($testname, $result, $reason); } +sub skip_testsuite($;$) +{ + Subunit::skip_testsuite(@_); +} + +sub start_testsuite($;$) +{ + my ($self, $name) = @_; + Subunit::start_testsuite($name); +} + +sub end_testsuite($$;$) +{ + my ($self, $name, $result, $reason) = @_; + Subunit::end_testsuite($name, $result, $reason); +} + +sub testsuite_count($$) +{ + my ($self, $count) = @_; + Subunit::testsuite_count($count); +} + my $msg_ops = {}; bless $msg_ops; |