proc setup {} { save_env } proc teardown {} { assert_env_unmodified {/OLDPWD/d} } setup assert_complete_dir foo.d/ "sudo cd fo" $::srcdir/fixtures/shared/default \ "" -nospace sync_after_int assert_complete_dir fixtures/ "sudo sh fix" $::srcdir "" -nospace sync_after_int teardown