diff --git a/test/test-config.lisp b/test/test-config.lisp new file mode 100644 index 0000000..01b1132 --- /dev/null +++ b/test/test-config.lisp @@ -0,0 +1,20 @@ +;;;; 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"))) +