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