proc setup {} {
    save_env
}


proc teardown {} {
    assert_env_unmodified
}


setup


assert_complete_any "perltidy "
sync_after_int

assert_complete_any "perltidy -h"
sync_after_int

assert_complete_any "perltidy -ole="
sync_after_int

assert_no_complete "perltidy -doesntexist="
sync_after_int


teardown