basic unit tests for output-template
This commit is contained in:
parent
c38f180fb7
commit
234d1bd87e
@ -45,6 +45,10 @@
|
|||||||
|
|
||||||
(import-macros { : define-tests : expect : expect= } :anoia.assert)
|
(import-macros { : define-tests : expect : expect= } :anoia.assert)
|
||||||
(define-tests
|
(define-tests
|
||||||
|
(expect= (pick-values 1 (substitute "var={{ 2 + 3 }}" "{{" "}}")) "var=5")
|
||||||
|
(expect= (pick-values 1 (substitute "{{ json_quote(\"o'reilly\") }}" "{{" "}}"))
|
||||||
|
"\"o'reilly\"")
|
||||||
|
|
||||||
(fn slurp [name]
|
(fn slurp [name]
|
||||||
(with-open [f (assert (io.open name))] (f:read "*a")))
|
(with-open [f (assert (io.open name))] (f:read "*a")))
|
||||||
(expect=
|
(expect=
|
||||||
|
Loading…
Reference in New Issue
Block a user