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

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

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

revision 1.2 by pfdietz, Mon Jan 13 14:11:51 2003 UTC revision 1.3 by pfdietz, Sat Feb 15 05:11:12 2003 UTC
# Line 80  Line 80 
80     ("abcde" "abcdE"))     ("abcde" "abcdE"))
81    "abcde")    "abcde")
82    
83    (deftest string-upcase.order.1
84      (let ((i 0) a b c (s (copy-seq "abcdef")))
85        (values
86         (string-upcase
87          (progn (setf a (incf i)) s)
88          :start (progn (setf b (incf i)) 1)
89          :end   (progn (setf c (incf i)) 4))
90         i a b c))
91      "aBCDef" 3 1 2 3)
92    
93    (deftest string-upcase.order.2
94      (let ((i 0) a b c (s (copy-seq "abcdef")))
95        (values
96         (string-upcase
97          (progn (setf a (incf i)) s)
98          :end   (progn (setf b (incf i)) 4)
99          :start (progn (setf c (incf i)) 1))
100         i a b c))
101      "aBCDef" 3 1 2 3)
102    
103        
104  ;;; Error cases  ;;; Error cases
105    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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