factor/basis/bit-vectors/bit-vectors-tests.factor

USING: tools.test bit-vectors vectors sequences kernel math ;
IN: bit-vectors.tests

[ 0 ] [ 123 <bit-vector> length ] unit-test

: do-it ( seq -- )
    1234 swap [ [ even? ] dip push ] curry each-integer ;

[ t ] [
    3 <bit-vector> dup do-it
    3 <vector> dup do-it sequence=
] unit-test

[ t ] [ ?V{ } bit-vector? ] unit-test
bit-vectors byte-vectors float-vectors 2008-01-29 16:04:26 -05:00			`USING: tools.test bit-vectors vectors sequences kernel math ;`
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places, minor refactoring 2009-08-13 20:21:44 -04:00			`IN: bit-vectors.tests`
bit-vectors byte-vectors float-vectors 2008-01-29 16:04:26 -05:00
			`[ 0 ] [ 123 <bit-vector> length ] unit-test`

Fixing unit tests for syntax change 2009-03-23 01:34:02 -04:00			`: do-it ( seq -- )`
Removing integers-as-sequences 2010-01-14 10:10:13 -05:00			`1234 swap [ [ even? ] dip push ] curry each-integer ;`
bit-vectors byte-vectors float-vectors 2008-01-29 16:04:26 -05:00
			`[ t ] [`
			`3 <bit-vector> dup do-it`
			`3 <vector> dup do-it sequence=`
			`] unit-test`
Assorted fixes 2008-01-30 02:10:58 -05:00
			`[ t ] [ ?V{ } bit-vector? ] unit-test`