[Guile-commits] branch master updated: the mkdtemp tests don't clean up the directories created

[Mike Gran]

This is an automated email from the git hooks/post-receive script.

mike121 pushed a commit to branch master
in repository guile.

The following commit(s) were added to refs/heads/master by this push:
     new 56e3ade  the mkdtemp tests don't clean up the directories created
56e3ade is described below

commit 56e3adefc9014018e07620a0e348de2445f76a76
Author: Michael Gran <spk121@yahoo.com>
AuthorDate: Thu Feb 4 02:48:35 2021 -0800

    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 e61b96f..6fed981 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)))))