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

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

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

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