IN: scratchpad USE: kernel USE: namespaces USE: test USE: words "test-namespace" set : test-namespace ( -- ) dup [ namespace = ] bind ; [ t ] [ test-namespace ] unit-test ! Object paths should not resolve further up in the namestack. "test-namespace" set [ f ] [ [ "test-namespace" "test-namespace" ] object-path ] unit-test [ f ] [ [ "alalal" "boobobo" "bah" ] object-path ] unit-test [ t ] [ namespace [ ] object-path = ] unit-test [ t ] [ \ test-word global [ [ vocabularies "test" "test-word" ] object-path ] bind = ] unit-test 10 "some-global" set [ f ] [ [ f "some-global" set "some-global" get ] bind ] unit-test [ 5 [ "test" "object" "path" ] set-object-path [ 5 ] [ [ "test" "object" "path" ] object-path ] unit-test 7 [ "test" "object" "pathe" ] set-object-path [ 7 ] [ [ "test" "object" "pathe" ] object-path ] unit-test 9 [ "teste" "object" "pathe" ] set-object-path [ 9 ] [ [ "teste" "object" "pathe" ] object-path ] unit-test ] with-scope