mirror of
https://github.com/samba-team/samba.git
synced 2024-12-22 13:34:15 +03:00
selftest: Remove diff-subunit - it's included in subunit and not necessary for normal operation.
This commit is contained in:
parent
c108a2e74e
commit
0cdc021ba4
@ -1,80 +0,0 @@
|
||||
#!/usr/bin/perl
|
||||
# Diff two subunit streams
|
||||
# Copyright (C) Jelmer Vernooij <jelmer@samba.org>
|
||||
# Published under the GNU GPL, v3 or later
|
||||
|
||||
package Subunit::Diff;
|
||||
|
||||
use strict;
|
||||
|
||||
use Subunit qw(parse_results);
|
||||
|
||||
sub control_msg() { }
|
||||
sub report_time($$) { }
|
||||
|
||||
sub output_msg($$)
|
||||
{
|
||||
my ($self, $msg) = @_;
|
||||
|
||||
# No output for now, perhaps later diff this as well ?
|
||||
}
|
||||
|
||||
sub start_test($$)
|
||||
{
|
||||
my ($self, $testname) = @_;
|
||||
}
|
||||
|
||||
sub end_test($$$$$)
|
||||
{
|
||||
my ($self, $testname, $result, $unexpected, $reason) = @_;
|
||||
|
||||
$self->{$testname} = $result;
|
||||
}
|
||||
|
||||
sub skip_testsuite($;$) { }
|
||||
sub start_testsuite($;$) { }
|
||||
sub end_testsuite($$;$) { }
|
||||
sub testsuite_count($$) { }
|
||||
|
||||
sub new {
|
||||
my ($class) = @_;
|
||||
|
||||
my $self = {
|
||||
};
|
||||
bless($self, $class);
|
||||
}
|
||||
|
||||
sub from_file($)
|
||||
{
|
||||
my ($path) = @_;
|
||||
my $statistics = {
|
||||
TESTS_UNEXPECTED_OK => 0,
|
||||
TESTS_EXPECTED_OK => 0,
|
||||
TESTS_UNEXPECTED_FAIL => 0,
|
||||
TESTS_EXPECTED_FAIL => 0,
|
||||
TESTS_ERROR => 0,
|
||||
TESTS_SKIP => 0,
|
||||
};
|
||||
|
||||
my $ret = new Subunit::Diff();
|
||||
open(IN, $path) or return;
|
||||
parse_results($ret, $statistics, *IN);
|
||||
close(IN);
|
||||
return $ret;
|
||||
}
|
||||
|
||||
sub diff($$)
|
||||
{
|
||||
my ($old, $new) = @_;
|
||||
my $ret = {};
|
||||
|
||||
foreach my $testname (keys %$old) {
|
||||
if ($new->{$testname} ne $old->{$testname}) {
|
||||
$ret->{$testname} = [$old->{$testname}, $new->{$testname}];
|
||||
}
|
||||
}
|
||||
|
||||
return $ret;
|
||||
}
|
||||
|
||||
1;
|
@ -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;
|
Loading…
Reference in New Issue
Block a user