factor/basis/boxes/boxes-tests.factor

USING: boxes namespaces tools.test accessors ;
IN: boxes.tests

[ ] [ <box> "b" set ] unit-test

[ ] [ 3 "b" get >box ] unit-test

[ t ] [ "b" get occupied>> ] unit-test

[ 4 "b" >box ] must-fail

[ 3 ] [ "b" get box> ] unit-test

[ f ] [ "b" get occupied>> ] unit-test

[ "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

[ f ] [ "b" get occupied>> ] unit-test
Fix unit tests 2008-05-15 01:03:21 -04:00			`USING: boxes namespaces tools.test accessors ;`
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places, minor refactoring 2009-08-13 20:21:44 -04:00			`IN: boxes.tests`
Implement new box data type, fix various bugs, add status parameter for suspend, threads. now prints thread state 2008-02-19 15:38:02 -05:00
			`[ ] [ <box> "b" set ] unit-test`

			`[ ] [ 3 "b" get >box ] unit-test`

Fix unit tests 2008-05-15 01:03:21 -04:00			`[ t ] [ "b" get occupied>> ] unit-test`
Implement new box data type, fix various bugs, add status parameter for suspend, threads. now prints thread state 2008-02-19 15:38:02 -05:00
			`[ 4 "b" >box ] must-fail`

			`[ 3 ] [ "b" get box> ] unit-test`

Fix unit tests 2008-05-15 01:03:21 -04:00			`[ f ] [ "b" get occupied>> ] unit-test`
Implement new box data type, fix various bugs, add status parameter for suspend, threads. now prints thread state 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`

Fix unit tests 2008-05-15 01:03:21 -04:00			`[ f ] [ "b" get occupied>> ] unit-test`