 { t } [ -1/0. 1/0. [ full-interval interval-contains? ] bi@ and ] unit-test
 
 ! Interval bitor
-
 { 1/0. } [ 1/0. bit-weight ] unit-test
 { 1/0. } [ -1/0. bit-weight ] unit-test
 

math.intervals.private math.order math.statistics random sequences
sequences.deep tools.test vocabs ;
IN: math.intervals.tests

FROM: math.ranges => <range> ;

{ empty-interval } [ 2 2 (a,b) ] unit-test


    ] unit-test
] each

! Test singleton behavior
{ f } [ full-interval interval-nonnegative? ] unit-test

{ t } [ empty-interval interval-nonnegative? ] unit-test
