← Back to branch summary

~zulcss/samba/server-dailies-3.4

« back to all changes in this revision

Viewing changes to selftest/target/Windows.pm

  • Committer: Chuck Short
  • Date: 2010-09-28 20:38:39 UTC
  • Revision ID: zulcss@ubuntu.com-20100928203839-pgjulytsi9ue63x1
Initial version

Show diffs side-by-side

added added

removed removed

Lines of Context:
selftest/target/Windows.pm
 
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
 
 
6
package Windows;
 
7
 
 
8
use strict;
 
9
use FindBin qw($RealBin);
 
10
use POSIX;
 
11
 
 
12
sub new($)
 
13
{
 
14
        my ($classname) = @_;
 
15
        my $self = { };
 
16
        bless $self;
 
17
        return $self;
 
18
}
 
19
 
 
20
sub 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
 
 
35
sub setup_env($$)
 
36
{
 
37
        my ($self, $name) = @_;
 
38
}
 
39
 
 
40
1;