From 6a1328cd775f1e44180ce5c84244483b5df9ca91 Mon Sep 17 00:00:00 2001 From: Ben Greenman Date: Sun, 19 Apr 2020 21:57:14 -0400 Subject: [PATCH] ^ regression tests --- pkgs/racket-test-core/tests/racket/filelib.rktl | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/pkgs/racket-test-core/tests/racket/filelib.rktl b/pkgs/racket-test-core/tests/racket/filelib.rktl index aa289a4a63..1995a5cc65 100644 --- a/pkgs/racket-test-core/tests/racket/filelib.rktl +++ b/pkgs/racket-test-core/tests/racket/filelib.rktl @@ -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)])