basic function: car/cdr/cons/+/-

1 files changed, 15 insertions, 0 deletions

diff --git a/tests/test_parser.c b/tests/test_parser.c
index 28c30e0..ff617df 100644
--- a/tests/test_parser.c
+++ b/tests/test_parser.c
@@ -45,6 +45,21 @@ int main() {
     ParseResult res;
     SExp sexp, a, b, c;
 
+    res = parse_str(&parser, "(+ 2)");
+    assert(!ParseResult_is_err(res));
+    sexp = *Interp_ref(&interp, res.val);
+    assert(sexp.type == kPairSExp);
+    a = *Interp_ref(&interp, sexp.pair.car);
+    b = *Interp_ref(&interp, sexp.pair.cdr);
+    assert(a.type == kSymbolSExp);
+    assert(strcmp("+", a.str) == 0);
+    a = *Interp_ref(&interp, b.pair.car);
+    b = *Interp_ref(&interp, b.pair.cdr);
+    assert(a.type == kIntegerSExp);
+    assert(a.integer == 2);
+    assert(b.type == kNilSExp);
+
+
     res = parse_str(&parser, "((1 2)\n . 3)");
     assert(!ParseResult_is_err(res));
     sexp = *Interp_ref(&interp, res.val);