23 lines
514 B
Factor
23 lines
514 B
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
|
|
0 d-in set
|
|
] unit-test
|
|
|
|
[ 0 ] [ 0 ensure-d length ] unit-test
|
|
|
|
[ 2 ] [ 2 ensure-d length ] unit-test
|
|
[ 2 ] [ meta-d get length ] unit-test
|
|
|
|
[ 3 ] [ 3 ensure-d length ] unit-test
|
|
[ 3 ] [ meta-d get length ] unit-test
|
|
|
|
[ 1 ] [ 1 ensure-d length ] unit-test
|
|
[ 3 ] [ meta-d get length ] unit-test
|
|
|
|
[ ] [ 1 consume-d drop ] unit-test
|