2007-09-20 18:09:08 -04:00
|
|
|
USING: kernel namespaces tools.test words ;
|
2008-04-26 03:01:06 -04:00
|
|
|
IN: namespaces.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
H{ } clone "test-namespace" set
|
|
|
|
|
|
|
|
|
|
: test-namespace ( -- )
|
|
|
|
|
H{ } clone dup [ namespace = ] bind ;
|
|
|
|
|
|
|
|
|
|
[ t ] [ test-namespace ] unit-test
|
|
|
|
|
|
|
|
|
|
10 "some-global" set
|
|
|
|
|
[ f ]
|
|
|
|
|
[ H{ } clone [ f "some-global" set "some-global" get ] bind ]
|
|
|
|
|
unit-test
|
