aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--test/test/lux/lexer.clj17
1 files changed, 12 insertions, 5 deletions
diff --git a/test/test/lux/lexer.clj b/test/test/lux/lexer.clj
index 72602639d..dc00c1d51 100644
--- a/test/test/lux/lexer.clj
+++ b/test/test/lux/lexer.clj
@@ -160,19 +160,26 @@
(deftest lex-text
(let [input1 ""
input2 "abc"
- input3 "yolo\\nlol\\tmeme"]
+ input3 "yolo\\nlol\\tmeme"
+ input4 "This is a test \\
+ \\ of multi-line text. \\
+
+ \\ I just wanna make sure it works alright..."]
(|case (&/run-state (|do [[_ output1] &lexer/lex
[_ output2] &lexer/lex
- [_ output3] &lexer/lex]
- (return (&/T output1 output2 output3)))
+ [_ output3] &lexer/lex
+ [_ output4] &lexer/lex]
+ (return (&/T output1 output2 output3 output4)))
(make-state (str "\"" input1 "\"" "\n" "\"" input2 "\"" "\n" "\"" input3 "\"")))
(&/$Right state [(&lexer/$Text output1)
(&lexer/$Text output2)
- (&lexer/$Text output3)])
+ (&lexer/$Text output3)
+ (&lexer/$Text output4)])
(are [input output] (= input output)
input1 output1
input2 output2
- "yolo\nlol\tmeme" output3)
+ "yolo\nlol\tmeme" output3
+ "This is a test\nof multi-line text.\n\nI just wanna make sure it works alright..." output4)
_
(is false "Couldn't read.")