12345678910111213141516171819202122232425262728293031323334353637383940414243 |
- (define-module (test-suite test-rnrs-files)
- #:use-module (rnrs exceptions)
- #:use-module (rnrs files)
- #:use-module (test-suite lib))
- (with-test-prefix "delete-file"
- (pass-if "delete-file deletes file"
- (let* ((port (mkstemp "T-XXXXXX"))
- (filename (port-filename port)))
- (close-port port)
- (delete-file filename)
- (not (file-exists? filename))))
- (pass-if "delete-file raises &i/o-filename on error"
- (let ((success #f))
- (call/cc
- (lambda (continuation)
- (with-exception-handler
- (lambda (condition)
- (set! success (i/o-filename-error? condition))
- (continuation))
- (lambda () (delete-file "")))))
- success)))
|