test(lua/justification): add more tests
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
parent
d0bac61e74
commit
f586e58ac3
2 changed files with 13 additions and 0 deletions
|
@ -24,6 +24,7 @@ Author: Leonardo de Moura
|
|||
#include "bindings/lua/options.h"
|
||||
#include "bindings/lua/sexpr.h"
|
||||
#include "bindings/lua/format.h"
|
||||
#include "bindings/lua/formatter.h"
|
||||
#include "bindings/lua/level.h"
|
||||
#include "bindings/lua/local_context.h"
|
||||
#include "bindings/lua/expr.h"
|
||||
|
@ -173,6 +174,7 @@ struct leanlua_state::imp {
|
|||
open_options(m_state);
|
||||
open_sexpr(m_state);
|
||||
open_format(m_state);
|
||||
open_formatter(m_state);
|
||||
open_level(m_state);
|
||||
open_local_context(m_state);
|
||||
open_expr(m_state);
|
||||
|
|
11
tests/lua/jst1.lua
Normal file
11
tests/lua/jst1.lua
Normal file
|
@ -0,0 +1,11 @@
|
|||
local j1 = mk_assumption_justification(1)
|
||||
local j2 = mk_assumption_justification(2)
|
||||
assert(is_justification(j1))
|
||||
assert(j1:depends_on(j1))
|
||||
assert(not j1:depends_on(j2))
|
||||
for c in j1:children() do
|
||||
assert(false)
|
||||
end
|
||||
assert(not j2:has_children())
|
||||
print(j1)
|
||||
assert(j1:get_main_expr():is_null())
|
Loading…
Reference in a new issue