diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2008-10-19 10:20:37 +0200 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2008-10-19 10:20:37 +0200 |
| commit | 694a579cb8d418a4feb441a77c0dc000023f2c6e (patch) | |
| tree | d7292b8cfaa20982f8bdb223c9cb8a1628c985e7 /selftest/target/Windows.pm | |
| parent | 2fc058bdb0dd7d6ed2ffb17f049a677709d8be74 (diff) | |
| parent | 0fd0fc75c46b39a611c7f9a56081105714d73e36 (diff) | |
| download | samba-694a579cb8d418a4feb441a77c0dc000023f2c6e.tar.gz samba-694a579cb8d418a4feb441a77c0dc000023f2c6e.tar.bz2 samba-694a579cb8d418a4feb441a77c0dc000023f2c6e.zip | |
Merge branch 'selftest' of git://git.samba.org/jelmer/samba
Diffstat (limited to 'selftest/target/Windows.pm')
| -rw-r--r-- | selftest/target/Windows.pm | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/selftest/target/Windows.pm b/selftest/target/Windows.pm new file mode 100644 index 0000000000..d0c90d7f7b --- /dev/null +++ b/selftest/target/Windows.pm @@ -0,0 +1,40 @@ +#!/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; |