From 8045e5ff6f85350e0bf73c83d22953bc5559c10a Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 11 Apr 2015 09:16:35 -0700 Subject: [PATCH] relocate test in submodule --- tests/test-langs.rkt | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/tests/test-langs.rkt b/tests/test-langs.rkt index cf9fa12..a5b0943 100644 --- a/tests/test-langs.rkt +++ b/tests/test-langs.rkt @@ -18,7 +18,7 @@ "hello world") (require (prefix-in markup: 'test-markup)) (check-equal? markup:doc '(root "hello world")) - + (module test-markdown pollen/markdown "hello world") @@ -35,8 +35,9 @@ (define (run file) (with-output-to-string (λ() (system (format "racket ~a" file))))) -(check-equal? (run "test.ptree") "'(pagetree-root test ====)") -(check-equal? (run "test.html.pm") "'(root \"test\" \"\\n\" \"====\")") -(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====") +(module+ main + (check-equal? (run "test.ptree") "'(pagetree-root test ====)") + (check-equal? (run "test.html.pm") "'(root \"test\" \"\\n\" \"====\")") + (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===="))