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