[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[RFC PATCH 2/2] Add tests for strings interpolation reader extension.
From: |
Olivier Dion |
Subject: |
[RFC PATCH 2/2] Add tests for strings interpolation reader extension. |
Date: |
Sat, 10 Dec 2022 17:17:24 -0500 |
From: Olivier dion <olivier-dion@proton.me>
* test-suite/tests/reader.test: Add the tests.
---
test-suite/tests/reader.test | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test
index 27daf6106..fb31575dd 100644
--- a/test-suite/tests/reader.test
+++ b/test-suite/tests/reader.test
@@ -200,7 +200,16 @@
(pass-if-equal '(#f) (read-string "(#FALSE)"))
(pass-if-equal '(#f) (read-string "(#FaLsE)"))
- (pass-if (eof-object? (read-string "#!!#"))))
+ (pass-if (eof-object? (read-string "#!!#")))
+
+ (pass-if-equal "raw" (read-string "#\"raw\""))
+ (pass-if-equal "@raw" (read-string "#\"@@raw\""))
+ (pass-if-equal "@raw" (read-string "#\"@@raw@\""))
+ (pass-if-equal "@raw@" (read-string "#\"@@raw@@\""))
+ (pass-if-equal '(format #f "true=~a" (or #f #t))
+ (read-string "#\"true=@(or #f #t)\""))
+ (pass-if-equal '(format #f "@@~a" '@)
+ (read-string "#\"@@@@@'@\"")))
--
2.38.1