2008-03-01 17:00:45 -05:00
|
|
|
IN: boxes.tests
|
2008-05-15 01:03:21 -04:00
|
|
|
USING: boxes namespaces tools.test accessors ;
|
2008-02-19 15:38:02 -05:00
|
|
|
|
|
|
|
|
[ ] [ <box> "b" set ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ 3 "b" get >box ] unit-test
|
|
|
|
|
|
2008-05-15 01:03:21 -04:00
|
|
|
[ t ] [ "b" get occupied>> ] unit-test
|
2008-02-19 15:38:02 -05:00
|
|
|
|
|
|
|
|
[ 4 "b" >box ] must-fail
|
|
|
|
|
|
|
|
|
|
[ 3 ] [ "b" get box> ] unit-test
|
|
|
|
|
|
2008-05-15 01:03:21 -04:00
|
|
|
[ f ] [ "b" get occupied>> ] unit-test
|
2008-02-19 15:38:02 -05:00
|
|
|
|
|
|
|
|
[ "b" get box> ] must-fail
|
|
|
|
|
|
|
|
|
|
[ f f ] [ "b" get ?box ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ 12 "b" get >box ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 12 t ] [ "b" get ?box ] unit-test
|
|
|
|
|
|
2008-05-15 01:03:21 -04:00
|
|
|
[ f ] [ "b" get occupied>> ] unit-test
|
