start with config - first step: show usage in test

This commit is contained in:
Helmut Merz 2024-06-01 22:24:17 +02:00
parent 74c87216e4
commit ed3ce068c6

20
test/test-config.lisp Normal file
View file

@ -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")))