From 3cef97ad0e7008e3732cb32348761a4482c772be Mon Sep 17 00:00:00 2001 From: Matthieu Patou Date: Mon, 1 Nov 2010 01:05:03 +0300 Subject: unit tests: remove trailling white spaces Autobuild-User: Matthieu Patou Autobuild-Date: Sun Oct 31 23:10:55 UTC 2010 on sn-devel-104 --- selftest/target/Samba4.pm | 54 +++++++++++++++++++++++------------------------ 1 file changed, 27 insertions(+), 27 deletions(-) (limited to 'selftest/target') diff --git a/selftest/target/Samba4.pm b/selftest/target/Samba4.pm index 71764ccc8b..e310f37ec8 100644 --- a/selftest/target/Samba4.pm +++ b/selftest/target/Samba4.pm @@ -13,10 +13,10 @@ use POSIX; sub new($$$$$) { my ($classname, $bindir, $ldap, $setupdir, $exeext) = @_; $exeext = "" unless defined($exeext); - my $self = { - vars => {}, - ldap => $ldap, - bindir => $bindir, + my $self = { + vars => {}, + ldap => $ldap, + bindir => $bindir, setupdir => $setupdir, exeext => $exeext }; @@ -79,7 +79,7 @@ sub slapd_stop($$) return 1; } -sub check_or_start($$$) +sub check_or_start($$$) { my ($self, $env_vars, $max_time) = @_; return 0 if ( -p $env_vars->{SAMBA_TEST_FIFO}); @@ -104,9 +104,9 @@ sub check_or_start($$$) my $valgrind = ""; if (defined($ENV{SAMBA_VALGRIND})) { $valgrind = $ENV{SAMBA_VALGRIND}; - } + } - $ENV{KRB5_CONFIG} = $env_vars->{KRB5_CONFIG}; + $ENV{KRB5_CONFIG} = $env_vars->{KRB5_CONFIG}; $ENV{WINBINDD_SOCKET_DIR} = $env_vars->{WINBINDD_SOCKET_DIR}; $ENV{NSS_WRAPPER_PASSWD} = $env_vars->{NSS_WRAPPER_PASSWD}; @@ -133,7 +133,7 @@ sub check_or_start($$$) # allow selection of the process model using # the environment varibale SAMBA_PROCESS_MODEL - # that allows us to change the process model for + # that allows us to change the process model for # individual machines in the build farm my $model = "single"; if (defined($ENV{SAMBA_PROCESS_MODEL})) { @@ -175,8 +175,8 @@ sub wait_for_start($$) print "delaying for nbt name registration\n"; sleep 2; - # This will return quickly when things are up, but be slow if we - # need to wait for (eg) SSL init + # This will return quickly when things are up, but be slow if we + # need to wait for (eg) SSL init my $nmblookup = $self->bindir_path("nmblookup"); system("$nmblookup $testenv_vars->{CONFIGURATION} $testenv_vars->{SERVER}"); system("$nmblookup $testenv_vars->{CONFIGURATION} -U $testenv_vars->{SERVER_IP} $testenv_vars->{SERVER}"); @@ -270,7 +270,7 @@ YX70obsCAQI= EOF close(DHFILE); - #Likewise, we pregenerate the key material. This allows the + #Likewise, we pregenerate the key material. This allows the #other certificates to be pre-generated open(KEYFILE, ">$keyfile"); print KEYFILE <$certfile"); print CERTFILE <provision_raw_prepare($prefix, $server_role, @@ -868,8 +868,8 @@ sub provision_member($$$) "member server", "localmember", "member3", - "SAMBADOMAIN", - "samba.example.com", + "SAMBADOMAIN", + "samba.example.com", "2008", 3, "locMEMpass3", @@ -922,8 +922,8 @@ sub provision_rpc_proxy($$$) "member server", "localrpcproxy", "rpcproxy4", - "SAMBADOMAIN", - "samba.example.com", + "SAMBADOMAIN", + "samba.example.com", "2008", 4, "locRPCproxypass4", @@ -965,8 +965,8 @@ sub provision_vampire_dc($$$) my $ctx = $self->provision_raw_prepare($prefix, "domain controller", "localvampiredc", "dc2", - "SAMBADOMAIN", - "samba.example.com", + "SAMBADOMAIN", + "samba.example.com", "2008", 2, $dcvars->{PASSWORD}, $dcvars->{SERVER_IP}); @@ -1026,8 +1026,8 @@ sub provision_dc($$) "domain controller", "localdc", "dc1", - "SAMBADOMAIN", - "samba.example.com", + "SAMBADOMAIN", + "samba.example.com", "2008", 1, "locDCpass1", @@ -1058,8 +1058,8 @@ sub provision_fl2000dc($$) "domain controller", "dc5", "localfl2000dc", - "SAMBA2000", - "samba2000.example.com", + "SAMBA2000", + "samba2000.example.com", "2000", 5, "locDCpass5", @@ -1250,7 +1250,7 @@ sub getlog_env($$) close(LOG); return "" if $out eq $title; - + return $out; } -- cgit