githubmirror/bash-completion

test/lib/unit.exp

25 строк356 B

Freddy Vulto

(testsuite) Prepend relative files with $::srcdir

05 ноя 2010, 23:28

05 ноя 2010, 23:28de51dd3

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"
}