From 62a66b00b61cf4f85a81cca78e1432007b47ea11 Mon Sep 17 00:00:00 2001
From: Andrew Bartlett <abartlet@samba.org>
Date: Fri, 9 Dec 2011 07:35:37 +1100
Subject: testsuite: Remove unused and unlikely to be revived DejaGNU tests

---
 testsuite/lib/env-single.exp | 36 ------------------------------------
 1 file changed, 36 deletions(-)
 delete mode 100644 testsuite/lib/env-single.exp

(limited to 'testsuite/lib/env-single.exp')

diff --git a/testsuite/lib/env-single.exp b/testsuite/lib/env-single.exp
deleted file mode 100644
index 6cd7f94a86..0000000000
--- a/testsuite/lib/env-single.exp
+++ /dev/null
@@ -1,36 +0,0 @@
-#
-# Environment variables for a single machine test.  We look for the 
-# following environment variables:
-#
-#     $TEST_SERVER     The SMB server to contact for the test
-#     $TEST_SHARE      Share name on $TEST_SERVER to contact
-#     $TEST_USER       The username to connect to $TEST_SHARE as
-#
-# These are stored in the Tcl variables $server, $share and $user 
-# respectively.
-#
-# An error will be produced and the test will exit if any of these
-# variables are not present.
-#
-
-verbose "Loading single machine environment variables"
-
-catch {set server "$env(TEST_SERVER)"} tmp
-
-if {[regexp "^can't read" $tmp]} {
-    error "Environment variable TEST_SERVER not set"
-}
-
-catch {set share "$env(TEST_SHARE)"} tmp
-
-if {[regexp "^can't read" $tmp]} {
-    error "Environment variable TEST_SHARE not set"
-}
-
-catch {set user "$env(TEST_USER)"} tmp
-
-if {[regexp "^can't read" $tmp]} {
-    error "Environment variable TEST_USER not set"
-}
-
-verbose "Single machine is //$server/$share -U $user"
-- 
cgit