basis/refs/refs-tests.factor

   1 USING: refs tools.test kernel ;
   2
   3 [ 3 ] [
   4     H{ { "a" 3 } } "a" <value-ref> get-ref
   5 ] unit-test
   6
   7 [ 4 ] [
   8     4 H{ { "a" 3 } } clone "a" <value-ref>
   9     [ set-ref ] keep
  10     get-ref
  11 ] unit-test
  12
  13 [ "a" ] [
  14     H{ { "a" 3 } } "a" <key-ref> get-ref
  15 ] unit-test
  16
  17 [ H{ { "b" 3 } } ] [
  18     "b" H{ { "a" 3 } } clone [
  19         "a" <key-ref>
  20         set-ref
  21     ] keep
  22 ] unit-test