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

chore(tests/lua/mod5): remove test that regularly timeout on Windows machines

Browse source
This commit is contained in:
Leonardo de Moura 2015-07-29 18:17:06 -07:00
parent be61fb0566
commit d06c2b1ad3
1 changed files with 0 additions and 56 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

56
tests/lua/mod5.lua
View file

@ -1,56 +0,0 @@
local NumThreads=4
function mod_name(midx)
return tostring("mod5_mod" .. tostring(midx))
end
function const_name(midx)
return "mod" .. tostring(midx) .. "C"
end
function mk_module(midx, imports)
local imp_names = {}
for i = 1, #imports do
imp_names[#imp_names + 1] = mod_name(imports[i])
end
local env = import_modules(imp_names, {num_threads=NumThreads})
if #imports == 0 then
env = add_decl(env, mk_constant_assumption(const_name(midx), Prop))
env = add_decl(env, mk_constant_assumption("and", mk_arrow(Prop, Prop, Prop)))
elseif #imports == 1 then
env = add_decl(env, mk_definition(const_name(midx), Prop, Const(const_name(imports[1]))))
else
local And = Const("and")
env = add_decl(env, mk_definition(const_name(midx), Prop, And(Const(const_name(imports[1])), Const(const_name(imports[2])))))
end
env:export(tostring(mod_name(midx)) .. ".olean")
end
local NumMods = 100
function mk_modules()
mk_module(0, {})
local i = 1
local j = 1
while i <= NumMods do
if j % 2 == 0 then
mk_module(i, {i-1, i-2})
i = i + 1
else
mk_module(i, {i-1})
mk_module(i+1, {i-i})
i = i + 2
end
j = j + 1
end
end
mk_modules()
local env = import_modules(mod_name(NumMods))
env:for_each_decl(function(d)
print(d:name())
end
)
for i = 1, NumMods do
assert(env:get(const_name(i)):is_definition())
end