You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
998 B
Racket
23 lines
998 B
Racket
9 years ago
|
#lang at-exp racket/base
|
||
|
|
(require rackunit racket/port racket/system racket/runtime-path compiler/find-exe racket/file)
|
||
|
|
|
||
|
|
;; define-runtime-path only allowed at top level
|
||
|
|
(define-runtime-path test-dir "data/escape-ext")
|
||
|
|
(define-runtime-path test-file "data/escape-ext/test$html.pp")
|
||
|
|
|
||
|
|
;; `find-exe` avoids reliance on $PATH of the host system
|
||
|
|
(define racket-path (find-exe))
|
||
|
|
(define-values (raco-dir file _) (split-path racket-path))
|
||
|
|
(when racket-path
|
||
|
|
(define raco-path (build-path raco-dir "raco"))
|
||
|
|
(define (render path)
|
||
|
|
;; 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))
|
||
|
|
(with-output-to-string (λ() (system cmd-string))))
|
||
|
|
(define result-file (build-path test-dir "test.html"))
|
||
|
|
(when (file-exists? result-file) (delete-file result-file))
|
||
|
|
(render test-file)
|
||
|
|
(check-true (file-exists? result-file))
|
||
|
|
(check-equal? (file->string result-file) "test")
|
||
|
|
(delete-file result-file))
|