summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2021-02-04 02:48:35 -0800
committerMichael Gran <spk121@yahoo.com>2021-02-04 02:48:35 -0800
commit56e3adefc9014018e07620a0e348de2445f76a76 (patch)
tree97a1ca2461ba092024264e012a0e6a38650195d1
parentf5b3506ecea161a7551ffb412e1ffa6fe8c1ae0b (diff)
downloadguile-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.test6
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)))))