28 lines
602 B
Plaintext
28 lines
602 B
Plaintext
|
source lib/library.exp
|
||
|
|
|
||
|
|
|
||
|
|
proc unit_exit {} {
|
||
|
|
# Exit bash
|
||
|
|
send "\rexit\r"
|
||
|
|
}; # unit_exit()
|
||
|
|
|
||
|
|
|
||
|
|
proc unit_start {} {
|
||
|
|
global TESTDIR spawn_id
|
||
|
|
set test "unit_start"
|
||
|
|
set TESTDIR [pwd]
|
||
|
|
|
||
|
|
# Start bash and load bash-completion
|
||
|
|
|
||
|
|
exp_spawn bash --rcfile config/bashrc
|
||
|
|
assert_bash_exec {} "bash --rcfile config/bashrc"
|
||
|
|
assert_bash_exec {BASH_COMPLETION_DIR=$(cd ..; pwd)/contrib}
|
||
|
|
assert_bash_exec {BASH_COMPLETION=$(cd ..; pwd)/bash_completion}
|
||
|
|
assert_bash_exec {source $BASH_COMPLETION}
|
||
|
|
}; # unit_start()
|
||
|
|
|
||
|
|
|
||
|
|
proc unit_version {} {
|
||
|
|
puts "bash-completion-git"
|
||
|
|
}
|