67 lines
1.9 KiB
Factor
67 lines
1.9 KiB
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
|