(testsuite) Moved tool_start() code to tool_init()

${tool}_start was called from within `config/default_exp', but this
proves to be error-prone, because DejaGnu isn't fully initialized at
that point, causing an error when calling one of the DejaGnu methods
pass/fail/unsupported/xfail/unresolved/untested:

    can't read "multipass_name": no such variable

The right way seems to be calling ${tool}_start() from
${tool}_init().

test/config/default.exp

@@ -19,9 +19,3 @@ expect_after {
         }   
     }   
 }
-
-
-# Call tool_start(), if available
-if { [info procs "${tool}_start"] != "" } {
-    ${tool}_start
-}

test/lib/completion.exp

@@ -6,6 +6,14 @@ proc completion_exit {} {
 }
 
 
+proc completion_init {test_file_name} {
+    # Call completion_start() only once
+    if {! [info exists ::BASH_VERSINFO]} {
+        completion_start
+    }
+}
+
+
 proc completion_start {} {
     start_interactive_test
 }

test/lib/library.exp

@@ -34,24 +34,14 @@ proc assert_bash_exec {{aCmd ""} {title ""} {prompt /@} {out -1}} {
         ]
     ]
     if {$out == -1 && [string length $results] > 0} {
-        # Is DejaGnu fully initialized, i.e. is "fail" method available?
+        fail "ERROR Unexpected output from bash command \"$title\""
-        if {[info exists multipass_name]} {
-            fail "ERROR Unexpected output from bash command \"$title\""
-        }
-        send_user "ERROR Unexpected output from bash command \"$title\":\n$results"
     }
 
     set cmd "echo $?"
     send "$cmd\r"
     expect {
         -ex "$cmd\r\n0\r\n$prompt" {}
-        $prompt {
+        $prompt {fail "ERROR executing bash command \"$title\""}
-            # Is DejaGnu fully initialized, i.e. is "fail" method available?
-            if {[info exists multipass_name]} {
-                fail "ERROR executing bash command \"$title\""
-            }
-            send_user "ERROR executing bash command \"$title\""
-        }
     }
 }
 

test/lib/unit.exp

@@ -7,6 +7,14 @@ proc unit_exit {} {
 }
 
 
+proc unit_init {test_file_name} {
+    # Call unit_start() only once
+    if {! [info exists ::BASH_VERSINFO]} {
+        unit_start
+    }
+}
+
+
 proc unit_start {} {
     start_interactive_test
 }