add tests for in-list', in-mlist', and `in-set' shortcut

This commit is contained in:
Matthew Flatt 2012-11-29 06:57:05 -07:00
parent 889f159103
commit 6bfc03d625
2 changed files with 5 additions and 0 deletions

View File

@ -51,6 +51,10 @@
(test-sequence [(65 66 67)] (open-input-bytes #"ABC"))
(test-sequence [(65 66 67)] (in-input-port-bytes (open-input-bytes #"ABC")))
;; Test optimized:
(test '(2) 'in-list-of-list (for/list ([v (in-list (list 1))]) (add1 v)))
(test '(0) 'in-mlist-of-mlist (for/list ([v (in-mlist (mlist 1))]) (sub1 v)))
(test-sequence [(1 2 3)] (in-port read (open-input-string "1 2 3")))
(test-sequence [((123) 4)] (in-port read (open-input-string "(123) 4")))
(test-sequence [(65 66 67)] (in-port read-byte (open-input-string "ABC")))

View File

@ -105,6 +105,7 @@
(test '(1 2 3) sort (for/list ([v s]) v) <)
(test '(1 2 3) sort (for/list ([v (in-set s)]) v) <)
(test '(1 2 3) sort (let ([seq (in-set s)]) (for/list ([v seq]) v)) <)
(test '(1) sort (for/list ([v (in-set (set 1))]) v) <)
(void))