Rev 12058: Set up all required environments before starting tests.
in file:///home/jelmer/bzr.samba/SAMBA_4_0/
Jelmer Vernooij
jelmer at samba.org
Mon Apr 30 13:48:29 GMT 2007
At file:///home/jelmer/bzr.samba/SAMBA_4_0/
------------------------------------------------------------
revno: 12058
revision-id: jelmer at samba.org-20070430134815-hu9us8v3vsm2jmtz
parent: svn-v2:22602 at 0c0555d6-39d7-0310-84fc-f1cc0bd64818-branches%2fSAMBA_4_0
committer: Jelmer Vernooij <jelmer at samba.org>
branch nick: SAMBA_4_0
timestamp: Mon 2007-04-30 15:48:15 +0200
message:
Set up all required environments before starting tests.
modified:
source/selftest/selftest.pl svn-v2:22575 at 0c0555d6-39d7-0310-84fc-f1cc0bd64818-branches%2fSAMBA_4_0-source%2fselftest%2fselftest.pl
=== modified file 'source/selftest/selftest.pl'
--- a/source/selftest/selftest.pl 2007-04-29 20:37:59 +0000
+++ b/source/selftest/selftest.pl 2007-04-30 13:48:15 +0000
@@ -134,6 +134,7 @@
my $opt_analyse_cmd = undef;
my $opt_resetup_env = undef;
my $opt_bindir = undef;
+my $opt_no_lazy_setup = undef;
my $srcdir = ".";
my $builddir = ".";
@@ -454,6 +455,7 @@
'testenv' => \$opt_testenv,
'ldap:s' => \$ldap,
'analyse-cmd=s' => \$opt_analyse_cmd,
+ 'no-lazy-setup' => \$opt_no_lazy_setup,
'resetup-environment' => \$opt_resetup_env,
'bindir:s' => \$opt_bindir,
);
@@ -647,6 +649,7 @@
my $testsdir = "$srcdir/selftest";
$ENV{CONFIGURATION} = "--configfile=$conffile";
+my %required_envs = ();
if ($opt_quick) {
open(IN, "$testsdir/tests_quick.sh|");
@@ -661,8 +664,10 @@
$env =~ s/\n//g;
my $cmdline = <IN>;
$cmdline =~ s/\n//g;
- push (@todo, [$name, $env, $cmdline])
- if (not defined($tests) or $name =~ /$tests/);
+ if (not defined($tests) or $name =~ /$tests/) {
+ $required_envs{$env} = 1;
+ push (@todo, [$name, $env, $cmdline]);
+ }
} else {
print;
}
@@ -777,6 +782,10 @@
$msg_ops = $plain_msg_ops;
}
+if ($opt_no_lazy_setup) {
+ setup_env($_) foreach (keys %required_envs);
+}
+
if ($opt_testenv) {
my $testenv_name = $ENV{SELFTEST_TESTENV};
$testenv_name = "dc" unless defined($testenv_name);
More information about the samba-cvs
mailing list