diff options
Diffstat (limited to 'selftest')
| -rwxr-xr-x | selftest/selftest.pl | 6 | ||||
| -rw-r--r-- | selftest/target/Windows.pm | 40 |
2 files changed, 0 insertions, 46 deletions
diff --git a/selftest/selftest.pl b/selftest/selftest.pl index a6d4e14095..045f1b83f0 100755 --- a/selftest/selftest.pl +++ b/selftest/selftest.pl @@ -384,12 +384,6 @@ unless ($opt_list) { $testenv_default = "member"; require target::Samba3; $target = new Samba3($bindir, \%binary_mapping, $srcdir_abs, $server_maxtime); - } elsif ($opt_target eq "win") { - die("Windows tests will not run with socket wrapper enabled.") - if ($opt_socket_wrapper); - $testenv_default = "dc"; - require target::Windows; - $target = new Windows(); } } diff --git a/selftest/target/Windows.pm b/selftest/target/Windows.pm deleted file mode 100644 index d0c90d7f7b..0000000000 --- a/selftest/target/Windows.pm +++ /dev/null @@ -1,40 +0,0 @@ -#!/usr/bin/perl -# Bootstrap Samba and run a number of tests against it. -# Copyright (C) 2005-2007 Jelmer Vernooij <jelmer@samba.org> -# Published under the GNU GPL, v3 or later. - -package Windows; - -use strict; -use FindBin qw($RealBin); -use POSIX; - -sub new($) -{ - my ($classname) = @_; - my $self = { }; - bless $self; - return $self; -} - -sub provision($$$) -{ - my ($self, $environment, $prefix) = @_; - - die ("Windows tests will not run without root privileges.") - if (`whoami` ne "root"); - - die("Environment variable WINTESTCONF has not been defined.\n". - "Windows tests will not run unconfigured.") if (not defined($ENV{WINTESTCONF})); - - die ("$ENV{WINTESTCONF} could not be read.") if (! -r $ENV{WINTESTCONF}); - - $ENV{WINTEST_DIR}="$ENV{SRCDIR}/selftest/win"; -} - -sub setup_env($$) -{ - my ($self, $name) = @_; -} - -1; |