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;