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

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

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

revision 1.3 by pfdietz, Mon Jan 13 14:11:50 2003 UTC revision 1.4 by pfdietz, Fri Feb 14 05:10:36 2003 UTC
# Line 60  Line 60 
60     ("ABCDEF" "ABCDEF" "ABCDEf")     ("ABCDEF" "ABCDEF" "ABCDEf")
61     ("ABCDEF" "ABCDEF")))     ("ABCDEF" "ABCDEF")))
62    
63    (deftest nstring-capitalize.order.1
64      (let ((i 0) a b c (s (copy-seq "abcdef")))
65        (values
66         (nstring-capitalize
67          (progn (setf a (incf i)) s)
68          :start (progn (setf b (incf i)) 1)
69          :end   (progn (setf c (incf i)) 4))
70         i a b c))
71      "aBcdef" 3 1 2 3)
72    
73    (deftest nstring-capitalize.order.2
74      (let ((i 0) a b c (s (copy-seq "abcdef")))
75        (values
76         (nstring-capitalize
77          (progn (setf a (incf i)) s)
78          :end   (progn (setf b (incf i)) 4)
79          :start (progn (setf c (incf i)) 1))
80         i a b c))
81      "aBcdef" 3 1 2 3)
82    
83  ;;; Error cases  ;;; Error cases
84    
85  (deftest nstring-capitalize.error.1  (deftest nstring-capitalize.error.1

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

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