aboutsummaryrefslogtreecommitdiff
path: root/tests/test/cpp/cpp-environment.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test/cpp/cpp-environment.scm')
-rw-r--r--tests/test/cpp/cpp-environment.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/test/cpp/cpp-environment.scm b/tests/test/cpp/cpp-environment.scm
index 8600c731..d31ec208 100644
--- a/tests/test/cpp/cpp-environment.scm
+++ b/tests/test/cpp/cpp-environment.scm
@@ -2,6 +2,7 @@
:use-module (srfi srfi-64)
:use-module (srfi srfi-88)
:use-module (c cpp-environment)
+ :use-module ((c lex2) :select (lex))
:use-module (c cpp-environment object-like-macro)
)
@@ -29,10 +30,10 @@
e "key"
(object-like-macro
identifier: "key"
- body: '((preprocessing-token (identifier "value")))))))
+ body: (lex "value")))))
(let ((result (get-identifier e* "key")))
(test-assert (macro? result))
- (test-equal '((preprocessing-token (identifier "value")))
+ (test-equal (lex "value")
(macro-body result))))
;; (get-identifier e "key") here is undefined
)