diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/reader.lisp | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/tests/reader.lisp b/tests/reader.lisp new file mode 100644 index 0000000..a56c6c0 --- /dev/null +++ b/tests/reader.lisp @@ -0,0 +1,36 @@ +(in-package :consfigurator/tests) +(named-readtables:in-readtable :consfigurator) +(in-consfig "consfigurator/tests") + +(deftest read-heredoc.1 + #>EOF>yesEOF + "yes") + +(deftest read-heredoc.2 + #>>EOF>>yes + yesEOF + " yes") + +(deftest read-heredoc.3 + #>>EOF>> ; well +line 1 +EOF + "line 1 +") + +(deftest read-heredoc.4 + #>~EOF> blah + blah + EOF + "blah +blah +") + +(deftest read-heredoc.5 + #>>~EOF>> + line 1 + line 2 + EOF + "line 1 +line 2 +") |