s3: Make run_rpc_command take strings instead of a ndr_interface_table

[sfrench/samba-autobuild/.git] / selftest / diff-subunit.pl

diff --git a/selftest/diff-subunit.pl b/selftest/diff-subunit.pl
index 225c3d8986b421761ddb6f20c0a5c8ea87e2cf10..fc80c371f889d581990baf94c0230d3e36b44f81 100755 (executable)
--- a/selftest/diff-subunit.pl
+++ b/selftest/diff-subunit.pl
@@ -9,15 +9,12 @@ 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 $old = Subunit::Diff::from_file($ARGV[0]);
+my $new = Subunit::Diff::from_file($ARGV[1]);
 
-my $ret = Subunit::Diff::diff(*FH1, *FH2);
+my $ret = Subunit::Diff::diff($old, $new);
 
-close(FH1);
-close(FH2);
-
-foreach my $e (keys %$ret) {
+foreach my $e (sort(keys %$ret)) {
        printf "%s: %s -> %s\n", $e, $ret->{$e}[0], $ret->{$e}[1];
 }