core/test/collections/namespaces.factor

   1 IN: temporary
   2 USE: kernel
   3 USE: namespaces
   4 USE: test
   5 USE: words
   6
   7 H{ } clone "test-namespace" set
   8
   9 : test-namespace ( -- )
  10     H{ } clone dup [ namespace = ] bind ;
  11
  12 [ t ] [ test-namespace ] unit-test
  13
  14 [
  15     "nested" off
  16
  17     "nested" nest [ 5 "x" set ] bind
  18     [ 5 ] [ "nested" nest [ "x" get ] bind ] unit-test
  19
  20 ] with-scope
  21
  22 10 "some-global" set
  23 [ f ]
  24 [ H{ } clone [ f "some-global" set "some-global" get ] bind ]
  25 unit-test