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

Diff of /gcl/ansi-tests/simple-string-p.lsp

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

revision 1.1 by pfdietz, Mon Aug 30 11:16:36 2004 UTC revision 1.2 by pfdietz, Sat Jun 4 17:34:35 2005 UTC
# Line 58  Line 58 
58    :notes (:nil-vectors-are-strings)    :notes (:nil-vectors-are-strings)
59    (notnot-mv (simple-string-p (make-array '(37) :element-type nil)))    (notnot-mv (simple-string-p (make-array '(37) :element-type nil)))
60    t)    t)
61    
62    (deftest simple-string-p.10
63      (let ((i 0))
64        (values
65         (notnot (simple-string-p (progn (incf i) "")))
66         i))
67      t 1)
68    
69    ;;; Error tests
70    
71    (deftest simple-string-p.error.1
72      (signals-error (simple-string-p) program-error)
73      t)
74    
75    (deftest simple-string-p.error.2
76      (signals-error (simple-string-p "" nil) program-error)
77      t)

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

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