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.
42 lines
1.5 KiB
Racket
42 lines
1.5 KiB
Racket
10 years ago
|
#lang at-exp racket/base
|
||
|
|
(require rackunit racket/runtime-path pollen/render racket/file racket/system)
|
||
|
|
|
||
|
|
;; define-runtime-path only allowed at top level
|
||
|
|
(define-runtime-path rerequire-dir "data/rerequire")
|
||
|
|
(define-runtime-path directory-require.rkt "data/rerequire/directory-require.rkt")
|
||
|
|
(define-runtime-path pre.txt.pp "data/rerequire/pre.txt.pp")
|
||
|
|
(define-runtime-path pre.txt "data/rerequire/pre.txt")
|
||
|
|
(define-runtime-path template.txt "data/rerequire/template.txt")
|
||
|
|
(define-runtime-path markup.txt.pm "data/rerequire/markup.txt.pm")
|
||
|
|
(define-runtime-path markup.txt "data/rerequire/markup.txt")
|
||
|
|
|
||
|
|
|
||
|
|
(copy-file markup.txt.pm pre.txt.pp #t)
|
||
|
|
|
||
|
|
;; test makes sure that file render changes after directory-require changes
|
||
|
|
(parameterize ([current-output-port (open-output-string)])
|
||
|
|
|
||
|
|
(display-to-file @string-append{#lang racket/base
|
||
|
|
(provide id)
|
||
|
|
(define (id) "first")} directory-require.rkt #:exists 'replace)
|
||
|
|
|
||
|
|
(render-to-file-if-needed markup.txt.pm)
|
||
|
|
(check-equal? (file->string markup.txt) "rootfirst")
|
||
|
|
(render-to-file-if-needed pre.txt.pp)
|
||
|
|
(check-equal? (file->string pre.txt) "first")
|
||
|
|
|
||
|
|
(sleep 1)
|
||
|
|
(display-to-file @string-append{#lang racket/base
|
||
|
|
(provide id)
|
||
|
|
(define (id) "second")} directory-require.rkt #:exists 'replace)
|
||
|
|
|
||
|
|
(render-to-file-if-needed markup.txt.pm)
|
||
|
|
(check-equal? (file->string markup.txt) "rootsecond")
|
||
|
|
(render-to-file-if-needed pre.txt.pp)
|
||
|
|
(check-equal? (file->string pre.txt) "second"))
|
||
|
|
|
||
|
|
(delete-file pre.txt.pp)
|
||
|
|
(delete-file pre.txt)
|
||
|
|
(delete-file markup.txt)
|
||
|
|
|
||
|
|
(delete-directory/files (build-path (current-directory) "pollen-cache"))
|