/[gcl]/gcl/ansi-tests/nstring-upcase.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/nstring-upcase.lsp

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

revision 1.7 by pfdietz, Sat Jan 17 20:05:00 2004 UTC revision 1.8 by pfdietz, Mon Aug 30 12:59:21 2004 UTC
# Line 71  Line 71 
71    (nstring-upcase (make-array '(0) :element-type nil))    (nstring-upcase (make-array '(0) :element-type nil))
72    "")    "")
73    
74    (deftest nstring-upcase.12
75      (loop for type in '(standard-char base-char character)
76            for s = (make-array '(10) :element-type type
77                                :fill-pointer 5
78                                :initial-contents "aB0cDefGHi")
79            collect (list (copy-seq s)
80                          (copy-seq (nstring-upcase s))
81                          (copy-seq s)
82                          (progn (setf (fill-pointer s) 10) (copy-seq s))
83                          ))
84      (("aB0cD" "AB0CD" "AB0CD" "AB0CDefGHi")
85       ("aB0cD" "AB0CD" "AB0CD" "AB0CDefGHi")
86       ("aB0cD" "AB0CD" "AB0CD" "AB0CDefGHi")))
87    
88    (deftest nstring-upcase.13
89      (loop for type in '(standard-char base-char character)
90            for s0 = (make-array '(10) :element-type type
91                                 :initial-contents "zZaB0cDefG")
92            for s = (make-array '(5) :element-type type
93                                :displaced-to s0
94                                :displaced-index-offset 2)
95            collect (list (copy-seq s)
96                          (nstring-upcase s)
97                          (copy-seq s)
98                          s0))
99      (("aB0cD" "AB0CD" "AB0CD" "zZAB0CDefG")
100       ("aB0cD" "AB0CD" "AB0CD" "zZAB0CDefG")
101       ("aB0cD" "AB0CD" "AB0CD" "zZAB0CDefG")))
102    
103    (deftest nstring-upcase.14
104      (loop for type in '(standard-char base-char character)
105            for s = (make-array '(5) :element-type type
106                                :adjustable t
107                                :initial-contents "aB0cD")
108            collect (list (copy-seq s)
109                          (nstring-upcase s)
110                          (copy-seq s)))
111      (("aB0cD" "AB0CD" "AB0CD")
112       ("aB0cD" "AB0CD" "AB0CD")
113       ("aB0cD" "AB0CD" "AB0CD")))
114    
115    ;;; Order of evaluation tests
116    
117  (deftest nstring-upcase.order.1  (deftest nstring-upcase.order.1
118    (let ((i 0) a b c (s (copy-seq "abcdef")))    (let ((i 0) a b c (s (copy-seq "abcdef")))
119      (values      (values

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

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