diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2009-06-05 17:25:42 +0200 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2009-06-11 19:59:59 +0200 |
commit | 84f2d3001dd8a9e8734d0b36f4e1445fc1a8254c (patch) | |
tree | 4d108911d5257ef64dd8fb875f1ab52b7e772f4e /selftest/diff-subunit.pl | |
parent | d8a77a798b5c691c76fcbadbc41c97ff1c9922f3 (diff) | |
download | samba-84f2d3001dd8a9e8734d0b36f4e1445fc1a8254c.tar.gz samba-84f2d3001dd8a9e8734d0b36f4e1445fc1a8254c.tar.xz samba-84f2d3001dd8a9e8734d0b36f4e1445fc1a8254c.zip |
selftest/subunit: Add diff command that can diff two subunit streams.
Diffstat (limited to 'selftest/diff-subunit.pl')
-rwxr-xr-x | selftest/diff-subunit.pl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/selftest/diff-subunit.pl b/selftest/diff-subunit.pl new file mode 100755 index 00000000000..225c3d8986b --- /dev/null +++ b/selftest/diff-subunit.pl @@ -0,0 +1,24 @@ +#!/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; + +open(FH1, $ARGV[0]) or die("Unable to open $ARGV[0]: $!"); +open(FH2, $ARGV[1]) or die("Unable to open $ARGV[1]: $!"); + +my $ret = Subunit::Diff::diff(*FH1, *FH2); + +close(FH1); +close(FH2); + +foreach my $e (keys %$ret) { + printf "%s: %s -> %s\n", $e, $ret->{$e}[0], $ret->{$e}[1]; +} + +0; |