repair a test

pull/131/head
Matthew Butterick 8 years ago
parent 186111b5ca
commit 35046c8312

@ -1 +1 @@
1476227076 1476228155

@ -10,8 +10,9 @@
(define-runtime-path cache-dir "data/pathup/subdir/pollen-cache") (define-runtime-path cache-dir "data/pathup/subdir/pollen-cache")
(define-runtime-path other-cache-dir "data/pathup/subdir/subdir/pollen-cache") (define-runtime-path other-cache-dir "data/pathup/subdir/subdir/pollen-cache")
(define-runtime-path up-pollen "pollen.rkt") (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 test-pathup.rkt) (list up-pollen))
(check-equal? (get-directory-require-files pathup-one) (list dr-top)) (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-directory-require-files pathup-two) (list dr-sub))
(check-equal? (get-template-for pathup-one) template) (check-equal? (get-template-for pathup-one) template)

Loading…
Cancel
Save