diff options
Diffstat (limited to 'tests/test/cpp/cpp-environment.scm')
-rw-r--r-- | tests/test/cpp/cpp-environment.scm | 5 |
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 ) |