use Cwd::getcwd() instead of Cwd::cwd()

getcwd() is more efficient than cwd(), because it does not use the
external command pwd.

Only a test script was changed.
workaround for Tk-804.032 + EUMM 7.00 problem