mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

More fixes for deleting files whose ports are not closed.

Browse source 
* test-suite/tests/r6rs-files.test: Close the port after
	using it.

	* test-suite/tests/posix.test ("mkstemp!"): Close the port after
	using it.
This commit is contained in:
Eli Zaretskii 2014-07-02 21:21:52 +03:00
parent 4698a11cbd
commit bc945fadd2
2 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
test-suite/tests/posix.test
View file

@ -73,6 +73,7 @@
(str (string-copy template)) (str (string-copy template))
(port (mkstemp! str)) (port (mkstemp! str))
(result (not (string=? str template)))) (result (not (string=? str template))))
(close-port port)
(delete-file str) (delete-file str)
result))) result)))

4
test-suite/tests/r6rs-files.test
View file

@ -24,7 +24,9 @@
(with-test-prefix "delete-file" (with-test-prefix "delete-file"
(pass-if "delete-file deletes 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) (delete-file filename)
(not (file-exists? filename)))) (not (file-exists? filename))))