diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2009-06-05 17:37:41 +0200 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2009-06-11 19:59:59 +0200 |
| commit | 9faaffa87bbc4f427cabd5debbbab77582c1343c (patch) | |
| tree | 64d42e06c9653b8ef74ffe0b78ed3431edc041e2 /selftest/Subunit | |
| parent | 84f2d3001dd8a9e8734d0b36f4e1445fc1a8254c (diff) | |
| download | samba-9faaffa87bbc4f427cabd5debbbab77582c1343c.tar.gz samba-9faaffa87bbc4f427cabd5debbbab77582c1343c.tar.bz2 samba-9faaffa87bbc4f427cabd5debbbab77582c1343c.zip | |
selftest: Make it easier to do subunit diffs from other apps.
Diffstat (limited to 'selftest/Subunit')
| -rw-r--r-- | selftest/Subunit/Diff.pm | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/selftest/Subunit/Diff.pm b/selftest/Subunit/Diff.pm index 8add5827f4..5c9e4f0de0 100644 --- a/selftest/Subunit/Diff.pm +++ b/selftest/Subunit/Diff.pm @@ -44,10 +44,9 @@ sub new { bless($self, $class); } -sub diff($$) +sub from_file($) { - my ($fh1, $fh2) = @_; - my $ret = {}; + my ($path) = @_; my $statistics = { TESTS_UNEXPECTED_OK => 0, TESTS_EXPECTED_OK => 0, @@ -56,10 +55,18 @@ sub diff($$) TESTS_ERROR => 0, TESTS_SKIP => 0, }; - my $old = new Subunit::Diff(); - parse_results($old, $statistics, $fh1); - my $new = new Subunit::Diff(); - parse_results($new, $statistics, $fh2); + + my $ret = new Subunit::Diff(); + open(IN, $path) or return; + parse_results($ret, $statistics, IN); + close(IN); + return $ret; +} + +sub diff($$) +{ + my ($old, $new) = @_; + my $ret = {}; foreach my $testname (keys %$old) { if ($new->{$testname} ne $old->{$testname}) { |