steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/core/namespaces/namespaces-tests.factor

41 lines
1.0 KiB
Factor
Raw Normal View History

namespaces: make set-global/get-global foldable Store the globals hashtable as an array of boxes so that the key-to-reference mapping is constant. Use a singleton and an unfoldable "box-at" word so that get-global and set-global optimize to direct operations on the associated box when the variable name is a compile-time constant. Fixes #200.
2011-11-26 23:20:55 -05:00
USING: assocs compiler.tree.debugger kernel namespaces
tools.test words ;
reverse the arguments of diff, assoc-diff fix lots of usings fix help-lint
2008-04-26 03:01:06 -04:00
IN: namespaces.tests
Initial import
2007-09-20 18:09:08 -04:00
H{ } clone "test-namespace" set
Clean up namespaces a bit
2009-02-20 21:51:51 -05:00
: test-namespace ( -- ? )
namespaces: Rename ``bind`` to ``with-variables``. Update a few places that called ``global [ ] with-variables`` to use ``with-global``.
2012-07-19 03:02:47 -04:00
H{ } clone dup [ namespace = ] with-variables ;
Initial import
2007-09-20 18:09:08 -04:00
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ t } [ test-namespace ] unit-test
Initial import
2007-09-20 18:09:08 -04:00
10 "some-global" set
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ f }
namespaces: Rename ``bind`` to ``with-variables``. Update a few places that called ``global [ ] with-variables`` to use ``with-global``.
2012-07-19 03:02:47 -04:00
[ H{ } clone [ f "some-global" set "some-global" get ] with-variables ]
Initial import
2007-09-20 18:09:08 -04:00
unit-test
add initialize word to namespaces. foo global [ [ bar ] unless* ] curry => foo [ bar ] initialize
2009-02-10 14:02:33 -05:00
SYMBOL: test-initialize
Clean up namespaces a bit
2009-02-20 21:51:51 -05:00
f test-initialize set-global
add initialize word to namespaces. foo global [ [ bar ] unless* ] curry => foo [ bar ] initialize
2009-02-10 14:02:33 -05:00
test-initialize [ 1 ] initialize
test-initialize [ 2 ] initialize
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ 1 } [ test-initialize get-global ] unit-test
add initialize word to namespaces. foo global [ [ bar ] unless* ] curry => foo [ bar ] initialize
2009-02-10 14:02:33 -05:00
f test-initialize set-global
test-initialize [ 5 ] initialize
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ 5 } [ test-initialize get-global ] unit-test
Add a toggle word to namespaces and update docs, tests, and usages. Document with-global too.
2011-10-29 04:01:59 -04:00
SYMBOL: toggle-test
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ f } [ toggle-test get ] unit-test
{ t } [ toggle-test [ toggle ] [ get ] bi ] unit-test
{ f } [ toggle-test [ toggle ] [ get ] bi ] unit-test
Add a toggle word to namespaces and update docs, tests, and usages. Document with-global too.
2011-10-29 04:01:59 -04:00
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ t } [ toggle-test [ on ] [ get ] bi ] unit-test
{ f } [ toggle-test [ off ] [ get ] bi ] unit-test
Add a toggle word to namespaces and update docs, tests, and usages. Document with-global too.
2011-10-29 04:01:59 -04:00
factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.
2015-07-02 20:28:17 -04:00
{ t } [ [ test-initialize get-global ] { at* set-at } inlined? ] unit-test
{ t } [ [ test-initialize set-global ] { at* set-at } inlined? ] unit-test