17 lines
560 B
Lua
17 lines
560 B
Lua
|
env = environment()
|
||
|
|
env:add_var("N", Type())
|
||
|
|
env:add_var("x", Const("N"))
|
||
|
|
for i, v in ipairs(env:objects()) do
|
||
|
|
print(v:get_name())
|
||
|
|
end
|
||
|
|
assert(not env:find_object("N"):is_null())
|
||
|
|
assert(env:find_object("Z"):is_null())
|
||
|
|
assert(env:find_object("N"):is_var_decl())
|
||
|
|
assert(env:find_object("N"):has_type())
|
||
|
|
assert(env:find_object("N"):has_name())
|
||
|
|
assert(env:find_object("N"):get_type() == Type())
|
||
|
|
assert(env:find_object("N"):get_name() == name("N"))
|
||
|
|
assert(env:find_object("x"):get_type() == Const("N"))
|
||
|
|
assert(not env:has_parent())
|
||
|
|
assert(not env:has_children())
|