You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
74 lines
2.8 KiB
Racket
74 lines
2.8 KiB
Racket
#lang at-exp racket/base
|
|
(require rackunit
|
|
racket/port
|
|
racket/system
|
|
racket/runtime-path
|
|
compiler/find-exe
|
|
pollen/render
|
|
pollen/unstable/convert
|
|
txexpr)
|
|
|
|
(module test-default pollen
|
|
"hello world")
|
|
(require (prefix-in default: 'test-default))
|
|
(check-equal? default:doc "hello world")
|
|
|
|
|
|
(module test-pre pollen/pre
|
|
"hello world"
|
|
(void))
|
|
(require (prefix-in pre: 'test-pre))
|
|
(check-equal? pre:doc "hello world")
|
|
|
|
|
|
(module test-markup pollen/markup
|
|
"hello world"
|
|
(void))
|
|
(require (prefix-in markup: 'test-markup))
|
|
(check-equal? markup:doc '(root "hello world"))
|
|
|
|
|
|
(module test-markdown pollen/markdown
|
|
"hello world"
|
|
(void))
|
|
(require (prefix-in markdown: 'test-markdown))
|
|
(check-equal? markdown:doc '(root (p "hello world")))
|
|
|
|
|
|
(module test-ptree pollen/ptree
|
|
'(index (brother sister)))
|
|
(require (prefix-in ptree: 'test-ptree))
|
|
(check-equal? ptree:doc '(pagetree-root (index (brother sister))))
|
|
|
|
|
|
;; define-runtime-path only allowed at top level
|
|
(define-runtime-path test.ptree "data/test.ptree")
|
|
(define-runtime-path test.html.pm "data/test.html.pm")
|
|
(define-runtime-path test-import.html.pm "data/test-import.html.pm")
|
|
(define-runtime-path test.html.pmd "data/test.html.pmd")
|
|
(define-runtime-path test.html.pp "data/test.html.pp")
|
|
(define-runtime-path test.no-ext "data/test.no-ext")
|
|
(define-runtime-path test.pp "data/test.pp")
|
|
(define-runtime-path test.pm "data/test.pm")
|
|
|
|
|
|
;; `find-exe` avoids reliance on $PATH of the host system
|
|
(define racket-path (find-exe))
|
|
(when racket-path
|
|
(define (run path)
|
|
(define cmd-string (format "'~a' ~a" racket-path path))
|
|
(with-output-to-string (λ () (system cmd-string))))
|
|
(check-equal? (run test.ptree) "'(pagetree-root test ====)")
|
|
(check-equal? (run test.html.pm) @string-append{'(root "test" "\n" "====")})
|
|
(check-equal? (run test-import.html.pm) @string-append{'(root "test" "\n" "====" "\n" (root "This is sample 01."))})
|
|
(check-equal? (run test.html.pmd) "'(root (h1 ((id \"test\")) \"test\"))")
|
|
(check-equal? (run test.html.pp) "test\n====")
|
|
(check-equal? (run test.no-ext) "test\n====")
|
|
(check-equal? (run test.pm) "'(root \"test\" \"\\n\" \"====\")")
|
|
(check-equal? (run test.pp) "test\n====")
|
|
(check-txexprs-equal? (html->xexpr (render test.html.pm)) (html->xexpr "<html><head><meta charset=\"UTF-8\"/></head><body><root>test\n====</root></body></html>"))
|
|
(check-txexprs-equal? (html->xexpr (render test.html.pmd)) (html->xexpr "<html><head><meta charset=\"UTF-8\"/></head><body><root><h1 id=\"test\">test</h1></root></body></html>"))
|
|
(check-txexprs-equal? (render test.html.pp) "test\n====")
|
|
(check-txexprs-equal? (html->xexpr (render test.pm)) (html->xexpr "<html><head><meta charset=\"UTF-8\"/></head><body><root>test\n====</root></body></html>"))
|
|
(check-txexprs-equal? (render test.pp) "test\n===="))
|