factor/basis/bit-sets/bit-sets-tests.factor

USING: bit-sets tools.test sets kernel bit-arrays ;
IN: bit-sets.tests

[ T{ bit-set f ?{ t f t f t f } } ] [
    T{ bit-set f ?{ t f f f t f } }
    T{ bit-set f ?{ f f t f t f } } union
] unit-test

[ T{ bit-set f ?{ f f f f t f } } ] [
    T{ bit-set f ?{ t f f f t f } }
    T{ bit-set f ?{ f f t f t f } } intersect
] unit-test

[ f ] [ T{ bit-set f ?{ t f f f t f } } null? ] unit-test
[ t ] [ T{ bit-set f ?{ f f f f f f } } null? ] unit-test

[ T{ bit-set f ?{ t f t f f f } } ] [
    T{ bit-set f ?{ t t t f f f } }
    T{ bit-set f ?{ f t f f t t } } diff
] unit-test

[ f ] [
    T{ bit-set f ?{ t t t f f f } }
    T{ bit-set f ?{ f t f f t t } } subset?
] unit-test

[ t ] [
    T{ bit-set f ?{ t t t f f f } }
    T{ bit-set f ?{ f t f f f f } } subset?
] unit-test

[ t ] [
    { 0 1 2 }
    T{ bit-set f ?{ f t f f f f } } subset?
] unit-test

[ f ] [
    T{ bit-set f ?{ f t f f f f } }
    T{ bit-set f ?{ t t t f f f } } subset?
] unit-test

[ f ] [
    { 1 }
    T{ bit-set f ?{ t t t f f f } } subset?
] unit-test

[ V{ 0 2 5 } ] [ T{ bit-set f ?{ t f t f f t } } members ] unit-test

[ t V{ 1 2 3 } ] [
    { 1 2 } 5 <bit-set> set-like
    [ bit-set? ] keep
    3 over adjoin
    members
] unit-test

[ V{ 0 1 2 5 } ] [ T{ bit-set f ?{ t f t f f t } } clone [ 1 swap adjoin ] keep members ] unit-test
[ T{ bit-set f ?{ t f t f f t } } clone [ 9 swap adjoin ] keep members ] must-fail
[ T{ bit-set f ?{ t f t f f t } } clone [ "foo" swap adjoin ] keep members ] must-fail

[ V{ 2 5 } ] [ T{ bit-set f ?{ t f t f f t } } clone [ 0 swap delete ] keep members ] unit-test
[ V{ 0 2 5 } ] [ T{ bit-set f ?{ t f t f f t } } clone [ 1 swap delete ] keep members ] unit-test
[ V{ 0 2 5 } ] [ T{ bit-set f ?{ t f t f f t } } clone [ 9 swap delete ] keep members ] unit-test
[ V{ 0 2 5 } ] [ T{ bit-set f ?{ t f t f f t } } clone [ "foo" swap delete ] keep members ] unit-test

[ T{ bit-set f ?{ f } } T{ bit-set f ?{ t } } ]
[ 1 <bit-set> dup clone 0 over adjoin ] unit-test

[ 0 ] [ T{ bit-set f ?{ } } cardinality ] unit-test
[ 0 ] [ T{ bit-set f ?{ f f f f } } cardinality ] unit-test
[ 1 ] [ T{ bit-set f ?{ f t f f } } cardinality ] unit-test
[ 2 ] [ T{ bit-set f ?{ f t f t } } cardinality ] unit-test