22 lines
211 B
Plaintext
22 lines
211 B
Plaintext
proc setup {} {
|
|
save_env
|
|
}
|
|
|
|
|
|
proc teardown {} {
|
|
assert_env_unmodified
|
|
}
|
|
|
|
|
|
setup
|
|
|
|
|
|
set test "-gam<TAB> should complete \"-gamma\""
|
|
assert_complete "-gamma" "xgamma -gam" $test
|
|
|
|
|
|
sync_after_int
|
|
|
|
|
|
teardown
|