[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.11-43-gbc945
From: |
Eli Zaretskii |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.11-43-gbc945fa |
Date: |
Wed, 02 Jul 2014 18:22:58 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=bc945fadd2e94c5ddf1a5b42e7eef5726b5b1068
The branch, stable-2.0 has been updated
via bc945fadd2e94c5ddf1a5b42e7eef5726b5b1068 (commit)
from 4698a11cbdb057953cf4e02126c701d875cc1f42 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit bc945fadd2e94c5ddf1a5b42e7eef5726b5b1068
Author: Eli Zaretskii <address@hidden>
Date: Wed Jul 2 21:21:52 2014 +0300
More fixes for deleting files whose ports are not closed.
* test-suite/tests/r6rs-files.test: Close the port after
using it.
* test-suite/tests/posix.test ("mkstemp!"): Close the port after
using it.
-----------------------------------------------------------------------
Summary of changes:
test-suite/tests/posix.test | 1 +
test-suite/tests/r6rs-files.test | 4 +++-
2 files changed, 4 insertions(+), 1 deletions(-)
diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test
index 00e9c68..00632d8 100644
--- a/test-suite/tests/posix.test
+++ b/test-suite/tests/posix.test
@@ -73,6 +73,7 @@
(str (string-copy template))
(port (mkstemp! str))
(result (not (string=? str template))))
+ (close-port port)
(delete-file str)
result)))
diff --git a/test-suite/tests/r6rs-files.test b/test-suite/tests/r6rs-files.test
index df5dd22..b1b93d1 100644
--- a/test-suite/tests/r6rs-files.test
+++ b/test-suite/tests/r6rs-files.test
@@ -24,7 +24,9 @@
(with-test-prefix "delete-file"
(pass-if "delete-file deletes file"
- (let ((filename (port-filename (mkstemp! "T-XXXXXX"))))
+ (let* ((port (mkstemp! "T-XXXXXX"))
+ (filename (port-filename port)))
+ (close-port port)
(delete-file filename)
(not (file-exists? filename))))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.11-43-gbc945fa,
Eli Zaretskii <=