mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

the mkdtemp tests don't clean up the directories created

Browse source 
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
This commit is contained in:
Michael Gran 2021-02-04 02:48:35 -08:00
parent f5b3506ece
commit 56e3adefc9
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/filesys.test
View file

@ -1,6 +1,6 @@
;;;; filesys.test --- test file system functions -*- scheme -*- ;;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -245,7 +245,7 @@
(throw 'unresolved) (throw 'unresolved)
(let* ((template "T-XXXXXX") (let* ((template "T-XXXXXX")
(name (mkdtemp template))) (name (mkdtemp template)))
(false-if-exception (rmdir template)) (false-if-exception (rmdir name))
(and (and
(string? name) (string? name)
(string-contains name "T-") (string-contains name "T-")
@ -263,5 +263,5 @@
(name (mkdtemp template))) (name (mkdtemp template)))
(let* ((_stat (stat name)) (let* ((_stat (stat name))
(result (eqv? 'directory (stat:type _stat)))) (result (eqv? 'directory (stat:type _stat))))
(false-if-exception (rmdir template)) (false-if-exception (rmdir name))
result))))) result)))))