selftest/subunit: Add diff command that can diff two subunit streams.
[ira/wip.git] / selftest / diff-subunit.pl
1 #!/usr/bin/perl
2 # Diff two subunit streams
3 # Copyright (C) Jelmer Vernooij <jelmer@samba.org>
4 # Published under the GNU GPL, v3 or later
5
6 use Getopt::Long;
7 use strict;
8 use FindBin qw($RealBin $Script);
9 use lib "$RealBin";
10 use Subunit::Diff;
11
12 open(FH1, $ARGV[0]) or die("Unable to open $ARGV[0]: $!");
13 open(FH2, $ARGV[1]) or die("Unable to open $ARGV[1]: $!");
14
15 my $ret = Subunit::Diff::diff(*FH1, *FH2);
16
17 close(FH1);
18 close(FH2);
19
20 foreach my $e (keys %$ret) {
21         printf "%s: %s -> %s\n", $e, $ret->{$e}[0], $ret->{$e}[1];
22 }
23
24 0;