diff options
author | Michael Gran <spk121@yahoo.com> | 2020-11-23 19:53:38 -0800 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2021-01-21 15:30:09 -0800 |
commit | 50da05835a70daa36f74b23fe3a12d18d0cb6691 (patch) | |
tree | d4c5ff048bb5d4c6d5a8faf361e4ec11fb8f8ad2 | |
parent | fe505e1a2aa8f71ab68cac878840aff9f3d2ede6 (diff) | |
download | guile-50da05835a70daa36f74b23fe3a12d18d0cb6691.tar.gz |
for socket test, don't presume TMP is usable
* test-suite/tests/00-socket.test: don't abort when unable to change
into tmpdir
-rw-r--r-- | test-suite/tests/00-socket.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test index 7f55adea1..365762827 100644 --- 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. |