make failing test case for S-Expression creation/printing

andrew-johnson-4 · Dec 31, 2023 · 0cff026 · 0cff026
1 parent 75ace18
commit 0cff026
Show file tree

Hide file tree

Showing 4 changed files with 21 additions and 1 deletion.
diff --git a/tests/123.lm b/tests/123.lm
@@ -1,2 +1,4 @@
 
-main := print "123"
+main := (
+   print_s 123
+);
diff --git a/tests/c_cli.rs b/tests/c_cli.rs
@@ -22,3 +22,13 @@ fn compile_and_run(fp: &str) -> String {
 fn cli_123() {
    assert_eq!( compile_and_run("tests/123.lm"), "123" );
 }
+
+#[test]
+fn cli_nil() {
+   assert_eq!( compile_and_run("tests/nil.lm"), "()" );
+}
+
+#[test]
+fn cli_cons() {
+   assert_eq!( compile_and_run("tests/cons.lm"), "(123 . (() . 456))" );
+}
diff --git a/tests/cons.lm b/tests/cons.lm
@@ -0,0 +1,4 @@
+
+main := (
+   print_s (123 () 456)
+);
diff --git a/tests/nil.lm b/tests/nil.lm
@@ -0,0 +1,4 @@
+
+main := (
+   print_s ()
+);