test/lib/unit.exp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

source lib/library.exp


proc unit_exit {} {
        # Exit bash
    send "\rexit\r"
}; # unit_exit()


proc unit_start {} {
    start_bash
    source_bash_completion
    init_tcl_bash_globals
}; # unit_start()


proc unit_version {} {
    puts "$::TESTDIR, bash-$::BASH_VERSION"
}