mirror/ede
1
0
Fork 0
mirror of https://github.com/edeproject/ede.git synced 2023-08-10 21:13:03 +03:00
Code Issues Projects Releases Wiki Activity

More tests

Browse Source
This commit is contained in:
Sanel Zukan 2008-07-08 12:24:24 +00:00
parent 5747340449
commit 5a251cf812
1 changed files with 67 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
tools/capone/test/string.ss
View File

@ -21,13 +21,35 @@
))) )))
(ut-add-test (ut-add-test
"Check 'string<?' function" "Check 'string<? and string>?' functions"
(begin (begin
(and (and
(string<? "aaaa" "z") (string<? "aaaa" "z")
(string<? "foo" "fooo") (string<? "foo" "fooo")
(not (string<? "foo" "asdadad")) (not (string<? "foo" "asdadad"))
(not (string<? "fooooooooo" "ab")) (not (string<? "fooooooooo" "ab"))
(string>? "z" "aaaa")
(string>? "fooo" "foo")
(string>? "foo" "asdadad")
(string>? "fooooooooo" "ab")
)))
(ut-add-test
"Check 'string<=? and string>=?' functions"
(begin
(and
(string<=? "aaaa" "z")
(string<=? "aaaa" "aaaa")
(string<=? "" "")
(not (string<=? "foo" "asdadad"))
(not (string<=? "fooooooooo" "ab"))
(string>=? "z" "aaaa")
(string>=? "aaaa" "aaaa")
(string>=? "" "")
(string>=? "foo" "asdadad")
(string>=? "fooooooooo" "ab")
))) )))
(ut-add-test (ut-add-test
@ -57,3 +79,47 @@
(= 0 (string-length "")) (= 0 (string-length ""))
(= 1 (string-length "a")) (= 1 (string-length "a"))
))) )))
;; As I could find from chicken and guile, string-fill! should modify
;; any string, not only one given with (make-string) only, which creates immutable strings
;;
;; This behaviour should be somehow documented and here it is:
;; If we make a string like '(define s "foo")' it will be immutable by default and that
;; can't be changed. On other hand, if we do something like:
;; (define s (make-string 10))
;; (set! s (string-copy "foo"))
;; 's' will have "foo" value, have length of 3 characters and _will_ be mutable, e.g.
;; '(string-set! s 0 #\m)' will not fail and result will be "moo".
;;
;; Should it be seen as bug?
(ut-add-test
"Check 'string-fill! and make-string' functions [!]"
(begin
(define s (make-string 11))
(string-fill! s #\o)
(string=? s "ooooooooooo")
))
(ut-add-test
"Check 'string-set!' function"
(begin
(define s (make-string 10))
(set! s (string-copy "abrakadabra abrakadabra"))
(string-set! s 0 #\A)
(string-set! s 1 #\B)
(string-set! s 2 #\A)
(string-set! s 11 #\|)
(string-set! s 22 #\A)
(string=? s "ABAakadabra|abrakadabrA")
)
)
(ut-add-test
"Check 'number->string' function"
(begin
(and
(string=? "33" (number->string 33))
(string=? "1234" (number->string 1234))
(string=? "0" (number->string 0))
(string=? "-1234" (number->string -1234))
)))