23 lines
604 B
Common Lisp
23 lines
604 B
Common Lisp
;;;; cl-scopes/test/test-config
|
|
|
|
;;;; 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)
|
|
|
|
(defclass config (config:base)
|
|
((override-keys :initform '(user password) :reader override-keys
|
|
:allocation :class)))
|
|
|
|
(defun run ()
|
|
(let ((t:*test-suite* (t:test-suite "config")))
|
|
(test-make-path)
|
|
(t:show-result)))
|
|
|
|
(t:deftest test-make-path ())
|