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