aboutsummaryrefslogtreecommitdiff
path: root/tests/cpp.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/cpp.scm')
-rw-r--r--tests/cpp.scm43
1 files changed, 0 insertions, 43 deletions
diff --git a/tests/cpp.scm b/tests/cpp.scm
deleted file mode 100644
index 84bd4b92..00000000
--- a/tests/cpp.scm
+++ /dev/null
@@ -1,43 +0,0 @@
-;;; Commentary:
-;; Tests my parser for a subset of the C programming language.
-;;; Code:
-
-(((c lex) lex)
- ((c parse) 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"))
-