diff options
author | Michael Gran <spk121@yahoo.com> | 2021-02-04 02:48:35 -0800 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2021-02-04 02:48:35 -0800 |
commit | 56e3adefc9014018e07620a0e348de2445f76a76 (patch) | |
tree | 97a1ca2461ba092024264e012a0e6a38650195d1 | |
parent | f5b3506ecea161a7551ffb412e1ffa6fe8c1ae0b (diff) | |
download | guile-56e3adefc9014018e07620a0e348de2445f76a76.tar.gz |
the mkdtemp tests don't clean up the directories created
The tests erroneously try to rmdir the template names, not the
names of the directories created.
* test-suite/tests/filesys.test ("mkdtemp"): clean up temp directories,
and not their templates
-rw-r--r-- | test-suite/tests/filesys.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/tests/filesys.test b/test-suite/tests/filesys.test index e61b96f6e..6fed981e5 100644 --- a/test-suite/tests/filesys.test +++ b/test-suite/tests/filesys.test @@ -1,6 +1,6 @@ ;;;; filesys.test --- test file system functions -*- scheme -*- ;;;; -;;;; Copyright (C) 2004, 2006, 2013, 2019 Free Software Foundation, Inc. +;;;; Copyright (C) 2004, 2006, 2013, 2019, 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 @@ -245,7 +245,7 @@ (throw 'unresolved) (let* ((template "T-XXXXXX") (name (mkdtemp template))) - (false-if-exception (rmdir template)) + (false-if-exception (rmdir name)) (and (string? name) (string-contains name "T-") @@ -263,5 +263,5 @@ (name (mkdtemp template))) (let* ((_stat (stat name)) (result (eqv? 'directory (stat:type _stat)))) - (false-if-exception (rmdir template)) + (false-if-exception (rmdir name)) result))))) |