Test cases for Range.

This commit is contained in:
Jens Axel Søgaard 2012-07-03 14:07:12 +02:00
parent 68ec2ff4c2
commit c1fb47379f

View File

@ -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))
)