lean2/tests/lean/lua11.lean
Leonardo de Moura 04b67f8b14 refactor(kernel/object): remove 'null' object, and operator bool for kernel objects
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
2013-12-08 14:37:38 -08:00

51 lines
1.5 KiB
Text

(**
local env = get_environment()
local o1 = env:find_object(name("Int", "add"))
print(o1:get_value())
assert(is_kernel_object(o1))
assert(o1)
assert(o1:is_builtin())
assert(o1:keyword() == "Builtin")
assert(o1:get_name() == name("Int", "add"))
local o2 = env:find_object("xyz31213")
assert(not o2)
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())
**)