From ed3ce068c611e9036df1df70ef8cd7ec4aa57a34 Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Sat, 1 Jun 2024 22:24:17 +0200 Subject: [PATCH] start with config - first step: show usage in test --- test/test-config.lisp | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 test/test-config.lisp 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"))) +