280021ccc4981e50775f7856f688690230d3caa8
[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 my $old = Subunit::Diff::from_file($ARGV[0]);
13 my $new = Subunit::Diff::from_file($ARGV[1]);
14
15 my $ret = Subunit::Diff::diff($old, $new);
16
17 foreach my $e (keys %$ret) {
18         printf "%s: %s -> %s\n", $e, $ret->{$e}[0], $ret->{$e}[1];
19 }
20
21 0;