blob: a56c6c0df1f20483072f8c81f63175cc2fb4e0d5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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
")
|