mbutterick
/
pollen
3
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

correct typo in runtime paths

Browse Source
pull/58/head
Matthew Butterick 10 years ago
parent d01e40e380
commit 7448e5b86a
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File

11
tests/test-langs.rkt
Unescape Escape View File

@ -32,15 +32,16 @@
(check-equal? ptree:doc '(pagetree-root (index (brother sister)))) (check-equal? ptree:doc '(pagetree-root (index (brother sister))))
(define (run path) (define (run path)
(with-output-to-string (λ() (system (format "racket ~a" path))))) (define cmd-string (format "racket ~a" path))
(with-output-to-string (λ() (system cmd-string))))
(define-runtime-path test.ptree "test.ptree") (define-runtime-path test.ptree "test.ptree")
(check-equal? (run test.ptree) "'(pagetree-root test ====)") (check-equal? (run test.ptree) "'(pagetree-root test ====)")
(define-runtime-path test.html.pm "test.html.pm") (define-runtime-path test.html.pm "test.html.pm")
(check-equal? (run "test.html.pm") "'(root \"test\" \"\\n\" \"====\")") (check-equal? (run test.html.pm) "'(root \"test\" \"\\n\" \"====\")")
(define-runtime-path test.html.pmd "test.html.pmd") (define-runtime-path test.html.pmd "test.html.pmd")
(check-equal? (run "test.html.pmd") "'(root (h1 ((id \"test\")) \"test\"))") (check-equal? (run test.html.pmd) "'(root (h1 ((id \"test\")) \"test\"))")
(define-runtime-path test.html.pp "test.html.pp") (define-runtime-path test.html.pp "test.html.pp")
(check-equal? (run "test.html.pp") "test\n====") (check-equal? (run test.html.pp) "test\n====")
(define-runtime-path test.no-ext "test.no-ext") (define-runtime-path test.no-ext "test.no-ext")
(check-equal? (run "test.no-ext") "test\n====") (check-equal? (run test.no-ext) "test\n====")

Write Preview
Loading…
Cancel
Save