basis/boxes/boxes-tests.factor

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