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

fix(tests): to reflect recent changes

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-07-23 13:20:24 -07:00
parent adddf06e44
commit 69d9c8b95d
2 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/tests/kernel/metavar.cpp
View file

@ -91,14 +91,11 @@ static void tst2() {
expr f = Const("f");
expr g = Const("g");
expr a = Const("a");
lean_assert(s.occurs(m1, f(m1)));
lean_assert(!s.occurs(m2, f(m1)));
s.assign(m1, f(m2), mk_assumption_justification(1));
lean_assert(s.occurs(m2, f(m1)));
s.assign(m2, g(a), mk_assumption_justification(2));
lean_assert(check_assumptions(s.get_assignment(m1)->second, {1}));
lean_assert(!s.occurs(m1, f(m1)));
lean_assert(!s.occurs(m2, f(m1)));
lean_assert(s.occurs(m1, f(m1)));
lean_assert(s.occurs(m2, f(m1)));
lean_assert(!s.occurs(m1, f(m2)));
lean_assert(!s.occurs(m1, f(a)));
lean_assert(!s.occurs(m3, f(m1)));

4
tests/lua/subst1.lua
View file

@ -24,8 +24,8 @@ assert(s:get_expr("m") == a)
local m2 = mk_metavar("m2", Prop)
s:assign(m2, f(m))
print(s:get_expr("m2"))
assert(not s:occurs(m, f(m2)))
assert(not s:occurs_expr("m", f(m2)))
assert(s:occurs(m, f(m2)))
assert(s:occurs_expr("m", f(m2)))
print(s:get_level("u"))
print(s:instantiate(mk_sort(u)))
assert(s:instantiate(mk_sort(u)) == mk_sort(l))