file-options のテストを書いている

#|  file-options

    (file-options)
      If file exists:     raise &file-already-exists
      If does not exist:  create new file
|#

(test/exception i/o-file-already-exists-error?
                (open-file-input/output-port "./test/utf16.txt"))

(test/exception i/o-file-already-exists-error?
                (open-file-input/output-port "./test/utf16.txt" (file-options)))

(with-all-buffer-mode-simple
 (lambda (mode)
   (test/exception i/o-file-already-exists-error?
                   (open-file-input/output-port "./test/utf16.txt" (file-options) mode))))