diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2009-06-05 16:36:10 +0200 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2009-06-11 19:59:59 +0200 |
commit | 2e311fdac56f43998bb192418f617e6e7a6fc320 (patch) | |
tree | a66483595fcf396408a96d93b97beb3327eb3db5 /selftest/Subunit.pm | |
parent | ed61cc5419651437ae0b8eb7d3dd9c56c7627388 (diff) | |
download | samba-2e311fdac56f43998bb192418f617e6e7a6fc320.tar.gz samba-2e311fdac56f43998bb192418f617e6e7a6fc320.tar.xz samba-2e311fdac56f43998bb192418f617e6e7a6fc320.zip |
selftest/subunit: Remove open_tests argument from parse_results.
Diffstat (limited to 'selftest/Subunit.pm')
-rw-r--r-- | selftest/Subunit.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/selftest/Subunit.pm b/selftest/Subunit.pm index 71d65f0ee53..16aab739262 100644 --- a/selftest/Subunit.pm +++ b/selftest/Subunit.pm @@ -23,14 +23,14 @@ require Exporter; use strict; -sub parse_results($$$$) +sub parse_results($$$) { - my ($msg_ops, $statistics, $fh, $open_tests) = @_; + my ($msg_ops, $statistics, $fh) = @_; my $unexpected_ok = 0; my $expected_fail = 0; my $unexpected_fail = 0; my $unexpected_err = 0; - my $orig_open_len = $#$open_tests; + my $open_tests = []; while(<$fh>) { if (/^test: (.+)\n/) { @@ -103,7 +103,7 @@ sub parse_results($$$$) } } - while ($#$open_tests > $orig_open_len) { + while ($#$open_tests+1 > 0) { $msg_ops->end_test(pop(@$open_tests), "error", 1, "was started but never finished!"); $statistics->{TESTS_ERROR}++; |