michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tests(lua/frontend_lean): add missing tests

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2013-11-17 13:48:29 -08:00
parent 5254dba195
commit 5f651d46e6
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
tests/lua/parser2.lua Normal file
View file

@ -0,0 +1,26 @@
local env = environment()
parse_lean_cmds([[
Variable N : Type
Variables x y : N
Variable f : N -> N -> N
Set pp::colors false
]], env)
local f, x, y = Consts("f, x, y")
print(env:check_type(f(x, y)))
assert(env:check_type(f(x, y)) == Const("N"))
assert(not get_options():get{"pp", "colors"})
parse_lean_cmds([[
Set pp::colors true
]], env)
assert(get_options():get{"pp", "colors"})
local o = get_options()
o:update({"lean", "pp", "notation"}, false)
assert(not o:get{"lean", "pp", "notation"})
o = parse_lean_cmds([[
Check fun x : N, y
Set pp::notation true
Check fun x : N, y
]], env, o)
print(o)
assert(o:get{"lean", "pp", "notation"})
assert(parse_lean("f x y", env) == f(x, y))