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.
11 lines
589 B
Racket
11 lines
589 B
Racket
9 years ago
|
#lang at-exp racket/base
|
||
|
|
(require rackunit racket/runtime-path pollen/project)
|
||
|
|
|
||
|
|
(define-runtime-path pathup-one "data/pathup/subdir/test-pathup-one.html.pm")
|
||
|
|
(define-runtime-path dr-top "data/pathup/directory-require.rkt")
|
||
|
|
(define-runtime-path pathup-two "data/pathup/subdir/subdir/test-pathup-two.html.pm")
|
||
|
|
(define-runtime-path dr-sub "data/pathup/subdir/subdir/directory-require.rkt")
|
||
|
|
|
||
|
|
(check-false (get-directory-require-files "test-pathup.rkt"))
|
||
|
|
(check-equal? (get-directory-require-files pathup-one) (list dr-top))
|
||
|
|
(check-equal? (get-directory-require-files pathup-two) (list dr-sub))
|