15 lines
627 B
Racket
15 lines
627 B
Racket
#lang racket/base
|
|
(require setup/path-to-relative
|
|
rackunit
|
|
setup/dirs
|
|
racket/path)
|
|
|
|
(check-equal? "<collects>/"
|
|
(path->relative-string/library (find-collects-dir)))
|
|
(check-equal? "<collects>/racket"
|
|
(path->relative-string/library (path-only (collection-file-path "base.rkt" "racket"))))
|
|
(check-equal? "<collects>/racket/base.rkt"
|
|
(path->relative-string/library (collection-file-path "base.rkt" "racket")))
|
|
(check-equal? "<collects>/racket/base.rkt"
|
|
(path->relative-string/library (normal-case-path (collection-file-path "base.rkt" "racket"))))
|