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

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

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

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

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

[ t ] [ ?V{ } bit-vector? ] unit-test
New convention for unit tests 2008-03-01 17:00:45 -05:00			`IN: bit-vectors.tests`
bit-vectors byte-vectors float-vectors 2008-01-29 16:04:26 -05:00			`USING: tools.test bit-vectors vectors sequences kernel math ;`

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

Fixing unit tests for syntax change 2009-03-23 01:34:02 -04:00			`: do-it ( seq -- )`
>r r> in unit-test 2008-11-29 14:37:48 -05:00			`1234 swap [ [ even? ] dip push ] curry each ;`
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`