/[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.1 by pfdietz, Fri Oct 4 02:51:04 2002 UTC revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 8  Line 8 
8  (deftest nstring-downcase.1  (deftest nstring-downcase.1
9    (let* ((s (copy-seq "A"))    (let* ((s (copy-seq "A"))
10           (s2 (nstring-downcase s)))           (s2 (nstring-downcase s)))
11      (values (eq s s2) s))      (values (eqt s s2) s))
12    t "a")    t "a")
13    
14  (deftest nstring-downcase.2  (deftest nstring-downcase.2
15    (let* ((s (copy-seq "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"))    (let* ((s (copy-seq "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"))
16           (s2 (nstring-downcase s)))           (s2 (nstring-downcase s)))
17      (values (eq s s2) s))      (values (eqt s s2) s))
18    t    t
19    "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz")    "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz")
20    
21  (deftest nstring-downcase.3  (deftest nstring-downcase.3
22    (let* ((s (copy-seq "0123456789!@#$%^&*()_-+=|\\{}[]:\";'<>?,./ "))    (let* ((s (copy-seq "0123456789!@#$%^&*()_-+=|\\{}[]:\";'<>?,./ "))
23           (s2 (nstring-downcase s)))           (s2 (nstring-downcase s)))
24      (values (eq s s2) s))      (values (eqt s s2) s))
25    t    t
26    "0123456789!@#$%^&*()_-+=|\\{}[]:\";'<>?,./ ")    "0123456789!@#$%^&*()_-+=|\\{}[]:\";'<>?,./ ")
27    
# Line 29  Line 29 
29    (let* ((s (make-array 6 :element-type 'character    (let* ((s (make-array 6 :element-type 'character
30                          :initial-contents '(#\A #\B #\C #\D #\E #\F)))                          :initial-contents '(#\A #\B #\C #\D #\E #\F)))
31           (s2 (nstring-downcase s)))           (s2 (nstring-downcase s)))
32      (values (eq s s2) s))      (values (eqt s s2) s))
33    t "abcdef")    t "abcdef")
34    
35  (deftest nstring-downcase.7  (deftest nstring-downcase.7
36    (let* ((s (make-array 6 :element-type 'standard-char    (let* ((s (make-array 6 :element-type 'standard-char
37                          :initial-contents '(#\A #\B #\7 #\D #\E #\F)))                          :initial-contents '(#\A #\B #\7 #\D #\E #\F)))
38           (s2 (nstring-downcase s)))           (s2 (nstring-downcase s)))
39      (values (eq s s2) s))      (values (eqt s s2) s))
40    t    t
41    "ab7def")    "ab7def")
42    

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