lib/subunit/perl/subunit-diff

   1 #!/usr/bin/perl
   2 # Diff two subunit streams
   3 # Copyright (C) Jelmer Vernooij <jelmer@samba.org>
   4 #
   5 #  Licensed under either the Apache License, Version 2.0 or the BSD 3-clause
   6 #  license at the users choice. A copy of both licenses are available in the
   7 #  project source as Apache-2.0 and BSD. You may not use this file except in
   8 #  compliance with one of these two licences.
   9 #
  10 #  Unless required by applicable law or agreed to in writing, software
  11 #  distributed under these licenses is distributed on an "AS IS" BASIS, WITHOUT
  12 #  WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.  See the
  13 #  license you chose for the specific language governing permissions and
  14 #  limitations under that license.
  15
  16 use Getopt::Long;
  17 use strict;
  18 use FindBin qw($RealBin $Script);
  19 use lib "$RealBin/lib";
  20 use Subunit::Diff;
  21
  22 my $old = Subunit::Diff::from_file($ARGV[0]);
  23 my $new = Subunit::Diff::from_file($ARGV[1]);
  24
  25 my $ret = Subunit::Diff::diff($old, $new);
  26
  27 foreach my $e (sort(keys %$ret)) {
  28         printf "%s: %s -> %s\n", $e, $ret->{$e}[0], $ret->{$e}[1];
  29 }
  30
  31 0;