2 # Diff two subunit streams
3 # Copyright (C) Jelmer Vernooij <jelmer@samba.org>
4 # Published under the GNU GPL, v3 or later
10 use Subunit qw(parse_results);
13 sub report_time($$) { }
17 my ($self, $msg) = @_;
19 # No output for now, perhaps later diff this as well ?
24 my ($self, $testname) = @_;
29 my ($self, $testname, $result, $unexpected, $reason) = @_;
31 $self->{$testname} = $result;
34 sub skip_testsuite($;$) { }
35 sub start_testsuite($;$) { }
36 sub end_testsuite($$;$) { }
37 sub testsuite_count($$) { }
51 TESTS_UNEXPECTED_OK => 0,
52 TESTS_EXPECTED_OK => 0,
53 TESTS_UNEXPECTED_FAIL => 0,
54 TESTS_EXPECTED_FAIL => 0,
59 my $ret = new Subunit::Diff();
60 open(IN, $path) or return;
61 parse_results($ret, $statistics, *IN);
71 foreach my $testname (keys %$old) {
72 if ($new->{$testname} ne $old->{$testname}) {
73 $ret->{$testname} = [$old->{$testname}, $new->{$testname}];