diff --git a/ansi-tests/delete-file.lsp b/ansi-tests/delete-file.lsp index ab6a529e791849d858674bc08db7d472429fa5a4..fef9bf013bfdf065d7c0c400792de99827ed50f5 100644 --- a/ansi-tests/delete-file.lsp +++ b/ansi-tests/delete-file.lsp @@ -29,6 +29,7 @@ (deftest delete-file.3 (let ((pn "CLTEST:scratchfile.txt")) + (assert (typep (pathname pn) 'logical-pathname)) (unless (probe-file pn) (with-open-file (s pn :direction :output) (format s "Contents~%"))) @@ -40,6 +41,7 @@ (deftest delete-file.4 (let ((pn "CLTEST:scratchfile.txt")) + (assert (typep (pathname pn) 'logical-pathname)) (unless (probe-file pn) (with-open-file (s pn :direction :output) (format s "Contents~%"))) diff --git a/ansi-tests/rename-file.lsp b/ansi-tests/rename-file.lsp index 3c55dd7800596cc2ac40fb503e187c1352302cda..906cba07181c4bbe7fe1aaa916f85bd12cda0ea6 100644 --- a/ansi-tests/rename-file.lsp +++ b/ansi-tests/rename-file.lsp @@ -111,6 +111,8 @@ (pn2 "CLTEST:file-that-was-renamed.txt")) (delete-all-versions pn1) (delete-all-versions pn2) + (assert (typep (pathname pn1) 'logical-pathname)) + (assert (typep (pathname pn2) 'logical-pathname)) (with-open-file (s pn1 :direction :output) (format s "Whatever~%")) (let ((results (multiple-value-list (rename-file pn1 pn2)))) (destructuring-bind (defaulted-new-name old-truename new-truename) diff --git a/ansi-tests/with-output-to-string.lsp b/ansi-tests/with-output-to-string.lsp index 23a40c43765bc070964bd4df4c439499cd41840f..d3b96e48ff8b496c05debcde173fedd5ea8abf1a 100644 --- a/ansi-tests/with-output-to-string.lsp +++ b/ansi-tests/with-output-to-string.lsp @@ -45,8 +45,10 @@ "&") (deftest with-output-to-string.8 - (with-output-to-string (s nil :element-type 'base-char) - (write-char #\8 s)) + (let ((str (with-output-to-string (s nil :element-type 'base-char) + (write-char #\8 s)))) + (assert (typep str 'simple-base-string)) + str) "8") (deftest with-output-to-string.9 @@ -88,4 +90,20 @@ (write-char #\9 s)) "049") - +(deftest with-output-to-string.14 + (let* ((str1 (make-array '(256) :element-type 'base-char :fill-pointer 0)) + (str2 (with-output-to-string + (s nil :element-type 'base-char) + (loop for i below 256 + for c = (code-char i) + when (typep c 'base-char) + do (write-char c s) + do (vector-push c str1))))) + (if (string= str1 str2) :good + (list str1 str2))) + :good) + + + + + \ No newline at end of file