/[gcl]/gcl/ansi-tests/stringp.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/stringp.lsp

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

revision 1.2 by pfdietz, Thu Sep 2 11:47:20 2004 UTC revision 1.3 by pfdietz, Sat Jun 4 17:34:35 2005 UTC
# Line 82  Line 82 
82                                 :initial-contents '(#\a #\b #\c #\d))))                                 :initial-contents '(#\a #\b #\c #\d))))
83    t)    t)
84    
85    (deftest stringp.15
86      (let ((i 0))
87        (values
88         (notnot (stringp (progn (incf i) "")))
89         i))
90      t 1)
91    
92    ;;; Error tests
93    
94    (deftest stringp.error.1
95      (signals-error (stringp) program-error)
96      t)
97    
98    (deftest stringp.error.2
99      (signals-error (stringp "" nil) program-error)
100      t)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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