basis/boxes/boxes-tests.factor

   1 USING: boxes namespaces tools.test accessors ;\r
   2 IN: boxes.tests\r
   3 \r
   4 [ ] [ <box> "b" set ] unit-test\r
   5 \r
   6 [ ] [ 3 "b" get >box ] unit-test\r
   7 \r
   8 [ t ] [ "b" get occupied>> ] unit-test\r
   9 \r
  10 [ 4 "b" >box ] must-fail\r
  11 \r
  12 [ 3 ] [ "b" get box> ] unit-test\r
  13 \r
  14 [ f ] [ "b" get occupied>> ] unit-test\r
  15 \r
  16 [ "b" get box> ] must-fail\r
  17 \r
  18 [ f f ] [ "b" get ?box ] unit-test\r
  19 \r
  20 [ ] [ 12 "b" get >box ] unit-test\r
  21 \r
  22 [ 12 t ] [ "b" get ?box ] unit-test\r
  23 \r
  24 [ f ] [ "b" get occupied>> ] unit-test\r