svn commit: samba r22305 - in
branches/SAMBA_4_0/source/script/tests: .
metze at samba.org
metze at samba.org
Tue Apr 17 13:06:00 GMT 2007
Author: metze
Date: 2007-04-17 13:06:00 +0000 (Tue, 17 Apr 2007)
New Revision: 22305
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=22305
Log:
fix make test using a absolute path for
--with-selftest-prefix
metze
Modified:
branches/SAMBA_4_0/source/script/tests/Samba4.pm
branches/SAMBA_4_0/source/script/tests/selftest.pl
Changeset:
Modified: branches/SAMBA_4_0/source/script/tests/Samba4.pm
===================================================================
--- branches/SAMBA_4_0/source/script/tests/Samba4.pm 2007-04-17 12:21:47 UTC (rev 22304)
+++ branches/SAMBA_4_0/source/script/tests/Samba4.pm 2007-04-17 13:06:00 UTC (rev 22305)
@@ -6,6 +6,7 @@
package Samba4;
use strict;
+use Cwd qw(abs_path);
use FindBin qw($RealBin);
use POSIX;
@@ -403,8 +404,7 @@
my $server = "localhost";
my $srcdir="$RealBin/../..";
-d $prefix or mkdir($prefix) or die("Unable to create $prefix");
- my $prefix_abs = getcwd()."/".$prefix;
-
+ my $prefix_abs = abs_path($prefix);
my $tmpdir = "$prefix_abs/tmp";
my $etcdir = "$prefix_abs/etc";
my $piddir = "$prefix_abs/pid";
Modified: branches/SAMBA_4_0/source/script/tests/selftest.pl
===================================================================
--- branches/SAMBA_4_0/source/script/tests/selftest.pl 2007-04-17 12:21:47 UTC (rev 22304)
+++ branches/SAMBA_4_0/source/script/tests/selftest.pl 2007-04-17 13:06:00 UTC (rev 22305)
@@ -113,7 +113,7 @@
use File::Spec;
use Getopt::Long;
use POSIX;
-use Cwd;
+use Cwd qw(abs_path);
use lib "$RealBin";
use Samba3;
use Samba4;
@@ -136,7 +136,7 @@
my $srcdir = ".";
my $builddir = ".";
-my $prefix = "st";
+my $prefix = "./st";
my $suitesfailed = [];
my $start = time();
@@ -370,6 +370,16 @@
}
$prefix =~ s+//+/+;
+$prefix =~ s+/./+/+;
+$prefix =~ s+/$++;
+
+my $prefix_abs = abs_path($prefix);
+my $srcdir_abs = abs_path($srcdir);
+
+die("using an empty prefix isn't allowed") unless $prefix ne "";
+die("using an empty absolute prefix isn't allowed") unless $prefix_abs ne "";
+die("using '/' as absolute prefix isn't allowed") unless $prefix_abs ne "/";
+
$ENV{PREFIX} = $prefix;
$ENV{SRCDIR} = $srcdir;
@@ -442,14 +452,12 @@
"127.0.0.10/8",
"127.0.0.11/8"));
-my $conffile = "$prefix/client.conf";
+my $conffile = "$prefix_abs/client/client.conf";
sub write_clientconf($$)
{
my ($conffile, $vars) = @_;
- my $abs_srcdir = cwd();
-
mkdir "$prefix/client" unless -d "$prefix/client";
if ( -d "$prefix/client/private" ) {
@@ -482,16 +490,16 @@
print CF "\twinbindd socket directory = $vars->{WINBINDD_SOCKET_DIR}\n";
}
print CF "
- private dir = $abs_srcdir/$prefix/client/private
- js include = $abs_srcdir/scripting/libjs
+ private dir = $srcdir_abs/$prefix/client/private
+ js include = $srcdir_abs/scripting/libjs
name resolve order = bcast
interfaces = $interfaces
- panic action = $abs_srcdir/script/gdb_backtrace \%PID\% \%PROG\%
+ panic action = $srcdir_abs/script/gdb_backtrace \%PID\% \%PROG\%
max xmit = 32K
notify:inotify = false
ldb:nosync = true
system:anonymous = true
- torture:basedir = ./st
+ torture:basedir = $prefix_abs
#We don't want to pass our self-tests if the PAC code is wrong
gensec:require_pac = true
";
More information about the samba-cvs
mailing list