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

Add more tests.

Browse Source
This commit is contained in:
Vincent St-Amour 2015-08-07 15:59:11 -05:00
parent 8b1859b77d
commit 1b0350ec0a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test-core/tests/racket/sequence.rktl
View File

@ -268,6 +268,12 @@
;; ---------------------------------------- ;; ----------------------------------------
;; Additional sequence constructors ;; Additional sequence constructors
(test #t sequence? (in-pairs '()))
(test #t sequence? (in-pairs '((1 . 2) (3 . 4))))
(test '()
values
(for/list ([(x y) (in-pairs '())])
x))
(test '(2 4 6) (test '(2 4 6)
values values
(for/list ([(x y) (in-pairs '((1 . 1) (2 . 2) (3 . 3)))]) (for/list ([(x y) (in-pairs '((1 . 1) (2 . 2) (3 . 3)))])