1 USING: smalltalk.compiler.lexenv tools.test kernel namespaces accessors ;
2 IN: smalltalk.compiler.lexenv.tests
4 TUPLE: some-class x y z ;
13 H{ { "mumble" fake-local } } >>local-readers
14 H{ { "jumble" fake-local } } >>local-writers
17 { [ fake-local ] } [ "mumble" lexenv get lookup-reader ] unit-test
18 { [ fake-self x>> ] } [ "x" lexenv get lookup-reader ] unit-test
19 { [ \ tuple ] } [ "Object" lexenv get lookup-reader ] unit-test
21 { [ fake-local ] } [ "jumble" lexenv get lookup-writer ] unit-test
22 { [ fake-self y<< ] } [ "y" lexenv get lookup-writer ] unit-test
24 [ "blahblah" lexenv get lookup-writer ] must-fail