From 9faaffa87bbc4f427cabd5debbbab77582c1343c Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Fri, 5 Jun 2009 17:37:41 +0200
Subject: selftest: Make it easier to do subunit diffs from other apps.

---
 selftest/Subunit/Diff.pm | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'selftest/Subunit')

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}) {
-- 
cgit