1 USING: assocs compiler.tree.debugger kernel namespaces
5 H{ } clone "test-namespace" set
7 : test-namespace ( -- ? )
8 H{ } clone dup [ namespace = ] with-variables ;
10 [ t ] [ test-namespace ] unit-test
14 [ H{ } clone [ f "some-global" set "some-global" get ] with-variables ]
17 SYMBOL: test-initialize
19 f test-initialize set-global
21 test-initialize [ 1 ] initialize
22 test-initialize [ 2 ] initialize
24 [ 1 ] [ test-initialize get-global ] unit-test
26 f test-initialize set-global
27 test-initialize [ 5 ] initialize
29 [ 5 ] [ test-initialize get-global ] unit-test
32 [ f ] [ toggle-test get ] unit-test
33 [ t ] [ toggle-test [ toggle ] [ get ] bi ] unit-test
34 [ f ] [ toggle-test [ toggle ] [ get ] bi ] unit-test
36 [ t ] [ toggle-test [ on ] [ get ] bi ] unit-test
37 [ f ] [ toggle-test [ off ] [ get ] bi ] unit-test
39 [ t ] [ [ test-initialize get-global ] { at* set-at } inlined? ] unit-test
40 [ t ] [ [ test-initialize set-global ] { at* set-at } inlined? ] unit-test