diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd
index def5e18..39a6ffa 100644
--- a/pollen/private/ts.rktd
+++ b/pollen/private/ts.rktd
@@ -1 +1 @@
-1603075171
+1603077405
diff --git a/pollen/test/test-poly-output-path.rkt b/pollen/test/test-poly-output-path.rkt
index 07c260c..4be1c82 100644
--- a/pollen/test/test-poly-output-path.rkt
+++ b/pollen/test/test-poly-output-path.rkt
@@ -1,5 +1,5 @@
#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 poly-output-path-dir "data/poly-output-path")
@@ -14,16 +14,17 @@
[current-project-root poly-output-path-dir])
(for ([parallel? (list #true #false)])
- ;; passing "text.txt" as argument should force use of `txt` rendering
- (render-batch #:parallel parallel? test.txt)
- (check-equal? (file->string test.txt) "(root hello world)")
- (delete-file test.txt)
- (check-false (file-exists? test.html))
-
- ;; passing poly source as argument should result in default (html) rendering
- (render-batch #:parallel parallel? test.poly.pm)
- (check-equal? (file->string test.html) "hello world")
- (delete-file test.html)
- (check-false (file-exists? test.txt))))
+ ;; passing "text.txt" as argument should force use of `txt` rendering
+ (render-batch #:parallel parallel? test.txt)
+ (check-equal? (file->string test.txt) "(root hello world)")
+ (delete-file test.txt)
+ (check-false (file-exists? test.html))
+ ;; passing poly source as argument should result in default (html) rendering
+ (render-batch #:parallel parallel? test.poly.pm)
+ (check-txexprs-equal?
+ (string->xexpr (file->string test.html))
+ (string->xexpr "hello world"))
+ (delete-file test.html)
+ (check-false (file-exists? test.txt))))
(delete-directory/files pollen-cache)
\ No newline at end of file