summaryrefslogtreecommitdiff
path: root/test-suite/tests/filesys.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/filesys.test')
-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)))))