2009-03-31 02:24:38 -04:00
|
|
|
USING: smalltalk.compiler.lexenv tools.test kernel namespaces accessors ;
|
|
|
|
|
IN: smalltalk.compiler.lexenv.tests
|
|
|
|
|
|
|
|
|
|
TUPLE: some-class x y z ;
|
|
|
|
|
|
|
|
|
|
SYMBOL: fake-self
|
|
|
|
|
|
|
|
|
|
SYMBOL: fake-local
|
|
|
|
|
|
|
|
|
|
<lexenv>
|
|
|
|
|
some-class >>class
|
|
|
|
|
fake-self >>self
|
|
|
|
|
H{ { "mumble" fake-local } } >>local-readers
|
|
|
|
|
H{ { "jumble" fake-local } } >>local-writers
|
|
|
|
|
lexenv set
|
|
|
|
|
|
2015-07-02 16:37:42 -04:00
|
|
|
[ [ fake-local ] ] [ "mumble" lexenv get lookup-reader ] unit-test
|
|
|
|
|
[ [ fake-self x>> ] ] [ "x" lexenv get lookup-reader ] unit-test
|
|
|
|
|
[ [ \ tuple ] ] [ "Object" lexenv get lookup-reader ] unit-test
|
2009-03-31 02:24:38 -04:00
|
|
|
|
2015-07-02 16:37:42 -04:00
|
|
|
[ [ fake-local ] ] [ "jumble" lexenv get lookup-writer ] unit-test
|
|
|
|
|
[ [ fake-self y<< ] ] [ "y" lexenv get lookup-writer ] unit-test
|
2009-03-31 02:24:38 -04:00
|
|
|
|
2015-07-02 13:34:01 -04:00
|
|
|
[ "blahblah" lexenv get lookup-writer ] must-fail
|
