mirror of
git://git.sv.gnu.org/nano.git
synced 2024-11-24 21:59:47 +03:00
ad37e67dd2
* nano-regress: Small tweaks * Change undo code to off unless unabled via a command line option (-u/--undo). Until this code stabilizes this is the only responsible way to treat it. git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4395 35c25a1d-7b9e-4130-9fde-d3aeb78583b8
30 lines
881 B
Perl
Executable File
30 lines
881 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
|
|
sub combinations {
|
|
return [] unless @_;
|
|
my $first = shift;
|
|
my @rest = combinations(@_);
|
|
return @rest, map { [$first, @$_] } @rest;
|
|
}
|
|
|
|
my @allargs=("--enable-debug", "--disable-justify", "--disable-extra", "--enable-tiny", "--disable-browser --disable-help --disable-mouse --disable-operatingdir --disable-speller", "--disable-multibuffer", "--disable-nanorc", "--with-slang");
|
|
my @combos = combinations(@allargs);
|
|
|
|
my $i = 0;
|
|
foreach my $name (@combos) {
|
|
my @args = @$name;
|
|
my $pct = $i / $#combos * 100;
|
|
printf "Trying with options: @args, %d%% done...\n", $pct;
|
|
my $cmd = "./configure @args && make clean all";
|
|
system("($cmd) >/dev/null 2>&1");
|
|
if ($? != 0) {
|
|
print "Build failed for args: @args\n";
|
|
print "To reproduce, run:\n $cmd\n";
|
|
exit(1);
|
|
}
|
|
$i++;
|
|
}
|
|
|
|
print "All options completed successfully!\n";
|