From 1b0350ec0a004ae262aa2d0897e20562aceaed4b Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Fri, 7 Aug 2015 15:59:11 -0500
Subject: [PATCH] Add more tests.

---
 pkgs/racket-test-core/tests/racket/sequence.rktl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/pkgs/racket-test-core/tests/racket/sequence.rktl b/pkgs/racket-test-core/tests/racket/sequence.rktl
index 8c689ce1fb..2e24bd4578 100644
--- 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)))])