diff options
Diffstat (limited to 'selftest/diff-subunit.pl')
-rwxr-xr-x | selftest/diff-subunit.pl | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/selftest/diff-subunit.pl b/selftest/diff-subunit.pl deleted file mode 100755 index fc80c371f88..00000000000 --- a/selftest/diff-subunit.pl +++ /dev/null @@ -1,21 +0,0 @@ -#!/usr/bin/perl -# Diff two subunit streams -# Copyright (C) Jelmer Vernooij <jelmer@samba.org> -# Published under the GNU GPL, v3 or later - -use Getopt::Long; -use strict; -use FindBin qw($RealBin $Script); -use lib "$RealBin"; -use Subunit::Diff; - -my $old = Subunit::Diff::from_file($ARGV[0]); -my $new = Subunit::Diff::from_file($ARGV[1]); - -my $ret = Subunit::Diff::diff($old, $new); - -foreach my $e (sort(keys %$ret)) { - printf "%s: %s -> %s\n", $e, $ret->{$e}[0], $ret->{$e}[1]; -} - -0; |