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

one more integer-set test

Browse Source
This commit is contained in:
Stephen Chang 2013-02-20 18:34:58 -05:00
parent aeff5922b7
commit 9e26cd0b7a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/data/integer-set.rkt
View File

@ -1,7 +1,8 @@
#lang racket/base
(require data/integer-set
racket/stream
rackunit)
rackunit
racket/sequence)
(test-equal? "integer-set"
(integer-set-contents (make-integer-set '((-1 . 2) (4 . 10))))
@ -62,4 +63,5 @@
;; 2013-02-20: checks commit bd1141c670bfc7981761fbfb53f548c2abb1f12d
;; (previous version results in contract error)
(check-true (well-formed-set? (integer-set-contents (stream-rest (make-range 1 10)))))
(check-true (well-formed-set? (integer-set-contents (stream-rest (make-range 1 10)))))
(check-true (well-formed-set? (integer-set-contents (sequence-tail (make-range 1 10) 1))))