From ed92f3de63313eaa269f8f0aca1e7176fc87c18f Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Sun, 4 Mar 2012 01:18:58 +0100 Subject: selftest: Remove unused and broken target 'windows'. --- selftest/selftest.pl | 6 ------ selftest/target/Windows.pm | 40 ---------------------------------------- 2 files changed, 46 deletions(-) delete mode 100644 selftest/target/Windows.pm 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 -# 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; -- cgit