blob: c0d8dc584d7b9a9a4ac8dc3868d5a49109e19c8b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(load "../common")
(mtest
(str "x") :error
(str 0) ""
(str 0 5) :error
(str 0 "abcd") ""
(str 0 "") ""
(str 0 #\x) ""
(str -1) :error
(str -1 #\x) :error
(str -1 "") :error
(str -1 "abc") :error)
(mtest
(str 10) " "
(str 10 "") " "
(str 10 #\a) "aaaaaaaaaa"
(str 10 "a") "aaaaaaaaaa"
(str 10 "ab") "ababababab"
(str 10 "abc") "abcabcabca"
(str 10 "abcd") "abcdabcdab"
(str 10 "abcde") "abcdeabcde"
(str 10 "abcdef") "abcdefabcd"
(str 10 "abcdefghij") "abcdefghij"
(str 10 "abcdefghijk") "abcdefghij"
(str 10 "abcdefghijklmnopqrst") "abcdefghij"
(str 10 "abcdefghijklmnopqrstuvwxyz") "abcdefghij")
|
