relocate test in submodule

pull/58/head
Matthew Butterick 10 years ago
parent 7298d2d0c3
commit 8045e5ff6f

@ -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===="))

Loading…
Cancel
Save