/[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.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-upcase.1  (deftest nstring-upcase.1
9    (let* ((s (copy-seq "a"))    (let* ((s (copy-seq "a"))
10           (s2 (nstring-upcase s)))           (s2 (nstring-upcase s)))
11      (values (eq s s2) s))      (values (eqt s s2) s))
12    t "A")    t "A")
13    
14  (deftest nstring-upcase.2  (deftest nstring-upcase.2
15    (let* ((s (copy-seq "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"))    (let* ((s (copy-seq "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"))
16           (s2 (nstring-upcase s)))           (s2 (nstring-upcase s)))
17      (values (eq s s2) s))      (values (eqt s s2) s))
18    t    t
19    "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ")      "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ")  
20    
21  (deftest nstring-upcase.3  (deftest nstring-upcase.3
22    (let* ((s (copy-seq "0123456789!@#$%^&*()_-+=|\\{}[]:\";'<>?,./ "))    (let* ((s (copy-seq "0123456789!@#$%^&*()_-+=|\\{}[]:\";'<>?,./ "))
23           (s2 (nstring-upcase s)))           (s2 (nstring-upcase 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-upcase s)))           (s2 (nstring-upcase s)))
32      (values (eq s s2) s))      (values (eqt s s2) s))
33    t "ABCDEF")    t "ABCDEF")
34    
35  (deftest nstring-upcase.7  (deftest nstring-upcase.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-upcase s)))           (s2 (nstring-upcase s)))
39      (values (eq s s2) s))      (values (eqt s s2) s))
40    t "AB7DEF")    t "AB7DEF")
41    
42  ;; Tests with :start, :end  ;; Tests with :start, :end

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