2009-07-02 22:58:49 -04:00
|
|
|
USING: bit-sets tools.test bit-arrays ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: bit-sets.tests
|
2009-07-02 22:58:49 -04:00
|
|
|
|
|
|
|
|
[ ?{ t f t f t f } ] [
|
|
|
|
|
?{ t f f f t f }
|
|
|
|
|
?{ f f t f t f } bit-set-union
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ ?{ f f f f t f } ] [
|
|
|
|
|
?{ t f f f t f }
|
|
|
|
|
?{ f f t f t f } bit-set-intersect
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ ?{ t f t f f f } ] [
|
|
|
|
|
?{ t t t f f f }
|
|
|
|
|
?{ f t f f t t } bit-set-diff
|
|
|
|
|
] unit-test
|
