for socket test, don't presume TMP is usable

* test-suite/tests/00-socket.test: don't abort when unable to change
    into tmpdir

diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test
index 7f55adea15e7652c41104a1608101f7009a82748..365762827e53f515885491b3b280b8f2580f5168 100644 (file)
--- a/test-suite/tests/00-socket.test
+++ b/test-suite/tests/00-socket.test
@@ -1,7 +1,7 @@
 ;;;; 00-socket.test --- test socket functions     -*- scheme -*-
 ;;;;
 ;;;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010,
-;;;;   2011, 2012, 2013, 2014, 2017 Free Software Foundation, Inc.
+;;;;   2011, 2012, 2013, 2014, 2017, 2021 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -153,7 +153,7 @@
 ;;              "unix address path too long: ~A"
 ;;              ("/tmp/nix-build-fb7bph4ifh0vr3ihigm702dzffdnapfj-guile-coverage-1.9.5.drv-0/guile-test-socket-1258553296-77619")
 ;;              #f)
-(chdir %tmpdir)
+(false-if-exception (chdir %tmpdir))
 
 (define (temp-file-path)
   ;; Return a temporary file name, assuming the current directory is %TMPDIR.