fix a test

pull/199/head
Matthew Butterick 6 years ago
parent 120e596225
commit a34da0b6ed

@ -1 +1 @@
1556084830 1556202286

@ -14,8 +14,10 @@
(define (render path) (define (render path)
;; need to cd first to pick up directory require correctly ;; need to cd first to pick up directory require correctly
(define cmd-string (format "cd '~a' ; '~a' pollen render '~a'" test-dir raco-path path)) (define cmd-string (format "cd '~a' ; '~a' pollen render '~a'" test-dir raco-path path))
(with-output-to-string (λ () (system cmd-string)))) (parameterize ([current-error-port (open-output-nowhere)])
(when (file-exists? result-file) (delete-file result-file)) (system cmd-string)))
(when (file-exists? result-file)
(delete-file result-file))
(render test-file) (render test-file)
(check-true (file-exists? result-file)) (check-true (file-exists? result-file))
(check-equal? (file->string result-file) "test") (check-equal? (file->string result-file) "test")

Loading…
Cancel
Save