From a70dcaa949f41c585f9aea5e79f2550053d8e857 Mon Sep 17 00:00:00 2001 From: Joel Kronqvist Date: Tue, 19 Aug 2025 13:55:05 +0300 Subject: test: added boilerplate and tests for coproduct parsing, type checking and evaluation --- src/parse/parsetree.rs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/parse/parsetree.rs') diff --git a/src/parse/parsetree.rs b/src/parse/parsetree.rs index c773f3b..081489d 100644 --- a/src/parse/parsetree.rs +++ b/src/parse/parsetree.rs @@ -119,6 +119,9 @@ fn tokens_to_ast_inner( Some(Sym(s)) if s == "false" => Ok(Atom(False)), Some(Sym(s)) if s == "quote" => Ok(Atom(Quote)), Some(Sym(s)) if s == "vector" => Ok(Atom(Vector)), + Some(Sym(s)) if s == "coprod" => Ok(Atom(Coprod)), + Some(Sym(s)) if s == "inl" => Ok(Atom(Inl)), + Some(Sym(s)) if s == "inr" => Ok(Atom(Inr)), Some(Sym(s)) if s == "<>" => Ok(Atom(Concat)), Some(Sym(s)) if s == "print" => Ok(Atom(Print)), Some(Sym(s)) if s == "let" => Ok(Atom(Let)), @@ -248,6 +251,7 @@ mod private_parsing_tests { Ok(("", List(vec![Integer, Boolean, arr(Boolean, Integer), Integer]))) ); assert_eq!(parse_type("T"), Ok(("", VarType("T".to_string())))); + assert_eq!(parse_type("(Sum (Int -> Bool) Int)"), Ok(("", sumtype(arr(Integer, Boolean), Integer)))); } #[test] -- cgit v1.2.3