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