1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
source $::srcdir/lib/library.exp proc completion_exit {} { send "\rexit\r" } proc completion_init {test_file_name} { # Call completion_start() only once if {! [info exists ::BASH_VERSINFO]} { completion_start } } proc completion_start {} { start_interactive_test } proc completion_version {} { puts "$::TESTDIR, bash-$::BASH_VERSION" }