start with config - first step: show usage in test
This commit is contained in:
parent
74c87216e4
commit
ed3ce068c6
1 changed files with 20 additions and 0 deletions
20
test/test-config.lisp
Normal file
20
test/test-config.lisp
Normal 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")))
|
||||
|
Loading…
Add table
Reference in a new issue