Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing string-trim resulting in empty string

Browse source
This commit is contained in:
Alex Shinn 2012-07-23 05:54:33 +09:00
parent 90ba17a21a
commit b682d77971
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/strings.scm
View file

@ -81,10 +81,12 @@
(string-skip-right str pred))))
(define (string-trim str . o)
(let ((pred (make-char-predicate (if (pair? o) (car o) #\space))))
(substring-cursor str
(string-skip str pred)
(string-skip-right str pred))))
(let* ((pred (if (pair? o) (car o) #\space))
(left (string-skip str pred))
(right (string-skip-right str pred)))
(if (string-cursor>=? left right)
""
(substring-cursor str left right))))
(define (string-mismatch prefix str)
(let ((end1 (string-cursor-end prefix))

3
tests/string-tests.scm
View file

@ -59,6 +59,9 @@
(test "abc" (string-trim " abc"))
(test "abc" (string-trim "abc "))
(test "abc" (string-trim " abc "))
(test "" (string-trim ""))
(test "" (string-trim " "))
(test "" (string-trim " "))
(test #t (string-prefix? "abc" "abc"))
(test #t (string-prefix? "abc" "abcde"))