Author: jelmer Date: 2007-01-13 16:08:58 +0000 (Sat, 13 Jan 2007) New Revision: 20737
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=20737 Log: Add option parsing. Modified: branches/SAMBA_4_0/source/script/tests/selftest.pl Changeset: Modified: branches/SAMBA_4_0/source/script/tests/selftest.pl =================================================================== --- branches/SAMBA_4_0/source/script/tests/selftest.pl 2007-01-13 15:49:32 UTC (rev 20736) +++ branches/SAMBA_4_0/source/script/tests/selftest.pl 2007-01-13 16:08:58 UTC (rev 20737) @@ -7,6 +7,7 @@ use FindBin qw($RealBin $Script); use File::Spec; +use Getopt::Long; use POSIX; use Cwd; @@ -91,8 +92,36 @@ exit $failed; } -die("Usage: $Script PREFIX TESTS [SOCKET_WRAPPER]") if ( $#ARGV == -1); +sub ShowHelp() +{ + print "Samba test runner +Copyright (C) Jelmer Vernooij <[EMAIL PROTECTED]> +Usage: $Script PREFIX TESTS [SOCKET_WRAPPER] + +Generic options: + --help this help page + --target=samba4|samba3 Samba version to target + +"; + exit(0); +} + +my $opt_help = 0; +my $opt_target = "samba4"; + +my $result = GetOptions ( + 'help|h|?' => \$opt_help, + 'target' => \$opt_target + ); + +if (not $result) { + exit(1); +} + +ShowHelp() if ($opt_help); +ShowHelp() if ($#ARGV <= 0); + my $prefix = shift; my $tests = shift; my $socket_wrapper = shift; @@ -160,14 +189,14 @@ print "NOT USING SOCKET_WRAPPER\n"; } -#Start slapd before smbd +# Start slapd before smbd if ($ldap) { slapd_start($ENV{SLAPD_CONF}, $ENV{LDAPI_ESCAPE}) or die("couldn't start slapd"); print "LDAP PROVISIONING..."; system("$bindir/smbscript $setupdir/provision $ENV{PROVISION_OPTIONS} --ldap-backend=$ENV{LDAPI}") or die("LDAP PROVISIONING failed: $bindir/smbscript $setupdir/provision $ENV{PROVISION_OPTIONS} --ldap-backend=$ENV{LDAPI}"); - #LDAP is slow + # LDAP is slow $torture_maxtime *= 2; } @@ -189,7 +218,7 @@ my @torture_options = ("--option=interfaces=$ENV{TORTURE_INTERFACES} $ENV{CONFIGURATION}"); # ensure any one smbtorture call doesn't run too long push (@torture_options, "--maximum-runtime=$torture_maxtime"); -push (@torture_options, "--target=samba4"); +push (@torture_options, "--target=$opt_target"); push (@torture_options, "--option=torture:progress=no") if (defined($ENV{RUN_FROM_BUILD_FARM}) and $ENV{RUN_FROM_BUILD_FARM} eq "yes");