From c1fb47379f1f05705a2962b4ae9804f7374c6784 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jens=20Axel=20S=C3=B8gaard?= Date: Tue, 3 Jul 2012 14:07:12 +0200 Subject: [PATCH] Test cases for Range. --- bracket/bracket.rkt | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/bracket/bracket.rkt b/bracket/bracket.rkt index 6139bb1a1..f52beda27 100644 --- a/bracket/bracket.rkt +++ b/bracket/bracket.rkt @@ -1363,7 +1363,13 @@ ; Range (as range in Racket) (check-equal? (Range 5) (List 0 1 2 3 4)) (check-equal? (Range 2 5) (List 2 3 4)) + (check-equal? (Range 5 2) (List)) (check-equal? (Range 2 10 3) (List 2 5 8)) + (check-equal? (Range) '(Range)) + (check-equal? (Range 1 2 3 4) '(Range 1 2 3 4)) + (check-equal? (Range x) '(Range x)) + (check-equal? (Range x y) '(Range x y)) + (check-equal? (Range x y z) '(Range x y z)) )