factor/basis/stack-checker/backend/backend-tests.factor

USING: stack-checker.backend tools.test kernel namespaces
stack-checker.state sequences ;
IN: stack-checker.backend.tests

[ ] [
    V{ } clone \ meta-d set
    V{ } clone \ meta-r set
    V{ } clone \ literals set
    0 d-in set
] unit-test

[ 0 ] [ 0 ensure-d length ] unit-test

[ 2 ] [ 2 ensure-d length ] unit-test
[ 2 ] [ meta-d length ] unit-test

[ 3 ] [ 3 ensure-d length ] unit-test
[ 3 ] [ meta-d length ] unit-test

[ 1 ] [ 1 ensure-d length ] unit-test
[ 3 ] [ meta-d length ] unit-test

[ ] [ 1 consume-d drop ] unit-test