proc setup {} { save_env } proc teardown {} { assert_env_unmodified {/OLDPWD/d} } setup assert_complete_dir {foo.d/ t.pdf} "acroread " $::srcdir/fixtures/acroread sync_after_int teardown