1 files changed, 0 insertions, 970 deletions

diff --git a/testsuite/lib/anubis.exp b/testsuite/lib/anubis.exp
deleted file mode 100644
index a691211..0000000
--- a/testsuite/lib/anubis.exp
+++ /dev/null
@@ -1,970 +0,0 @@
-# -*- tcl -*-
-# This file is part of GNU Anubis testsuite.
-# Copyright (C) 2003-2014 The Anubis Team.
-#
-# GNU Anubis is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License as published by the Free
-# Software Foundation; either version 3 of the License, or (at your option)
-# any later version.
-#
-# GNU Anubis is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along
-# with GNU Anubis.  If not, see <http://www.gnu.org/licenses/>.
-
-# Authmode support
-proc repl_port {file port} {
-    global ANUBIS_RC_DIR
-    
-    set chan [open $ANUBIS_RC_DIR/$file.in.rc r]
-    set outchan [open $ANUBIS_RC_DIR/$file.rc w]
-    for {gets $chan line} {![eof $chan]} {gets $chan line} {
-        regsub -all "@ANUBIS_PORT@" $line "$port" tmp
-        puts $outchan $tmp
-    }
-    close $chan
-    close $outchan
-}
-
-proc anubis_authmode {} {
-    global ANUBIS_PID
-    if ![info exists ANUBIS_PID] {
-        return 0
-    }
-    verbose "AUTHMODE"
-    return $ANUBIS_PID
-}
-
-proc start_daemon {} {
-    global ANUBIS_TESTDIR
-    global ANUBIS_RC_DIR
-    global ANUBIS_TOOL
-    global ANUBIS_PORT
-    global ANUBIS_PID
-    
-    set port [remote_exec host $ANUBIS_TESTDIR/findport "-c1 -s1024 -f%d"]
-    set ANUBIS_PORT [lindex $port 1]
-    repl_port "target" $ANUBIS_PORT
-    repl_port "interface" $ANUBIS_PORT
-    set pidfile $ANUBIS_RC_DIR/anubis.pid
-    file delete $pidfile
-    remote_exec host "$ANUBIS_TOOL" \
-                     "--relax-perm-check \
-                      --pid-file $pidfile \
-                      --altrc $ANUBIS_RC_DIR/target.rc"
-    set attempt 0
-    while {![file exists $pidfile]} {
-        incr attempt
-        if {$attempt > 10} {
-            fail "Cannot start anubis daemon"
-            exit 1
-        }
-        sleep 1
-    }
-    set chan [open $pidfile r]
-    gets $chan ANUBIS_PID
-    verbose "Daemon PID $ANUBIS_PID"
-    close $chan
-}
-
-proc kill_daemon {} {
-    global ANUBIS_PID
-    
-    if {![info exists ANUBIS_PID]} {
-        return
-    }
-
-    # Tcl has no kill primitive. The following Ruby Goldberg trick is
-    # borrowed from DejaGNU (see remote.exp)
-    verbose "Killing anubis daemon $ANUBIS_PID"
-    exec sh -c "exec > /dev/null 2>&1 && \
-        (kill -2 $ANUBIS_PID || kill -2 $ANUBIS_PID) && \
-         sleep 5 && (kill -15 $ANUBIS_PID || kill $ANUBIS_PID) && \
-         sleep 5 && (kill -9 $ANUBIS_PID || kill -9 $ANUBIS_PID)" &;
-}
-
-proc update_config {name} {
-    global ANUBIS_PORT
-    global ANUBIS_USR
-    global ANUBIS_DATA_DIR
-    global ANUBIS_RC_DIR
-    global ANUBIS_ETC_DIR
-    global verbose
-    
-    set rcname $ANUBIS_RC_DIR/$name
-    set chan [open $rcname r]
-    set outchan [open $rcname.tmp w]
-    for {gets $chan line} {![eof $chan]} {gets $chan line} {
-        switch -regexp -- "$line" {
-            "^ *local-mta" { }
-            ".*" {
-                puts $outchan "$line"
-            }
-        }
-    }
-    close $outchan
-    close $chan
-
-    if {$verbose > 2} {
-        set vopt "-vvv"
-    } else {
-        set vopt ""
-    }
-    set res [remote_exec host "$ANUBIS_USR" \
-              "$vopt --netrc $ANUBIS_ETC_DIR/net.rc \
-               --file $rcname.tmp localhost:$ANUBIS_PORT"]
-    verbose -log "ANUBISUSR RESULT: $res"
-    if {[llength $res] < 1} {
-        return -1
-    }
-    return [lindex $res 0]
-}
-
-# Run given test script ($name) in authmode.
-proc run_in_authmode {name} {
-    if [anubis_check_capability "GSASL"] {
-        if [anubis_check_capability "GNUTLS"] {
-            clone_output "Running $name in authmode over TLS."
-        }
-        start_daemon
-        source $name
-        kill_daemon
-    } else {
-        unsupported "$name in authmode"
-    }
-}
-
-
-
-proc anubis_init {args} {
-    global TOOL_EXECUTABLE
-    global ANUBIS_TOOL
-    global ANUBIS_RC_DIR
-    global ANUBIS_ETC_DIR
-    global ANUBIS_TOOL_FLAGS
-    global ANUBIS_DATA_DIR
-    global ANUBIS_TESTDIR
-    global ANUBIS_SRCDIR
-    global ANUBIS_TOP_SRCDIR
-    global ANUBIS_USR
-    global ANUBIS_ADM
-    global ANUBIS_AUTHMODE
-    global tool
-    global base_dir
-    global top_srcdir
-    global objdir
-    global host_board
-    global srcdir
-    
-    if [info exists TOOL_EXECUTABLE] {
-        set ANUBIS_TOOL $TOOL_EXECUTABLE
-    }
-
-    if {$args == "-authmode"} {
-        set ANUBIS_AUTHMODE 1
-    }
-
-    if ![info exists ANUBIS_TOOL] {
-        if ![is_remote host] {
-            set ANUBIS_ADM [findfile $base_dir/../src/anubisadm "$base_dir/../src/anubisadm" [transform anubisadm]]
-            set ANUBIS_USR [findfile $base_dir/../src/anubisusr "$base_dir/../src/anubisusr" [transform anubisusr]]
-            set ANUBIS_TOOL [findfile $base_dir/../src/$tool "$base_dir/../src/$tool" [transform $tool]]
-            set ANUBIS_SRCDIR "$srcdir"
-            set ANUBIS_TOP_SRCDIR "$top_srcdir"
-            set ANUBIS_TESTDIR "$objdir"
-            set ANUBIS_DATA_DIR "$objdir/data"
-            set ANUBIS_ETC_DIR "$top_srcdir/testsuite/etc"
-            set ANUBIS_RC_DIR "$objdir/etc"
-        } else {
-            if [info exists host_board] {
-                if [board_info $host_board exists top_builddir] {
-                    append ANUBIS_TOOL "[board_info $host_board top_builddir]/$tool/$tool"
-                } elseif [board_info $host_board exists top_srcdir] {
-                    append ANUBIS_TOOL "[board_info $host_board top_srcdir]/$tool/$tool"
-                }
-            }
-
-            if ![info exists ANUBIS_TOOL] {
-                perror "The test suite is not set up for the remote testing"
-                perror "Please, read file README in $tool/testsuite subdirectory"
-                perror "for instructions on how to set up it."
-                exit 1
-            }
-            set ANUBIS_SRCDIR "[board_info $host_board srcdir]"
-            set ANUBIS_TOP_SRCDIR "[board_info $host_board top_srcdir]"
-            set ANUBIS_TESTDIR "[board_info $host_board objdir]"
-            set ANUBIS_ETC_DIR "[board_info $host_board top_srcdir]/testsuite/etc"
-            set ANUBIS_DATA_DIR "[board_info $host_board objdir]/data"
-            set ANUBIS_RC_DIR "[board_info $host_board objdir]/etc"
-        }
-
-        set ANUBIS_TOOL_FLAGS "--norc --relax-perm-check"
-    }
-    
-    if {[info exists ANUBIS_AUTHMODE] && $ANUBIS_AUTHMODE} {
-        start_daemon
-    }
-}
-
-proc default_anubis_start {args} {
-    global verbose
-    global ANUBIS_TOOL
-    global ANUBIS_TOOL_FLAGS
-    global expect_out
-    global anubis_spawn_id
-    
-    if [info exists ANUBIS_TOOL_FLAGS] {
-        set sw $ANUBIS_TOOL_FLAGS
-    } else {
-        set sw ""
-    }
-
-    verbose "SW $sw"
-    verbose "ARGS $args"
-    if [llength $args] {
-        append sw " " $args
-    } 
-    
-    set cmd "$ANUBIS_TOOL $sw"
-    verbose "Spawning $cmd"
-
-    set anubis_spawn_id [remote_spawn host $cmd]
-    if { $anubis_spawn_id < 0 || $anubis_spawn_id == "" } {
-        perror "Spawning $cmd failed."
-        return 1;
-    }