|
|
@ -18,7 +18,7 @@
|
|
|
|
"hello world")
|
|
|
|
"hello world")
|
|
|
|
(require (prefix-in markup: 'test-markup))
|
|
|
|
(require (prefix-in markup: 'test-markup))
|
|
|
|
(check-equal? markup:doc '(root "hello world"))
|
|
|
|
(check-equal? markup:doc '(root "hello world"))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(module test-markdown pollen/markdown
|
|
|
|
(module test-markdown pollen/markdown
|
|
|
|
"hello world")
|
|
|
|
"hello world")
|
|
|
@ -35,8 +35,9 @@
|
|
|
|
(define (run file)
|
|
|
|
(define (run file)
|
|
|
|
(with-output-to-string (λ() (system (format "racket ~a" file)))))
|
|
|
|
(with-output-to-string (λ() (system (format "racket ~a" file)))))
|
|
|
|
|
|
|
|
|
|
|
|
(check-equal? (run "test.ptree") "'(pagetree-root test ====)")
|
|
|
|
(module+ main
|
|
|
|
(check-equal? (run "test.html.pm") "'(root \"test\" \"\\n\" \"====\")")
|
|
|
|
(check-equal? (run "test.ptree") "'(pagetree-root test ====)")
|
|
|
|
(check-equal? (run "test.html.pmd") "'(root (h1 ((id \"test\")) \"test\"))")
|
|
|
|
(check-equal? (run "test.html.pm") "'(root \"test\" \"\\n\" \"====\")")
|
|
|
|
(check-equal? (run "test.html.pp") "test\n====")
|
|
|
|
(check-equal? (run "test.html.pmd") "'(root (h1 ((id \"test\")) \"test\"))")
|
|
|
|
(check-equal? (run "test.no-ext") "test\n====")
|
|
|
|
(check-equal? (run "test.html.pp") "test\n====")
|
|
|
|
|
|
|
|
(check-equal? (run "test.no-ext") "test\n===="))
|
|
|
|