Serene/serene
Serene
/
serene
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Activity

Add a more complicated test to semantic analysis

This commit is contained in:
Sameer Rahmani 2021-04-24 20:40:01 +01:00
parent c12c6b1281
commit 5427b2ab00
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/tests/exprs/list_tests.cpp.inc
View File

@ -148,5 +148,18 @@ TEST_CASE("List semantic analysis for 'fn'", "[semantic]") {
astToString(&afterAst.getValue()) ==
"<Fn Anonymous <List -> to <Def a -> <Symbol b>> <Def b -> <Symbol c>>>");
}
TEST_CASE("Complex semantic analysis", "[semantic]") {
auto ctx = reader::makeSemanticContext();
auto ast =
reader::read("(def a (fn (x) x))\n((def b (fn (x) (fn (y) y))))\n\n");
auto afterAst = reader::analyze(ctx, ast.getValue());
REQUIRE(afterAst);
CHECK(astToString(&afterAst.getValue()) ==
"<Def a -> <Fn Anonymous <List -> to <Symbol x>>> <List <List "
"<Symbol def> <Symbol b> <List <Symbol fn> <List <Symbol x>> <List "
"<Symbol fn> <List <Symbol y>> <Symbol y>>>>>");
}
} // namespace exprs
} // namespace serene