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

test(type_checker): add example showing how to use the kernel exception formatter

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2013-09-30 16:39:29 -07:00
parent 2619c30fe9
commit 30089aa4f8
1 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/tests/kernel/type_checker.cpp
View file

@ -19,6 +19,8 @@ Author: Leonardo de Moura
#include "library/basic_thms.h" #include "library/basic_thms.h"
#include "library/arith/arith.h" #include "library/arith/arith.h"
#include "library/all/all.h" #include "library/all/all.h"
#include "library/state.h"
#include "library/kernel_exception_formatter.h"
using namespace lean; using namespace lean;
expr c(char const * n) { return mk_constant(n); } expr c(char const * n) { return mk_constant(n); }
@ -247,6 +249,24 @@ static void tst13() {
std::cout << infer_type(f(Eq(True, False)), env) << "\n"; std::cout << infer_type(f(Eq(True, False)), env) << "\n";
} }
static void tst14() {
environment env;
import_all(env);
expr f = Const("f");
expr a = Const("a");
env.add_var("f", Int >> Int);
env.add_var("a", Real);
expr F = f(a);
type_checker checker(env);
formatter fmt = mk_simple_formatter();
state st(options(), fmt);
try {
std::cout << checker.infer_type(F) << "\n";
} catch (kernel_exception & ex) {
regular(st) << ex << "\n";
}
}
int main() { int main() {
tst1(); tst1();
tst2(); tst2();
@ -261,5 +281,6 @@ int main() {
tst11(); tst11();
tst12(); tst12();
tst13(); tst13();
tst14();
return has_violations() ? 1 : 0; return has_violations() ? 1 : 0;
} }