#lang racket/base
(provide ->relative ->absolute)
(require racket/list racket/path)
(module+ test (require rackunit))

;; PathString -> Path
(define (->relative path)
  (build-path
   (find-relative-path
    (current-directory)
    path)))

(module+ test
  (parameterize ([current-directory (build-path "/test")])
    (check-equal? (->relative "a")
                  (build-path "a"))
    (check-equal? (->relative "/test/a/b")
                  (build-path "a" "b"))))

(define (->absolute path)
  (if (absolute-path? path)
      (path->string (simplify-path path))
      (path->string (simplify-path (build-path (current-directory) path)))))
(module+ test
  (parameterize ([current-directory (build-path "/")])
    (check-equal? (->absolute "a") "/a")
    (check-equal? (->absolute "/a") "/a")
    (check-equal? (->absolute (build-path "a")) "/a")
    (check-equal? (->absolute (build-path "/a")) "/a")))