sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-01-11 05:18:09 +03:00
Code

selftest: Make it easier to do subunit diffs from other apps.

Browse Source
This commit is contained in:
Jelmer Vernooij 2009-06-05 17:37:41 +02:00
parent 84f2d3001d
commit 9faaffa87b
2 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
selftest/Subunit/Diff.pm
View File

@ -44,10 +44,9 @@ sub new {
bless($self, $class);
}
sub diff($$)
sub from_file($)
{
my ($fh1, $fh2) = @_;
my $ret = {};
my ($path) = @_;
my $statistics = {
TESTS_UNEXPECTED_OK => 0,
TESTS_EXPECTED_OK => 0,
@ -56,10 +55,18 @@ sub diff($$)
TESTS_ERROR => 0,
TESTS_SKIP => 0,
};
my $old = new Subunit::Diff();
parse_results($old, $statistics, $fh1);
my $new = new Subunit::Diff();
parse_results($new, $statistics, $fh2);
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}) {

9
selftest/diff-subunit.pl
View File

@ -9,13 +9,10 @@ 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);
close(FH1);
close(FH2);
my $ret = Subunit::Diff::diff($old, $new);
foreach my $e (keys %$ret) {
printf "%s: %s -> %s\n", $e, $ret->{$e}[0], $ret->{$e}[1];