55 lines
1.6 KiB
Text
55 lines
1.6 KiB
Text
|
(**
|
||
|
|
|
||
|
|
local env = get_environment()
|
||
|
|
local o1 = env:find_object(name("Int", "add"))
|
||
|
|
local o2 = env:find_object("xyz31213")
|
||
|
|
print(o1:get_value())
|
||
|
|
assert(is_kernel_object(o1))
|
||
|
|
assert(is_kernel_object(o2))
|
||
|
|
assert(not o1:is_null())
|
||
|
|
assert(o2:is_null())
|
||
|
|
assert(o1:is_builtin())
|
||
|
|
assert(o1:keyword() == "Builtin")
|
||
|
|
assert(o1:get_name() == name("Int", "add"))
|
||
|
|
assert(not pcall(function() o2:get_name() end))
|
||
|
|
assert(not pcall(function() o2:keyword() end))
|
||
|
|
|
||
|
|
local found1 = false
|
||
|
|
local found2 = false
|
||
|
|
local bs = nil
|
||
|
|
for obj in env:objects() do
|
||
|
|
if not obj:has_name() then
|
||
|
|
found1 = true
|
||
|
|
end
|
||
|
|
if obj:is_builtin_set() then
|
||
|
|
if not found2 then
|
||
|
|
found2 = true
|
||
|
|
bs = obj
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
assert(found1)
|
||
|
|
assert(found2)
|
||
|
|
print(bs)
|
||
|
|
assert(not bs:in_builtin_set(Const("a")))
|
||
|
|
assert(not pcall(function() M:in_builtin_set(Const("a")) end))
|
||
|
|
|
||
|
|
local M = env:find_object("M")
|
||
|
|
assert(not M:has_type())
|
||
|
|
assert(not pcall(function() M:get_type() end))
|
||
|
|
assert(M:has_cnstr_level())
|
||
|
|
print(M:get_cnstr_level())
|
||
|
|
assert(not pcall(function() o1:get_cnstr_level() end))
|
||
|
|
assert(not pcall(function() M:get_value() end))
|
||
|
|
env:add_var("x", Const("Int"))
|
||
|
|
env:add_definition("val", Const("Int"), Const("x"))
|
||
|
|
assert(env:find_object("val"):get_value() == Const("x"))
|
||
|
|
assert(env:find_object("val"):get_weight() == 1)
|
||
|
|
assert(not pcall(function() M:get_weight() end))
|
||
|
|
assert(env:find_object("Congr"):is_opaque())
|
||
|
|
assert(env:find_object("Congr"):is_theorem())
|
||
|
|
assert(env:find_object("Refl"):is_axiom())
|
||
|
|
assert(env:find_object(name("Int", "sub")):is_definition())
|
||
|
|
assert(env:find_object("x"):is_var_decl())
|
||
|
|
**)
|