diff options
Diffstat (limited to 'tests/012/seq.tl')
-rw-r--r-- | tests/012/seq.tl | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/tests/012/seq.tl b/tests/012/seq.tl index dadb9e9b..ed2e02b8 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -387,3 +387,53 @@ (mtest (let ((s '(a b c))) (list (rot s 33) s)) ((a b c) (a b c)) (let ((s '(a b c))) (list (rot s 34) s)) ((b c a) (a b c))) + +(mtest + (subq #\a #\b "") "" + (subq #\a #\b "a") "b" + (subq #\a #\b "aaa") "bbb" + (subq #\a #\b "abc") "bbc") + +(mtest + (subql #\a #\b "") "" + (subql #\a #\b "a") "b" + (subql #\a #\b "aaa") "bbb" + (subql #\a #\b "abc") "bbc") + +(mtest + (subqual #\a #\b "") "" + (subqual #\a #\b "a") "b" + (subqual #\a #\b "aaa") "bbb" + (subqual #\a #\b "abc") "bbc") + +(mtest + (subq 0 1 nil) nil + (subq 0 1 '(0)) (1) + (subq 0 1 '(0 0 0)) (1 1 1) + (subq 0 1 '(0 1 2)) (1 1 2)) + +(mtest + (subql 0 1 nil) nil + (subql 0 1 '(0)) (1) + (subql 0 1 '(0 0 0)) (1 1 1) + (subql 0 1 '(0 1 2)) (1 1 2)) + +(mtest + (subqual 0 1 nil) nil + (subqual 0 1 '(0)) (1) + (subqual 0 1 '(0 0 0)) (1 1 1) + (subqual 0 1 '(0 1 2)) (1 1 2)) + +(mtest + (subqual "foo" "bar" nil) nil + (subqual "foo" "bar" '#"foo") #"bar" + (subqual "foo" "bar" '#"foo foo foo") #"bar bar bar" + (subqual "foo" "bar" '#"xyzzy foo quuz") #"xyzzy bar quuz") + +(mtest + (subqual "brown" "black" #("how" "now" "brown" "cow")) #("how" "now" "black" "cow") + (subst "brown" "black" #("how" "now" "brown" "cow")) #("how" "now" "black" "cow")) + +(mtest + [subst "brown" "black" #("how" "now" "BROWN" "cow") : downcase-str] #("how" "now" "black" "cow") + [subst 5 0 '(1 2 3 4 5 6 7 8 9 10) <] (1 2 3 4 5 0 0 0 0 0)) |