Rewrite test running system.

1 files changed, 41 insertions, 0 deletions

diff --git a/tests/unit/c/cpp.scm b/tests/unit/c/cpp.scm
new file mode 100644
index 00000000..43ad0144
--- /dev/null
+++ b/tests/unit/c/cpp.scm
@@ -0,0 +1,41 @@
+;;; Commentary:
+;; Tests my parser for a subset of the C programming language.
+;;; Code:
+
+(define-module (test cpp)
+  :use-module (srfi srfi-64)
+  :use-module (srfi srfi-88)
+  :use-module ((c lex) :select (lex))
+  :use-module ((c parse) :select (parse-lexeme-tree)))
+
+(define run (compose parse-lexeme-tree lex))
+
+(test-equal
+  '(+ (post-increment (dereference C)) 3)
+  (run "(*C)++ + 3"))
+
+(test-equal
+  '(+ (post-increment (dereference C)) 3)
+  (run "*C++ + 3"))
+
+(test-equal
+  '(post-increment (dereference C))
+  (run "*C++"))
+
+(test-equal
+  '(+ (post-increment C) (post-increment C))
+  (run "C++ + C++"))
+
+(test-equal
+  '(+ (pre-increment C) (pre-increment C))
+  (run "++C + ++C"))
+
+(test-equal '(+ 2 (* 2 2)) (run "2 + 2 * 2"))
+
+(test-equal '(+ (* 2 2) 2) (run "2 * 2 + 2"))
+
+(test-equal '(+ 2 2 2) (run "2+2+2"))
+
+
+'((c lex)
+  (c parse))