rpms
/
gdb
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update for the new multitestsuite layout since gdb-6.7.1-15.fc9.

This commit is contained in:
Jan Kratochvil 2008-03-01 08:01:57 +00:00
parent b3e4c8b04e
commit 082b63b1ab
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gdbcompare
View File

@ -1,5 +1,5 @@
#! /usr/bin/perl
# $Id: gdbcompare,v 1.3 2007/01/09 11:34:40 jkratoch Exp $
# $Id: gdbcompare,v 1.4 2007/04/22 08:52:09 jkratoch Exp $
use strict;
@ -14,7 +14,8 @@ local *DIR;
opendir DIR,"tests" or die "opendir: $!";
my %arch;
for my $name (sort readdir(DIR)) {
next if $name!~/^gdb-.*[-.]([^-.]+)[.]$suffix$/o;
# next if $name!~/^gdb-.*[-.]([^-.]+)[.]$suffix$/o;
next if $name!~/^\d+-(.*)[.]$suffix$/o;
push @{$arch{$1}},$name;
}
closedir DIR or die "closedir: $!";
@ -29,12 +30,13 @@ 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]; };
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'.diff;true";
# 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'.'$suffix'.diff;true";
}
system("vim tests/gdbcompare-*.diff");
system("vim tests/gdbcompare-*.'$suffix'.diff");
__END__;