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

Diff of /gcl/ansi-tests/string-right-trim.lsp

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

revision 1.5 by pfdietz, Mon Jan 13 14:11:51 2003 UTC revision 1.6 by pfdietz, Sat Feb 15 05:11:12 2003 UTC
# Line 141  Line 141 
141    (string-right-trim "abc" (copy-seq "abcabcabc"))    (string-right-trim "abc" (copy-seq "abcabcabc"))
142    "")    "")
143    
144    (deftest string-right-trim.order.1
145      (let ((i 0) x y)
146        (values
147         (string-right-trim (progn (setf x (incf i)) " ")
148                           (progn (setf y (incf i))
149                                  (copy-seq "   abc d e f  ")))
150         i x y))
151      "   abc d e f" 2 1 2)
152    
153  ;;; Error cases  ;;; Error cases
154    
155  (deftest string-right-trim.error.1  (deftest string-right-trim.error.1

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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