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

more flexible test

Browse Source
dev-poly-fix-201114
Matthew Butterick 4 years ago
parent 8a8e497bfe
commit e434406b46
2 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File

2
pollen/private/ts.rktd
Unescape Escape View File

@ -1 +1 @@
1603075171 1603077405

7
pollen/test/test-poly-output-path.rkt
Unescape Escape View File

@ -1,5 +1,5 @@
#lang at-exp racket/base #lang at-exp racket/base
(require rackunit racket/runtime-path pollen/render racket/file racket/system pollen/setup) (require rackunit racket/runtime-path pollen/render racket/file racket/system pollen/setup txexpr xml)
;; define-runtime-path only allowed at top level ;; define-runtime-path only allowed at top level
(define-runtime-path poly-output-path-dir "data/poly-output-path") (define-runtime-path poly-output-path-dir "data/poly-output-path")
@ -19,10 +19,11 @@
(check-equal? (file->string test.txt) "(root hello world)") (check-equal? (file->string test.txt) "(root hello world)")
(delete-file test.txt) (delete-file test.txt)
(check-false (file-exists? test.html)) (check-false (file-exists? test.html))
;; passing poly source as argument should result in default (html) rendering ;; passing poly source as argument should result in default (html) rendering
(render-batch #:parallel parallel? test.poly.pm) (render-batch #:parallel parallel? test.poly.pm)
(check-equal? (file->string test.html) "<html><head><meta charset=\"UTF-8\"/></head><body><root>hello world</root></body></html>") (check-txexprs-equal?
(string->xexpr (file->string test.html))
(string->xexpr "<html><head><meta charset=\"UTF-8\"/></head><body><root>hello world</root></body></html>"))
(delete-file test.html) (delete-file test.html)
(check-false (file-exists? test.txt)))) (check-false (file-exists? test.txt))))

Write Preview
Loading…
Cancel
Save