From 8af41e021f1847c7e7a2283a81863c23c11fe90d Mon Sep 17 00:00:00 2001
From: Tim Potter <tpot@samba.org>
Date: Wed, 24 May 2000 05:51:52 +0000
Subject: Routines for driving smbclient from DejaGnu. (This used to be commit
 fa6a360abeb324d6b4383dbb1bb717fc270aff81)

---
 testsuite/lib/smbclient.exp | 52 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 testsuite/lib/smbclient.exp

(limited to 'testsuite')

diff --git a/testsuite/lib/smbclient.exp b/testsuite/lib/smbclient.exp
new file mode 100644
index 0000000000..e137ebd6c8
--- /dev/null
+++ b/testsuite/lib/smbclient.exp
@@ -0,0 +1,52 @@
+#
+# Utilities for driving smbclient
+#
+
+# Variables
+
+set smb_prompt "smb: \\\\>"
+
+# Spawn smbclient and wait for a prompt
+
+proc spawn_smbclient { args } {
+    set result 0
+    global smb_prompt
+    global spawn_id
+
+    # Spawn smbclient
+
+    spawn smbclient [lindex $args 0] [lindex $args 1] [lindex $args 2]
+
+    # Wait for prompt
+
+    expect {
+	$smb_prompt   { set result 1 }
+	timeout       { perror "timed out spawning smbclient" }
+	eof           { perror "end of file spawning smbclient" }
+    }
+
+    return $result
+}
+
+# Run a command and wait for a prompt
+
+proc do_smbclient { args } {
+    set action [lindex $args 0]
+    set description [lindex $args 1]
+    global smb_prompt
+
+    # Send command
+
+    verbose $action
+
+    send $action
+
+    expect {
+	$smb_prompt     { set output $expect_out(0,string) }
+	timeout         { perror "timed out $description"; return -1}
+	eof             { perror "end of file description"; return -1 }
+    }
+
+    verbose $output
+    return $output
+}
-- 
cgit