Rewrite handel-preprocessing-tokens.

1 files changed, 49 insertions, 0 deletions

diff --git a/tests/test/cpp/preprocessor2.scm b/tests/test/cpp/preprocessor2.scm
index 9e11bb04..cbc62edd 100644
--- a/tests/test/cpp/preprocessor2.scm
+++ b/tests/test/cpp/preprocessor2.scm
@@ -10,6 +10,7 @@
   :use-module (c cpp-environment)
   :use-module (c cpp-environment function-like-macro)
   :use-module (c cpp-environment object-like-macro)
+  :use-module ((c cpp-util) :select (drop-whitespace-both))
   :use-module (c lex2))
 
 
@@ -568,3 +569,51 @@ f(10)
 ;; resolve-h-file
 ;; resolve-q-file
 ;; handle-pragma
+;; include
+
+;; if
+;; else
+;; ifdef
+;; ifndef
+;; elif
+
+
+(define handle-preprocessing-tokens (@@ (c preprocessor2) handle-preprocessing-tokens))
+
+(define tokenize (@@ (c preprocessor2) tokenize))
+
+(test-equal "Simplest case" (lex "1")
+ (handle-preprocessing-tokens (make-environment)
+                              (lex "1")))
+
+(test-equal "Define"
+  (lex "1")
+  (remove-noexpand
+   (handle-preprocessing-tokens (make-environment)
+                                (lex "
+#define x 1
+x"))))
+
+(test-equal "__LINE__"
+  (lex "5")
+  (drop-whitespace-both
+   (remove-noexpand
+    (handle-preprocessing-tokens (make-environment)
+                                 (tokenize " // 1
+#define x __LINE__ // 2
+// 3
+// 4
+x // 5"))
+    )))
+
+;; __LINE__
+;; #line
+;; #undef
+;; #error
+;; #pragma
+
+;; if
+;; else
+;; ifdef
+;; ifndef
+;; elif