From 8f13c84dcecb769e4ba85fa120d9ac4ac772223e Mon Sep 17 00:00:00 2001 From: Andrew Bartlett Date: Fri, 22 Jul 2011 13:00:21 +1000 Subject: s3-selftest Add tests for 'map to guest = bad user' Signed-off-by: Andrew Tridgell --- selftest/target/Samba3.pm | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) (limited to 'selftest/target/Samba3.pm') diff --git a/selftest/target/Samba3.pm b/selftest/target/Samba3.pm index 49f8b4d6d3..93b999fbb4 100644 --- a/selftest/target/Samba3.pm +++ b/selftest/target/Samba3.pm @@ -95,6 +95,8 @@ sub setup_env($$$) return $self->setup_s3dc("$path/s3dc"); } elsif ($envname eq "secshare") { return $self->setup_secshare("$path/secshare"); + } elsif ($envname eq "maptoguest") { + return $self->setup_maptoguest("$path/maptoguest"); } elsif ($envname eq "ktest") { return $self->setup_ktest("$path/ktest"); } elsif ($envname eq "secserver") { @@ -472,6 +474,36 @@ $ret->{USERNAME} = KTEST\\Administrator return $ret; } +sub setup_maptoguest($$) +{ + my ($self, $path) = @_; + + print "PROVISIONING maptoguest..."; + + my $options = " +map to guest = bad user +"; + + my $vars = $self->provision($path, + "maptoguest", + 7, + "maptoguestpass", + $options); + + $vars or return undef; + + $self->check_or_start($vars, + "yes", "no", "yes"); + + if (not $self->wait_for_start($vars)) { + return undef; + } + + $self->{vars}->{s3maptoguest} = $vars; + + return $vars; +} + sub stop_sig_term($$) { my ($self, $pid) = @_; kill("USR1", $pid) or kill("ALRM", $pid) or warn("Unable to kill $pid: $!"); -- cgit