diff --git a/ansi-tests/notes.lsp b/ansi-tests/notes.lsp index cd36ce4a088e8f17f886dd1ae7811633dc28d5bb..5f24241c7f9ff5199750665b396217025b7aced8 100644 --- a/ansi-tests/notes.lsp +++ b/ansi-tests/notes.lsp @@ -26,3 +26,8 @@ (defnote :assume-no-simple-streams "Disable the test if simple streams are present.") +(defnote :open-if-exists-new-version-no-error + "Assume that OPEN, when called with :if-exists :new-version, does not fail.") + +#+sbcl (rt::disable-note :open-if-exists-new-version-no-error) + diff --git a/ansi-tests/open.lsp b/ansi-tests/open.lsp index b1e978b41a2d62f8c207439e0e97f56f1b73dddc..719c6bec29a5388524129b984afcd2b301641cff 100644 --- a/ansi-tests/open.lsp +++ b/ansi-tests/open.lsp @@ -42,6 +42,7 @@ (defmacro def-open-test (name args form expected &key + (notes nil notes-p) (build-form nil build-form-p) (element-type 'character element-type-p) (pathname #p"tmp.dat")) @@ -74,6 +75,7 @@ )))) `(deftest ,name + ,@(when notes-p `(:notes ,notes)) (let ((pn ,pathname)) (delete-all-versions pn) ,build-form @@ -548,7 +550,9 @@ (with-open-file (s pn :direction :input) (values (read-line s nil)))) - ("wxyz")) + ("wxyz") + :notes (:open-if-exists-new-version-no-error) + ) (def-open-test open.output.22 (:if-exists :rename :direction :output) (progn (write-sequence "wxyz" s) @@ -628,6 +632,7 @@ ;;; of the filespec is :newest (deftest open.output.30 + :notes (:open-if-exists-new-version-no-error) (let ((pn (make-pathname :name "tmp" :type "dat" :version :newest))) (or (not (eql (pathname-version pn) :newest)) (progn @@ -877,7 +882,9 @@ (progn (write-sequence "wxyz" s) (file-position s :start) (values (read-line s nil))) - ("wxyz")) + ("wxyz") + :notes (:open-if-exists-new-version-no-error) + ) (def-open-test open.io.22 (:if-exists :rename :direction :io) (progn (write-sequence "wxyz" s) @@ -945,6 +952,7 @@ ;;; of the filespec is :newest (deftest open.io.30 + :notes (:open-if-exists-new-version-no-error) (let ((pn (make-pathname :name "tmp" :type "dat" :version :newest))) (or (not (eql (pathname-version pn) :newest)) (progn