chiark / gitweb /
Testing: Break out srcdump-prep
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Tue, 3 Nov 2015 18:57:14 +0000 (18:57 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Tue, 3 Nov 2015 18:57:14 +0000 (18:57 +0000)
Remove a bit more of this boilerplate.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
tests/autotest
tests/srcdump-login.at
tests/srcdump-loginback.at

index 4737b1e..4fc5068 100755 (executable)
@@ -98,6 +98,12 @@ proc loginas {user {password sesame} {wanttxt ACCESSGRANTED}} {
      submitform-expect $wanttxt
 }
 
+proc srcdump-prep {} {
+    global timeout env
+    set env(CAFTEST_NOSRCDUMP) 0
+    set timeout [expr {$timeout * 3}]
+}
+
 proc srcdump-save-check {} {
     global tt
     global outertar sd files
index 895fa36..6d7d0c9 100644 (file)
@@ -17,9 +17,7 @@
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU Affero General Public License for more details.
 
-set env(CAFTEST_NOSRCDUMP) 0
-
-set timeout [expr {$timeout * 3}]
+srcdump-prep
 
 dospawn
 
index 4a2e402..856a6f2 100644 (file)
@@ -17,9 +17,7 @@
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU Affero General Public License for more details.
 
-set env(CAFTEST_NOSRCDUMP) 0
-
-set timeout [expr {$timeout * 3}]
+srcdump-prep
 
 dospawn