From: Andreas Schneider <asn@samba.org>
Date: Tue, 9 Sep 2014 07:47:05 +0000 (+0200)
Subject: selftest: Wait for the logon server to register to join the member.
X-Git-Url: http://git.samba.org/?p=obnox%2Fsamba%2Fsamba-obnox.git;a=commitdiff_plain;h=35495da4b840d3893124657c81427bfc2f78f9e2

selftest: Wait for the logon server to register to join the member.

Signed-off-by: Andreas Schneider <asn@samba.org>
Reviewed-by: Andrew Bartlett <abartlet@samba.org>
---

diff --git a/selftest/target/Samba3.pm b/selftest/target/Samba3.pm
index 50c26429d5f..4c9124df257 100755
--- a/selftest/target/Samba3.pm
+++ b/selftest/target/Samba3.pm
@@ -242,6 +242,8 @@ sub setup_s3dc($$)
 sub setup_member($$$)
 {
 	my ($self, $prefix, $s3dcvars) = @_;
+	my $count = 0;
+	my $rc;
 
 	print "PROVISIONING MEMBER...";
 
@@ -257,6 +259,21 @@ sub setup_member($$$)
 
 	$ret or return undef;
 
+	my $nmblookup = Samba::bindir_path($self, "nmblookup");
+	do {
+		print "Waiting for the LOGON SERVER registration ...\n";
+		$rc = system("$nmblookup $ret->{CONFIGURATION} $ret->{DOMAIN}\#1c");
+		if ($rc != 0) {
+			sleep(1);
+		}
+		$count++;
+	} while ($rc != 0 && $count < 10);
+	if ($count == 10) {
+		print "NMBD not reachable after 10 retries\n";
+		teardown_env($self, $ret);
+		return 0;
+	}
+
 	my $net = Samba::bindir_path($self, "net");
 	my $cmd = "";
 	$cmd .= "SOCKET_WRAPPER_DEFAULT_IFACE=\"$ret->{SOCKET_WRAPPER_DEFAULT_IFACE}\" ";