From f9018bc0ea882bf9303350ca594262c88942c38f Mon Sep 17 00:00:00 2001 From: Andrew Bartlett Date: Tue, 15 Jun 2010 22:24:36 +1000 Subject: s4:selftest Add test environment for functional level 2000 This required that we pass the name of the realm down as a parameter, so we can start up two different realms. Andrew Bartlett --- selftest/target/Samba4.pm | 87 ++++++++++++++++++++++++++++++++++++++++++----- 1 file changed, 79 insertions(+), 8 deletions(-) (limited to 'selftest') diff --git a/selftest/target/Samba4.pm b/selftest/target/Samba4.pm index 0bc9c005e5..041abd687c 100644 --- a/selftest/target/Samba4.pm +++ b/selftest/target/Samba4.pm @@ -443,9 +443,11 @@ EOF # # provision_raw_prepare() is also used by Samba34.pm! # -sub provision_raw_prepare($$$$$$$) +sub provision_raw_prepare($$$$$$$$$$) { - my ($self, $prefix, $server_role, $netbiosname, $netbiosalias, $swiface, $password, $kdc_ipv4) = @_; + my ($self, $prefix, $server_role, $netbiosname, $netbiosalias, + $domain, $realm, $functional_level, + $swiface, $password, $kdc_ipv4) = @_; my $ctx; -d $prefix or mkdir($prefix, 0777) or die("Unable to create $prefix"); @@ -470,11 +472,13 @@ sub provision_raw_prepare($$$$$$$) $ctx->{server_loglevel} = 1; $ctx->{username} = "Administrator"; - $ctx->{domain} = "SAMBADOMAIN"; - $ctx->{realm} = "SAMBA.EXAMPLE.COM"; - $ctx->{dnsname} = lc($ctx->{realm}); + $ctx->{domain} = $domain; + $ctx->{realm} = uc($realm); + $ctx->{dnsname} = lc($realm); $ctx->{sid_generator} = "internal"; + $ctx->{functional_level} = $functional_level; + my $unix_name = ($ENV{USER} or $ENV{LOGNAME} or `whoami`); chomp $unix_name; $ctx->{unix_name} = $unix_name; @@ -532,6 +536,7 @@ sub provision_raw_prepare($$$$$$$) push (@provision_options, "--machinepass=machine$ctx->{password}"); push (@provision_options, "--root=$ctx->{unix_name}"); push (@provision_options, "--server-role=\"$ctx->{server_role}\""); + push (@provision_options, "--function-level=\"$ctx->{functional_level}\""); @{$ctx->{provision_options}} = @provision_options; @@ -716,12 +721,15 @@ sub provision_raw_step2($$$) return $ret; } -sub provision($$$$$$$) +sub provision($$$$$$$$$) { - my ($self, $prefix, $server_role, $netbiosname, $netbiosalias, $swiface, $password, $kdc_ipv4, $extra_smbconf_options) = @_; + my ($self, $prefix, $server_role, $netbiosname, $netbiosalias, + $domain, $realm, $functional_level, + $swiface, $password, $kdc_ipv4, $extra_smbconf_options) = @_; my $ctx = $self->provision_raw_prepare($prefix, $server_role, $netbiosname, $netbiosalias, + $domain, $realm, $functional_level, $swiface, $password, $kdc_ipv4); $ctx->{tmpdir} = "$ctx->{prefix_abs}/tmp"; @@ -832,6 +840,9 @@ sub provision_member($$$) "member server", "localmember3", "localmember", + "SAMBADOMAIN", + "samba.example.com", + "2008", 3, "locMEMpass0", $dcvars->{SERVER_IP}, @@ -879,6 +890,9 @@ sub provision_rpc_proxy($$$) "member server", "localrpcproxy4", "localrpcproxy", + "SAMBADOMAIN", + "samba.example.com", + "2008", 4, "locRPCproxypass0", $dcvars->{SERVER_IP}, @@ -912,7 +926,11 @@ sub provision_vampire_dc($$$) # We do this so that we don't run the provision. That's the job of 'net vampire'. my $ctx = $self->provision_raw_prepare($prefix, "domain controller", - "localvampiredc", "localvampiredc5", 5, $dcvars->{PASSWORD}, + "localvampiredc", "localvampiredc5", + "SAMBADOMAIN", + "samba.example.com", + "2008", + 5, $dcvars->{PASSWORD}, $dcvars->{SERVER_IP}); $ctx->{smb_conf_extra_options} = " @@ -966,6 +984,9 @@ sub provision_dc($$) "domain controller", "localdc1", "localdc", + "SAMBADOMAIN", + "samba.example.com", + "2008", 1, "locDCpass0", "127.0.0.1", ""); @@ -983,6 +1004,28 @@ sub provision_dc($$) return $ret; } +sub provision_fl2000dc($$) +{ + my ($self, $prefix) = @_; + + print "PROVISIONING DC..."; + my $ret = $self->provision($prefix, + "domain controller", + "localfl2000dc1", + "localfl2000dc", + "SAMBADOMAIN", + "samba.example.com", + "2000", + 7, + "locDCpass0", + "127.0.0.7", ""); + + $self->add_wins_config("$prefix/private") or + die("Unable to add wins configuration"); + + return $ret; +} + sub teardown_env($$) { my ($self, $envvars) = @_; @@ -1058,6 +1101,8 @@ sub setup_env($$$) if ($envname eq "dc") { return $self->setup_dc("$path/dc"); + } elsif ($envname eq "fl2000dc") { + return $self->setup_fl2000dc("$path/fl2000dc"); } elsif ($envname eq "rpc_proxy") { if (not defined($self->{vars}->{dc})) { $self->setup_dc("$path/dc"); @@ -1088,6 +1133,16 @@ sub setup_env($$$) $ret->{RPC_PROXY_USERNAME} = $rpc_proxy_ret->{USERNAME}; $ret->{RPC_PROXY_PASSWORD} = $rpc_proxy_ret->{PASSWORD}; } + if (not defined($self->{vars}->{fl2000dc})) { + my $fl2000dc_ret = $self->setup_fl2000dc("$path/fl2000dc", $self->{vars}->{dc}); + + $ret->{FL2000DC_SERVER} = $fl2000dc_ret->{SERVER}; + $ret->{FL2000DC_SERVER_IP} = $fl2000dc_ret->{SERVER_IP}; + $ret->{FL2000DC_NETBIOSNAME} = $fl2000dc_ret->{NETBIOSNAME}; + $ret->{FL2000DC_NETBIOSALIAS} = $fl2000dc_ret->{NETBIOSALIAS}; + $ret->{FL2000DC_USERNAME} = $fl2000dc_ret->{USERNAME}; + $ret->{FL2000DC_PASSWORD} = $fl2000dc_ret->{PASSWORD}; + } return $ret; } else { die("Samba4 can't provide environment '$envname'"); @@ -1140,6 +1195,22 @@ sub setup_dc($$) return $env; } +sub setup_fl2000dc($$) +{ + my ($self, $path) = @_; + + my $env = $self->provision_fl2000dc($path); + + $self->check_or_start($env, + ($ENV{SMBD_MAXTIME} or 7500)); + + $self->wait_for_start($env); + + $self->{vars}->{fl2000dc} = $env; + + return $env; +} + sub setup_vampire_dc($$$) { my ($self, $path, $dc_vars) = @_; -- cgit