2014-05-21 18:24:24 +00:00
|
|
|
local env1 = bare_environment()
|
2014-05-13 15:40:46 +00:00
|
|
|
local env2 = add_decl(env1, mk_var_decl("A", Type))
|
|
|
|
|
assert(env2:is_descendant(env1))
|
|
|
|
|
assert(env2:is_descendant(env2))
|
|
|
|
|
assert(not env1:is_descendant(env2))
|
|
|
|
|
local env3 = env2:forget()
|
|
|
|
|
assert(not env3:is_descendant(env1))
|
|
|
|
|
assert(not env3:is_descendant(env2))
|
|
|
|
|
assert(env3:is_descendant(env3))
|
