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

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

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

revision 1.8 by pfdietz, Sat Jan 17 22:34:46 2004 UTC revision 1.9 by pfdietz, Mon Aug 30 12:59:22 2004 UTC
# Line 89  Line 89 
89    (string-capitalize (make-array '(0) :element-type nil))    (string-capitalize (make-array '(0) :element-type nil))
90    "")    "")
91    
92    (deftest string-capitalize.12
93      (loop for type in '(standard-char base-char character)
94            for s = (make-array '(10) :element-type type
95                                :fill-pointer 5
96                                :initial-contents "aB0cDefGHi")
97            collect (list s (string-capitalize s)))
98      (("aB0cD" "Ab0cd") ("aB0cD" "Ab0cd") ("aB0cD" "Ab0cd")))
99    
100    
101    (deftest string-capitalize.13
102      (loop for type in '(standard-char base-char character)
103            for s0 = (make-array '(10) :element-type type
104                                 :initial-contents "zZaB0cDefG")
105            for s = (make-array '(5) :element-type type
106                                :displaced-to s0
107                                :displaced-index-offset 2)
108            collect (list s (string-capitalize s)))
109      (("aB0cD" "Ab0cd") ("aB0cD" "Ab0cd") ("aB0cD" "Ab0cd")))
110    
111    (deftest string-capitalize.14
112      (loop for type in '(standard-char base-char character)
113            for s = (make-array '(5) :element-type type
114                                :adjustable t
115                                :initial-contents "aB0cD")
116            collect (list s (string-capitalize s)))
117      (("aB0cD" "Ab0cd") ("aB0cD" "Ab0cd") ("aB0cD" "Ab0cd")))
118    
119    ;;; Order of evaluation tests
120    
121  (deftest string-capitalize.order.1  (deftest string-capitalize.order.1
122    (let ((i 0) a b c (s (copy-seq "abcdef")))    (let ((i 0) a b c (s (copy-seq "abcdef")))
123      (values      (values

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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