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 (sort(keys %$ret)) {
  18         printf "%s: %s -> %s\n", $e, $ret->{$e}[0], $ret->{$e}[1];
  19 }
  20
  21 0;