18 lines
470 B
Common Lisp
18 lines
470 B
Common Lisp
;;;; cl-scopes/test-web - test web (client and server) functionality
|
|
|
|
(defpackage :scopes/test-web
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:config :scopes/config)
|
|
(:server :scopes/web/server)
|
|
(:t :scopes/testing))
|
|
(:export #:run)
|
|
(:import-from :scopes/testing #:deftest #:==))
|
|
|
|
(in-package :scopes/test-web)
|
|
|
|
(defvar *config* nil)
|
|
|
|
(defun run ()
|
|
(let ((*config* nil)
|
|
(t:*test-suite* (t:test-suite "config")))))
|
|
|