Add more tests.

2015-08-07 15:59:11 -05:00 · 2015-08-07 15:59:11 -05:00 · 1b0350ec0a
commit 1b0350ec0a
parent 8b1859b77d
1 changed files with 6 additions and 0 deletions
--- a/pkgs/racket-test-core/tests/racket/sequence.rktl
+++ b/pkgs/racket-test-core/tests/racket/sequence.rktl
@ -268,6 +268,12 @@
 ;; ----------------------------------------
 ;; 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)
      values
      (for/list ([(x y) (in-pairs '((1 . 1) (2 . 2) (3 . 3)))])