1 files changed, 3 insertions, 16 deletions
diff --git a/tests/misc/pwd-long b/tests/misc/pwd-long
index 920c25842..42a092c24 100755
--- a/tests/misc/pwd-long
+++ b/tests/misc/pwd-long
@@ -24,26 +24,13 @@ $PERL -e 1 > /dev/null 2>&1 || {
   exit 77
 }
 
-framework_failure=0
-pwd=`"${BUILD_SRC_DIR?}"/pwd` || framework_failure=1
-t0=`echo "$0"|sed 's,.*/,,'`.tmp; tmp=$t0/$$
-trap 'status=$?; cd "$pwd" && chmod -R u+rwx $t0 && rm -rf $t0 && exit $status' 0
-trap '(exit $?); exit $?' 1 2 13 15
-
-mkdir -p $tmp || framework_failure=1
-cd $tmp || framework_failure=1
-
-if test $framework_failure = 1; then
-  echo "$0: failure in testing framework" 1>&2
-  (exit 1); exit 1
-fi
+. $srcdir/../test-lib.sh
 
 ARGV_0=$0
 export ARGV_0
 
-CWD=$pwd/$tmp
-export CWD
-
+# Don't use CuTmpdir here, since File::Temp's use of rmtree can't
+# remove the deep tree we create.
 $PERL -Tw -- - <<\EOF
 
 # Show that pwd works even when the length of the resulting