sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-01-08 21:18:16 +03:00
Code

selftest: Avoid system krb5.conf in "none" test env

Browse Source 
Some torture tests do not perform Kerberos activity and do not
run against a server (hence the "none" test env), but do create
a krb5 context, and that causes the Kerberos libs to read
krb5.conf and choke if they don't understand it.

Signed-off-by: Uri Simchoni <uri@samba.org>
Reviewed-by: Andrew Bartlett <abartlet@samba.org>
This commit is contained in:
Uri Simchoni 2015-10-26 07:38:08 +02:00 committed by Andrew Bartlett
parent 8d3106b1a4
commit f9d6be3b74
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
selftest/selftest.pl
View File

@ -831,9 +831,7 @@ sub setup_env($$)
$option = "client" if $option eq "";
if ($envname eq "none") {
$testenv_vars = {};
} elsif (defined(get_running_env($envname))) {
if (defined(get_running_env($envname))) {
$testenv_vars = get_running_env($envname);
if (not $testenv_vars->{target}->check_env($testenv_vars)) {
print $testenv_vars->{target}->getlog_env($testenv_vars);
@ -901,7 +899,6 @@ sub getlog_env($)
sub check_env($)
{
my ($envname) = @_;
return 1 if ($envname eq "none");
my $env = get_running_env($envname);
return $env->{target}->check_env($env);
}

17
selftest/target/Samba4.pm
View File

@ -1999,8 +1999,11 @@ sub getlog_env($$)
sub check_env($$)
{
my ($self, $envvars) = @_;
my $samba_pid = $envvars->{SAMBA_PID};
my $childpid = Samba::cleanup_child($envvars->{SAMBA_PID}, "samba");
return 1 if $samba_pid == -1;
my $childpid = Samba::cleanup_child($samba_pid, "samba");
return ($childpid == 0);
}
@ -2077,6 +2080,8 @@ sub setup_env($$$)
}
return $target3->setup_admember_rfc2307("$path/ad_member_rfc2307",
$self->{vars}->{ad_dc_ntvfs}, 34);
} elsif ($envname eq "none") {
return $self->setup_none("$path/none");
} else {
return "UNKNOWN";
}
@ -2479,4 +2484,14 @@ sub setup_ad_dc($$)
return $env;
}
sub setup_none($$)
{
my ($self, $path) = @_;
my $ret = {
KRB5_CONFIG => abs_path($path) . "/no_krb5.conf",
SAMBA_PID => -1,
}
}
1;