suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

^ regression tests

Browse Source
This commit is contained in:
Ben Greenman 2020-04-19 21:57:14 -04:00 committed by Sam Tobin-Hochstadt
parent 098d4c789a
commit 6a1328cd77
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/racket-test-core/tests/racket/filelib.rktl
View File

@ -56,6 +56,15 @@
(err/rt-chk-test (display-lines-to-file '(y) "x" #:exists 'other))
(err/rt-chk-test (display-lines-to-file '(y) "x" #:mode 'other))
(define check-not-exists-msg
;; for ops that expect 'open-input-file' to detect a missing file
(check-msg 'open-input-file))
(err/rt-test (file->string tmp-name) check-not-exists-msg)
(err/rt-test (file->bytes tmp-name) check-not-exists-msg)
(err/rt-test (file->value tmp-name) check-not-exists-msg)
(err/rt-test (file->lines tmp-name) check-not-exists-msg)
(err/rt-test (file->bytes-lines tmp-name) check-not-exists-msg)
;; ----------------------------------------
(parameterize ([current-directory (current-load-relative-directory)])