proc setup {} { save_env } proc teardown {} { assert_env_unmodified {/OLDPWD=/d} } setup # NOTE: The directory `fixtures/kdvi' contains an additional subdir `foo' # (should be visible as completion) and an additional file `.txt' # (shouldn't be visible as completion) set files { foo/ .dvi .DVI .dvi.bz2 .DVI.bz2 .dvi.gz .DVI.gz .dvi.Z .DVI.Z } assert_complete_dir $files "kdvi " "$::srcdir/fixtures/kdvi" sync_after_int teardown