diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-11 19:48:47 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-11 19:48:47 +0200 |
| commit | f743e08220883eef86effdac8a5e7c94deddc302 (patch) | |
| tree | 053da1a51b7262721e1fcb1324994122ce427bc6 /tests/test/cpp/cpp-environment.scm | |
| parent | Fix whitespace for rest args. (diff) | |
| download | calp-f743e08220883eef86effdac8a5e7c94deddc302.tar.gz calp-f743e08220883eef86effdac8a5e7c94deddc302.tar.xz | |
Cleanup + fix __LINE__.
Diffstat (limited to '')
| -rw-r--r-- | tests/test/cpp/cpp-environment.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/test/cpp/cpp-environment.scm b/tests/test/cpp/cpp-environment.scm index d31ec208..df4736fb 100644 --- a/tests/test/cpp/cpp-environment.scm +++ b/tests/test/cpp/cpp-environment.scm @@ -16,7 +16,9 @@ (define cpp-file-stack (@@ (c cpp-environment) cpp-file-stack)) (let ((e (make-environment))) - (test-equal "Default file stack" '(("*outside*" . 1)) (cpp-file-stack e)) + (test-equal "Default file stack" + '(("*outside*" . 1)) + (cpp-file-stack e)) (let ((e* (enter-file e "test.c"))) (test-equal "File stack after entering file" '(("test.c" . 1) ("*outside*" . 1)) (cpp-file-stack e*)) |