brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Work on removing irelevant parts of util-string.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-24 22:00:11 +02:00
parent a576779891
commit 0b383c6fa6
1 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/util-string.scm
View file

@ -31,7 +31,6 @@
string-first+rest string-first+rest
string-utf8? string-utf8?
string->list/utf8
string->qp string->qp
@ -103,12 +102,6 @@
(define (string-tests!) (define (string-tests!)
(run-tests (run-tests
util-string util-string
(test-equal? string-repeat
(string-repeat "-" 4)
"----")
(test-equal? string-repeat
(string-repeat "š" 4)
"šššš")
(test-equal? string-first+rest (test-equal? string-first+rest
(string-first+rest "asdf rest") (string-first+rest "asdf rest")
'("asdf" . "rest")) '("asdf" . "rest"))