diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-03 12:36:35 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-07 21:31:32 +0200 |
| commit | cba504b509cd59f376063f6e590362b197147a2c (patch) | |
| tree | 954e90b0053ab4c0247ef242607654c862d02e48 /tests/test/cpp/preprocessor2.scm | |
| parent | Merge branch 'new-object-system' into c-parser (diff) | |
| download | calp-cba504b509cd59f376063f6e590362b197147a2c.tar.gz calp-cba504b509cd59f376063f6e590362b197147a2c.tar.xz | |
Major work.
Diffstat (limited to 'tests/test/cpp/preprocessor2.scm')
| -rw-r--r-- | tests/test/cpp/preprocessor2.scm | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/tests/test/cpp/preprocessor2.scm b/tests/test/cpp/preprocessor2.scm new file mode 100644 index 00000000..117b7e49 --- /dev/null +++ b/tests/test/cpp/preprocessor2.scm @@ -0,0 +1,29 @@ +(define-module (test cpp preprocessor2) + :use-module (srfi srfi-64) + :use-module (srfi srfi-88)) + + + +(test-group "Tokens until End Of Line" + (call-with-values + (lambda () + (tokens-until-eol + '(before (whitespace "\n") after))) + (lambda (bef aft) + (test-equal '(before) bef) + (test-equal '((whitespace "\n") after) aft)))) + + + +(test-equal "Squeeze whitespace" + '(bef (whitespace " ") aft) + (squeeze-whitespace + '(bef + (whitespace a) + (whitespace b) + aft))) + + + +(test-equal "(" + (stringify-token '(preprocessor-token (operator "(")))) |