test/lib/unit.exp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

source $::srcdir/lib/library.exp


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


proc unit_init {test_file_name} {
    # Call unit_start() only once
    if {! [info exists ::BASH_VERSINFO]} {
        unit_start
    }
}


proc unit_start {} {
    start_interactive_test
}


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