(import (chicken read-syntax) test (prefix raw r:))
; This should fix renaming
(r:_raw-post-processor-name 'r:_raw-post-process)
(test-begin "simple usage")
(test "hello, world"
"hello, world"
#&{hello, world&})
(test "no need for escaping"
"!@#$%^*()\\\""
#&{!@#$%^*()\"&})
(test "empty string" "" #&{&})
(test "break long lines"
"this is a very looooooooooooooooooooooooooooong line"
#&{
this is a very &
looooooooooooooooooooooooooooong &
line&
&})
(test-end)
(test-group "escape character"
(test "default" "&" #&{&&&})
(test "hash" "#" #&#{#&#})
(test "closing curly brace" "}" #&}{}&}})
(test "at sign" "@" #&@{@&@}))
(test-group "substitution"
(let* ((greeting "hello")
(get-greeting (constantly greeting))
(num 3)
(lines "one\ntwo\nthree"))
(test "literal" greeting #&{&["hello"]&})
(test "variable" greeting #&{&[greeting]&})
(test "sexpression" greeting #&{&(get-greeting)&})
(test "prefix-lines"
"#one\n#two\n#three"
#&{#&![lines]&})
(test-error "non-string" #&{&[num]&})))
(test-group "commands"
(test "literal escape" "&" #&{&&&})
(test "literal escape with user defined character" "@" #&@{@&@})
(test "noop" " no newlines " #&{&
no newlines&
&}))
(test-begin "smart-indent")
(test "basic"
"not indented\n indented (blank line next)\n\n\ttab-indented"
#&{
not indented
indented (blank line next)
tab-indented&})
(test "disable"
"\n hello"
#&{&
hello&})
(test-end)
(test-begin "real world examples")
(define head #&{
a webpage
&
&})
(define header
#&{
&
&})
(define main
#&{
This is a website.
&
&})
(define footer
#&{
&
&})
(define body
#&{
&![header]
&![main]
&![footer]
&
&})
(define webpage
#&{
&![head]
&![body]
&})
(define correct-webpage #<
a webpage
This is a website.
HTML
)
(test "simple webpage" webpage correct-webpage)
(test-end)
(test-begin "changing syntax")
(set-sharp-read-syntax! #\& #f)
; error
; #&{hello, world&}
(set-read-syntax! #\& r:raw-read-syntax)
(test "change starting sequence"
"hello, world"
&{hello, world&})
(test-end)
(test-exit)