Files
picocli/src/test/dejagnu.tests/lib/unit.exp

26 lines
356 B
Plaintext

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