1
0
mirror of https://github.com/samba-team/samba.git synced 2025-02-28 01:58:17 +03:00

selftest: Add new test environment fileserver_smb1

fileserver_smb1 is a copy of the fileserver test environment but
with the difference that it still supports SMB1, this will allow
use to still run SMB1 tests.

Signed-off-by: Noel Power <npower@samba.org>
Reviewed-by: Ralph Boehme <slow@samba.org>
This commit is contained in:
Noel Power 2019-12-04 11:50:48 +00:00 committed by Ralph Boehme
parent e13e0cf0ce
commit fcae89684e
2 changed files with 21 additions and 2 deletions

View File

@ -548,6 +548,7 @@ sub get_interface($)
ctdb0 => 50,
ctdb1 => 51,
ctdb2 => 52,
fileserversmb1 => 53,
rootdnsforwarder => 64,

View File

@ -216,6 +216,7 @@ sub check_env($$)
simpleserver => [],
fileserver => [],
fileserver_smb1 => [],
maptoguest => [],
ktest => [],
@ -1197,7 +1198,7 @@ sub create_file_chmod($$)
sub setup_fileserver
{
my ($self, $path) = @_;
my ($self, $path, $more_conf, $server) = @_;
my $prefix_abs = abs_path($path);
my $srcdir_abs = abs_path($self->{srcdir});
@ -1353,10 +1354,17 @@ sub setup_fileserver
read only = No
";
if (defined($more_conf)) {
$fileserver_options = $fileserver_options . $more_conf;
}
if (!defined($server)) {
$server = "FILESERVER";
}
my $vars = $self->provision(
prefix => $path,
domain => "WORKGROUP",
server => "FILESERVER",
server => $server,
password => "fileserver",
extra_options => $fileserver_options,
no_delete_prefix => 1);
@ -1415,6 +1423,16 @@ sub setup_fileserver
return $vars;
}
sub setup_fileserver_smb1
{
my ($self, $path) = @_;
my $conf = "
[global]
client min protocol = CORE
server min protocol = LANMAN1
";
return $self->setup_fileserver($path, $conf, "FILESERVERSMB1");
}
sub setup_ktest
{
my ($self, $prefix) = @_;