Blob Blame Raw
#! /usr/bin/perl
# Compare build logs for the testsuite results regressions.
# $Id$

use strict;
use warnings;
use Data::Dumper;

my $reverse=shift @ARGV if ($ARGV[0]||"") eq "-r";

sub readfile($)
{
my($filename)=@_;

	local *F;
	open F,$filename or die "open \"$filename\": $!";
	my $F=do { local $/; <F>; };
	close F or die "close \"$filename\": $!";
	return $F;
}

sub writefile($$)
{
my($filename,$content)=@_;

	local *F;
	open F,">$filename" or die "create \"$filename\": $!";
	print F $content or die "write \"$filename\": $!";
	close F or die "close \"$filename\": $!";
}

local *DIR;
opendir DIR,"tests" or die "opendir: $!";
my %arch;
for my $name (sort readdir(DIR)) {
	next if $name!~/-([^-]*)[.]log$/o;
	my $arch=$1;
	(my $sum=$name)=~s/log$/sum/ or die;
	my $i=readfile "tests/$name";
	my $o="";
	while ($i=~/\n(Native configuration is.*?Summary ===\n.*?\n)make\Q[\E/gs) {
		$o.=$1;
	}
	# Version string differs.
	$o=~s{/builddir/build/BUILD/binutils-[^/]*/+}{}g;
	$o=~s{^(Version .*) 20\d{6}$}{$1}mg;
	$o=~s{^(\Q../as-new\E) 20\d{6}$}{$1}mg;
	$o=~s{^(build-[^/]*/ld/ld-new) 20\d{6}$}{$1}mg;
	writefile "tests/$sum",$o;
	push @{$arch{$arch}},$sum;
}
closedir DIR or die "closedir: $!";

for (values(%arch)) {
	next if 2==@$_;
	warn "Single element: ".${$_}[0]."\n" if 1==@$_;
	die "Not 2 elements:\n".Dumper($_) if 1!=@$_;
}

system("rm -f tests/gdbcompare-*.diff") and die;

for my $arch (sort keys(%arch)) {
	next if 2!=@{$arch{$arch}};
	# sub trans { return {"."=>0,"-"=>1}->{($_[0]=~/([-.])[^-.]+[.]\w+$/)[0]}.$_[0]; };
	sub trans { return $_[0]; };
	my @sorted=sort { my $a1=trans $a; my $b1=trans $b; ($b1 cmp $a1) * ($reverse ? -1 : +1); } @{$arch{$arch}};
	do { system $_ and die $_; } for "diff -u tests/'".$sorted[1]."' tests/'".$sorted[0]."' >tests/gdbcompare-'$arch'.sum.diff;true";
}

system("vim tests/gdbcompare-*.sum.diff");