diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-11 22:47:58 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-11 22:47:58 +0200 |
| commit | eeccf193ff6313abedede827f3096b84428762eb (patch) | |
| tree | 8d3852cd6d35f2ed12d6073ba83a3f320532112f /tests/test/cpp/preprocessor2.scm | |
| parent | Remove usage of zipper. (diff) | |
| download | calp-eeccf193ff6313abedede827f3096b84428762eb.tar.gz calp-eeccf193ff6313abedede827f3096b84428762eb.tar.xz | |
Remove linear update environment procedures.
Diffstat (limited to '')
| -rw-r--r-- | tests/test/cpp/preprocessor2.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/test/cpp/preprocessor2.scm b/tests/test/cpp/preprocessor2.scm index 4f0918ff..01c46dff 100644 --- a/tests/test/cpp/preprocessor2.scm +++ b/tests/test/cpp/preprocessor2.scm @@ -738,6 +738,22 @@ wf(x, y) "))) +(test-equal "Usage before #define" + (lex "X") + (run "X + +#define X 100")) + +(test-equal "#undef" + (append (lex "X") (lex "10") (lex "X")) + (run " +X +#define X 10 +X +#undef X +X +") + ) ;; #undef ;; #error |