;;;; cl-scopes/test/test-config

;;;; Tests for the scopes/config functionality.

(defpackage :scopes/test-config
  (:use :common-lisp)
  (:local-nicknames (:config :scopes/config) 
                    (:t :scopes/testing))
  (:export #:run)
  (:import-from :scopes/testing #:deftest #:==))

(in-package :scopes/test-config)

(defvar *config* nil)

(defclass test-config (config:base) 
  ((config:override-keys :initform '(user password))))

(defun run ()
  (let ((t:*test-suite* (t:test-suite "config")))
    (setf *config* (make-instance 'test-config))
    (test-make-path)
    (test-env-override)
    (t:show-result)))

(t:deftest test-make-path ()
  (format t "~%relative-path: ~a" (config:relative-path "config" "app" "etc"))
  (format t "~%system-path: ~a" (config:system-path :scopes "config" "test"))
  (format t "~%test-path: ~a" (config:test-path :scopes "config"))
  (format t "~%runtime-path: ~a" (config:runtime-path "config" "app" "etc")))

(t:deftest test-env-override ()
  (format t "~%override-keys: ~a" (config:override-keys *config*)))