From 56e3adefc9014018e07620a0e348de2445f76a76 Mon Sep 17 00:00:00 2001 From: Michael Gran Date: Thu, 4 Feb 2021 02:48:35 -0800 Subject: [PATCH] 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 --- test-suite/tests/filesys.test | 6 +++--- 1 file 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)))))