core/namespaces/namespaces-tests.factor

   1 USING: kernel namespaces tools.test words ;
   2 IN: namespaces.tests
   3
   4 H{ } clone "test-namespace" set
   5
   6 : test-namespace ( -- )
   7     H{ } clone dup [ namespace = ] bind ;
   8
   9 [ t ] [ test-namespace ] unit-test
  10
  11 10 "some-global" set
  12 [ f ]
  13 [ H{ } clone [ f "some-global" set "some-global" get ] bind ]
  14 unit-test