/[gcl]/gcl/ansi-tests/write-string.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/write-string.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pfdietz, Mon Feb 23 23:19:57 2004 UTC revision 1.5 by pfdietz, Sun Sep 19 20:56:33 2004 UTC
# Line 120  Line 120 
120      (write-string "-=|!" nil))      (write-string "-=|!" nil))
121    "-=|!")    "-=|!")
122    
123    ;;; Specialized string tests
124    
125    (deftest write-string.13
126      (let (result)
127        (do-special-strings
128         (s "abcde" nil)
129         (assert (equal
130                  (with-output-to-string
131                    (*standard-output*)
132                    (setq result (multiple-value-list (write-string "abcde"))))
133                  "abcde"))
134         (assert (equal result '("abcde")))))
135      nil)
136    
137  ;;; Error tests  ;;; Error tests
138    
139  (deftest write-string.error.1  (deftest write-string.error.1

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26