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

USING: bit-vectors kernel math sequences tools.test vectors ;
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
basis: Cleaning up tests using lists and IN: forms. 2016-03-30 23:04:14 -04:00			`USING: bit-vectors kernel math sequences tools.test vectors ;`
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file. 2015-06-29 19:43:15 -04:00			`IN: bit-vectors.tests`

factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:. 2015-07-02 20:28:17 -04:00			`{ 0 } [ 123 <bit-vector> length ] unit-test`
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file. 2015-06-29 19:43:15 -04:00
			`: do-it ( seq -- )`
			`1234 swap [ [ even? ] dip push ] curry each-integer ;`

factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:. 2015-07-02 20:28:17 -04:00			`{ t } [`
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file. 2015-06-29 19:43:15 -04:00			`3 <bit-vector> dup do-it`
			`3 <vector> dup do-it sequence=`
			`] unit-test`

factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:. 2015-07-02 20:28:17 -04:00			`{ t } [ ?V{ } bit-vector? ] unit-test`