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.
25 lines
1.2 KiB
Racket
25 lines
1.2 KiB
Racket
#lang at-exp racket/base
|
|
(require rackunit racket/runtime-path pollen/private/project pollen/render racket/file)
|
|
|
|
(define-runtime-path pathup-one "data/pathup/subdir/test-pathup-one.html.pm")
|
|
(define-runtime-path dr-top "data/pathup/pollen.rkt")
|
|
(define-runtime-path pathup-two "data/pathup/subdir/subdir/test-pathup-two.html.pm")
|
|
(define-runtime-path dr-sub "data/pathup/subdir/subdir/pollen.rkt")
|
|
(define-runtime-path template "data/pathup/subdir/template.html")
|
|
|
|
(define-runtime-path cache-dir "data/pathup/subdir/compiled")
|
|
(define-runtime-path other-cache-dir "data/pathup/subdir/subdir/compiled")
|
|
(define-runtime-path up-pollen "pollen.rkt")
|
|
(define-runtime-path test-pathup.rkt "test-pathup.rkt")
|
|
|
|
(check-equal? (get-directory-require-files test-pathup.rkt) (list up-pollen))
|
|
(check-equal? (get-directory-require-files pathup-one) (list dr-top))
|
|
(check-equal? (get-directory-require-files pathup-two) (list dr-sub))
|
|
(check-equal? (get-template-for pathup-one) template)
|
|
(check-equal? (get-template-for pathup-two) template)
|
|
|
|
(when (directory-exists? cache-dir)
|
|
(delete-directory/files cache-dir))
|
|
|
|
(when (directory-exists? other-cache-dir)
|
|
(delete-directory/files other-cache-dir)) |