aboutsummaryrefslogtreecommitdiff
path: root/tests/test/cpp.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test/cpp.scm')
-rw-r--r--tests/test/cpp.scm39
1 files changed, 0 insertions, 39 deletions
diff --git a/tests/test/cpp.scm b/tests/test/cpp.scm
deleted file mode 100644
index 9c720fde..00000000
--- a/tests/test/cpp.scm
+++ /dev/null
@@ -1,39 +0,0 @@
-;;; 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"))
-
-