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

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

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

revision 1.1 by pfdietz, Fri Oct 4 10:45:15 2002 UTC revision 1.2 by pfdietz, Fri Oct 4 11:13:40 2002 UTC
# Line 106  Line 106 
106      (values s s2))      (values s s2))
107    "abcdaba"    "abcdaba"
108    "cdaba")    "cdaba")
109    
110    ;;; Test that trimming is case sensitive
111    (deftest string-left-trim.13
112      (let* ((s (copy-seq "aA"))
113             (s2 (string-left-trim "a" s)))
114        (values s s2))
115      "aA" "A")
116    
117    (deftest string-left-trim.14
118      (let* ((s '|abcdaba|)
119             (s2 (string-left-trim "ab" s)))
120        (values (symbol-name s) s2))
121      "abcdaba"
122      "cdaba")
123    
124    (deftest string-left-trim.15
125      (string-left-trim "abc" "")
126      "")
127    
128    (deftest string-left-trim.16
129      (string-left-trim "a" #\a)
130      "")
131    
132    (deftest string-left-trim.17
133      (string-left-trim "b" #\a)
134      "a")
135    
136    (deftest string-left-trim.18
137      (string-left-trim "" (copy-seq "abcde"))
138      "abcde")
139    
140    (deftest string-left-trim.19
141      (string-left-trim "abc" (copy-seq "abcabcabc"))
142      "")

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