diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2010-09-13 23:56:26 +0200 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2010-09-14 10:54:28 +0200 |
| commit | d3960f6b406272cc37820fad04aed6ddfd4e6cce (patch) | |
| tree | eb80110d759fa3db8f07688933e2492eece7c29a /selftest/selftest.pl | |
| parent | 49411fa1079fc78cba4751d57a3c76096fc1b772 (diff) | |
| download | samba-d3960f6b406272cc37820fad04aed6ddfd4e6cce.tar.gz samba-d3960f6b406272cc37820fad04aed6ddfd4e6cce.tar.xz samba-d3960f6b406272cc37820fad04aed6ddfd4e6cce.zip | |
subunit.pm: Simplify subunit handling in perl.
Diffstat (limited to 'selftest/selftest.pl')
| -rwxr-xr-x | selftest/selftest.pl | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/selftest/selftest.pl b/selftest/selftest.pl index 75110708ccf..1483174d7a9 100755 --- a/selftest/selftest.pl +++ b/selftest/selftest.pl @@ -242,18 +242,10 @@ sub run_testsuite($$$$$) Subunit::report_time(time()); open(RESULTS, "$cmd 2>&1|"); - my $statistics = { - TESTS_UNEXPECTED_OK => 0, - TESTS_EXPECTED_OK => 0, - TESTS_UNEXPECTED_FAIL => 0, - TESTS_EXPECTED_FAIL => 0, - TESTS_ERROR => 0, - TESTS_SKIP => 0, - }; - - my $msg_ops = new Subunit::Filter("$name\.", []); - - parse_results($msg_ops, $statistics, *RESULTS); + + my $msg_ops = new Subunit::Filter("$name\."); + + parse_results($msg_ops, *RESULTS); my $ret = 0; |