1#!/usr/bin/perl 2# Bootstrap Samba and run a number of tests against it. 3# Copyright (C) 2005-2007 Jelmer Vernooij <jelmer@samba.org> 4# Published under the GNU GPL, v3 or later. 5 6package Windows; 7 8use strict; 9use FindBin qw($RealBin); 10use POSIX; 11 12sub new($) 13{ 14 my ($classname) = @_; 15 my $self = { }; 16 bless $self; 17 return $self; 18} 19 20sub provision($$$) 21{ 22 my ($self, $environment, $prefix) = @_; 23 24 die ("Windows tests will not run without root privileges.") 25 if (`whoami` ne "root"); 26 27 die("Environment variable WINTESTCONF has not been defined.\n". 28 "Windows tests will not run unconfigured.") if (not defined($ENV{WINTESTCONF})); 29 30 die ("$ENV{WINTESTCONF} could not be read.") if (! -r $ENV{WINTESTCONF}); 31 32 $ENV{WINTEST_DIR}="$ENV{SRCDIR}/selftest/win"; 33} 34 35sub setup_env($$) 36{ 37 my ($self, $name) = @_; 38} 39 401; 41