;;;; cl-scopes/test/test-confi

;;;; 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 *override-keys* '(USER, PASSWORD))

(defclass config (config:base))

(defun run ()
  (let ((t:*test-suite* (t:test-suite "config")))