sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-12-12 12:23:50 +03:00
Code Activity

r20756: Update to use generated recipes.

Browse Source
This commit is contained in:
Jelmer Vernooij
2007-01-14 04:32:11 +00:00
committed by Gerald (Jerry) Carter
parent bbe00636a9
commit 842637f78b
1 changed files with 44 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
source/script/tests/selftest.pl
View File

@@ -104,7 +104,7 @@ Generic options:
--target=samba4|samba3|win Samba version to target --target=samba4|samba3|win Samba version to target
--socket-wrapper enable socket wrapper --socket-wrapper enable socket wrapper
--quick run quick overall test --quick run quick overall test
--one abort when the first test fails
"; ";
exit(0); exit(0);
} }
@@ -113,12 +113,14 @@ my $opt_help = 0;
my $opt_target = "samba4"; my $opt_target = "samba4";
my $opt_quick = 0; my $opt_quick = 0;
my $opt_socket_wrapper = 0; my $opt_socket_wrapper = 0;
my $opt_one = 0;
my $result = GetOptions ( my $result = GetOptions (
'help|h|?' => \$opt_help, 'help|h|?' => \$opt_help,
'target' => \$opt_target, 'target' => \$opt_target,
'socket-wrapper' => \$opt_socket_wrapper, 'socket-wrapper' => \$opt_socket_wrapper,
'quick' => \$opt_quick 'quick' => \$opt_quick,
'one' => \$opt_one
); );
if (not $result) { if (not $result) {
@@ -263,15 +265,49 @@ system("bin/nmblookup $ENV{CONFIGURATION} -U $ENV{SERVER} $ENV{NETBIOSNAME}");
# start off with 0 failures # start off with 0 failures
$ENV{failed} = 0; $ENV{failed} = 0;
$ENV{totalfailed} = 0; my $totalfailed = 0;
my @todo = ();
if ($opt_target eq "win") { if ($opt_target eq "win") {
system("$testsdir/test_win.sh"); system("$testsdir/test_win.sh");
} elsif ($opt_quick) {
system("$testsdir/tests_quick.sh");
} else { } else {
system("$testsdir/tests_all.sh"); if ($opt_quick) {
open(IN, "$testsdir/tests_quick.sh|");
} else {
open(IN, "$testsdir/tests_all.sh|");
} }
while (<IN>) {
if ($_ eq "-- TEST --\n") {
my $name = <IN>;
$name =~ s/\n//g;
my $cmdline = <IN>;
$cmdline =~ s/\n//g;
push (@todo, [$name, $cmdline]);
} else {
print;
}
}
close(IN);
}
my $total = $#todo + 1;
my $i = 0;
$| = 1;
foreach (@todo) {
$i = $i + 1;
my $err = "";
if ($totalfailed > 0) { $err = ", $totalfailed errors"; }
printf "[$i/$total in " . (time() - $start)."s$err] $$_[0]\n";
my $ret = system("$$_[1] >/dev/null 2>/dev/null");
if ($ret != 0) {
$totalfailed++;
exit(1) if ($opt_one);
}
}
print "\n";
close(DATA); close(DATA);
@@ -291,6 +327,7 @@ if ($ldap) {
my $end=time(); my $end=time();
print "DURATION: " . ($end-$start). " seconds\n"; print "DURATION: " . ($end-$start). " seconds\n";
print "$totalfailed failures\n";
# if there were any valgrind failures, show them # if there were any valgrind failures, show them
foreach (<$prefix/valgrind.log*>) { foreach (<$prefix/valgrind.log*>) {