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
6use Getopt::Long;
7use strict;
8use FindBin qw($RealBin $Script);
9use lib "$RealBin";
10use Subunit::Diff;
11
12my $old = Subunit::Diff::from_file($ARGV[0]);
13my $new = Subunit::Diff::from_file($ARGV[1]);
14
15my $ret = Subunit::Diff::diff($old, $new);
16
17foreach my $e (sort(keys %$ret)) {
18	printf "%s: %s -> %s\n", $e, $ret->{$e}[0], $ret->{$e}[1];
19}
20
210;
22