suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

testing implementations

Browse Source
This commit is contained in:
Danny Yoo 2011-08-31 15:21:31 -04:00
parent aeb0c14fab
commit 8d1723a31b
2 changed files with 255 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

126
tests/more-tests/string-tests.expected
View File

@ -19,6 +19,126 @@
#\e
#\l
#\o
(#\x #\y #\z)
(#\x)
()
'(#\x #\y #\z)
'(#\x)
'()
false
false
false
true
false
false
true
false
false
false
true
false
true
false
true
true
false
true
true
false
true
false
true
false
false
true
false
false
true
false
false
true
false
true
false
true
true
true
true
false
true
true
false
true
true
true
false
true
true
false
true
false
false
true
false
false
true
false
false
false
false
false
false
true
false
false
true
false
false
false
true
false
true
true
true
true
false
true
true
false
true
false
true
false
false
false
false
false
true
false
false
true
false
true
false
true
true
true
true
false
true
true
false
true
true
true
false
true
true
true
true
false
false
true
false
false
true
false
false
false

133
tests/more-tests/string-tests.rkt
View File

@ -31,9 +31,140 @@
(string->list "x")
(string->list "")
(string<? "" "")
(string<? "hello" "Hello")
(string<? "hello" "hello")
(string<? "hello" "hi")
(string<? "hello" "he")
(string<? "a" "a")
(string<? "a" "b")
(string<? "b" "a")
(string<? "b" "b")
(string<? "ba" "ab")
(string<? "ba" "baa")
(string<? "baaa" "baa")
(string<=? "" "")
(string<=? "hello" "Hello")
(string<=? "hello" "hello")
(string<=? "hello" "hi")
(string<=? "hello" "he")
(string<=? "a" "a")
(string<=? "a" "b")
(string<=? "b" "a")
(string<=? "b" "b")
(string<=? "ba" "ab")
(string<=? "ba" "baa")
(string<=? "baaa" "baa")
(string>? "" "")
(string>? "hello" "Hello")
(string>? "hello" "hello")
(string>? "hello" "hi")
(string>? "hello" "he")
(string>? "a" "a")
(string>? "a" "b")
(string>? "b" "a")
(string>? "b" "b")
(string>? "ba" "ab")
(string>? "ba" "baa")
(string>? "baaa" "baa")
(string>=? "" "")
(string>=? "hello" "Hello")
(string>=? "hello" "hello")
(string>=? "hello" "hi")
(string>=? "hello" "he")
(string>=? "a" "a")
(string>=? "a" "b")
(string>=? "b" "a")
(string>=? "b" "b")
(string>=? "ba" "ab")
(string>=? "ba" "baa")
(string>=? "baaa" "baa")
(string=? "" "")
(string=? "hello" "Hello")
(string=? "hello" "hello")
(string=? "hello" "hi")
(string=? "hello" "he")
(string=? "a" "a")
(string=? "a" "b")
(string=? "b" "a")
(string=? "b" "b")
(string=? "ba" "ab")
(string=? "ba" "baa")
(string=? "baaa" "baa")
(string-ci<? "" "")
(string-ci<? "hello" "Hello")
(string-ci<? "hello" "hello")
(string-ci<? "hello" "hi")
(string-ci<? "hello" "he")
(string-ci<? "a" "a")
(string-ci<? "a" "b")
(string-ci<? "b" "a")
(string-ci<? "b" "b")
(string-ci<? "ba" "ab")
(string-ci<? "ba" "baa")
(string-ci<? "baaa" "baa")
(string-ci<=? "" "")
(string-ci<=? "hello" "Hello")
(string-ci<=? "hello" "hello")
(string-ci<=? "hello" "hi")
(string-ci<=? "hello" "he")
(string-ci<=? "a" "a")
(string-ci<=? "a" "b")
(string-ci<=? "b" "a")
(string-ci<=? "b" "b")
(string-ci<=? "ba" "ab")
(string-ci<=? "ba" "baa")
(string-ci<=? "baaa" "baa")
(string-ci>? "" "")
(string-ci>? "hello" "Hello")
(string-ci>? "hello" "hello")
(string-ci>? "hello" "hi")
(string-ci>? "hello" "he")
(string-ci>? "a" "a")
(string-ci>? "a" "b")
(string-ci>? "b" "a")
(string-ci>? "b" "b")
(string-ci>? "ba" "ab")
(string-ci>? "ba" "baa")
(string-ci>? "baaa" "baa")
(string-ci>=? "" "")
(string-ci>=? "hello" "Hello")
(string-ci>=? "hello" "hello")
(string-ci>=? "hello" "hi")
(string-ci>=? "hello" "he")
(string-ci>=? "a" "a")
(string-ci>=? "a" "b")
(string-ci>=? "b" "a")
(string-ci>=? "b" "b")
(string-ci>=? "ba" "ab")
(string-ci>=? "ba" "baa")
(string-ci>=? "baaa" "baa")
(string-ci=? "" "")
(string-ci=? "hello" "Hello")
(string-ci=? "hello" "hello")
(string-ci=? "hello" "hi")
(string-ci=? "hello" "he")
(string-ci=? "a" "a")
(string-ci=? "a" "b")
(string-ci=? "b" "a")
(string-ci=? "b" "b")
(string-ci=? "ba" "ab")
(string-ci=? "ba" "baa")
(string-ci=? "baaa" "baa")