basis/boxes/boxes-tests.factor

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