71 lines
1.8 KiB
Plaintext
71 lines
1.8 KiB
Plaintext
|
#! /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");
|