summaryrefslogtreecommitdiff
path: root/selftest
diff options
context:
space:
mode:
Diffstat (limited to 'selftest')
-rwxr-xr-xselftest/selftest.pl2
-rw-r--r--selftest/target/Samba3.pm12
2 files changed, 8 insertions, 6 deletions
diff --git a/selftest/selftest.pl b/selftest/selftest.pl
index 4b42ec4801..9db3f21bb8 100755
--- a/selftest/selftest.pl
+++ b/selftest/selftest.pl
@@ -472,7 +472,7 @@ if ($opt_target eq "samba4") {
}
$testenv_default = "member";
require target::Samba3;
- $target = new Samba3($bindir);
+ $target = new Samba3($bindir, $srcdir_abs);
} elsif ($opt_target eq "win") {
die("Windows tests will not run with socket wrapper enabled.")
if ($opt_socket_wrapper);
diff --git a/selftest/target/Samba3.pm b/selftest/target/Samba3.pm
index 4d60a52002..b46a2df8d7 100644
--- a/selftest/target/Samba3.pm
+++ b/selftest/target/Samba3.pm
@@ -24,8 +24,10 @@ sub binpath($$)
}
sub new($$) {
- my ($classname, $bindir) = @_;
- my $self = { bindir => $bindir };
+ my ($classname, $bindir, $srcdir) = @_;
+ my $self = { bindir => $bindir,
+ srcdir => $srcdir
+ };
bless $self;
return $self;
}
@@ -475,11 +477,11 @@ sub provision($$$$$$)
my $conffile="$libdir/server.conf";
- my $nss_wrapper_pl = "$ENV{PERL} $RealBin/../lib/nss_wrapper/nss_wrapper.pl";
+ my $nss_wrapper_pl = "$ENV{PERL} $self->{srcdir}/lib/nss_wrapper/nss_wrapper.pl";
my $nss_wrapper_passwd = "$privatedir/passwd";
my $nss_wrapper_group = "$privatedir/group";
- my $mod_printer_pl = "$ENV{PERL} $RealBin/../source3/script/tests/printing/modprinter.pl";
+ my $mod_printer_pl = "$ENV{PERL} $self->{srcdir}/source3/script/tests/printing/modprinter.pl";
my @eventlog_list = ("dns server", "application");
@@ -521,7 +523,7 @@ sub provision($$$$$$)
netbios name = $server
interfaces = $server_ip/8
bind interfaces only = yes
- panic action = $RealBin/gdb_backtrace %d %\$(MAKE_TEST_BINARY)
+ panic action = $self->{srcdir}/selftest/gdb_backtrace %d %\$(MAKE_TEST_BINARY)
workgroup = $domain