cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

web/server: also using context (sub-) class now

Browse source
This commit is contained in:
Helmut Merz 2024-06-21 15:58:20 +02:00
parent 5a4797416b
commit 9cf5155c4c
3 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/etc/config-web.lisp
View file

@ -6,7 +6,7 @@
(let ((cfg (core:add-config *config* :server (let ((cfg (core:add-config *config* :server
:class 'server:config :class 'server:config
:setup #'server:start :setup #'server:setup
:port "8899")))) :port "8899"))))
(let ((cfg (core:add-config *config* :client (let ((cfg (core:add-config *config* :client

9
test/test-web.lisp
View file

@ -20,17 +20,16 @@
(server:*listener* nil)) (server:*listener* nil))
(load (t:test-path "config-web" "etc")) (load (t:test-path "config-web" "etc"))
(core:setup-services *config*) (core:setup-services *config*)
(let ((cfg (cadr (config:children *config*)))) (test-server-config)
(test-server-config cfg))
(sleep 0.1) (sleep 0.1)
(test-client) (test-client)
(sleep 0.1) (sleep 0.1)
(server:stop) (server:stop)
(t:show-result))) (t:show-result)))
(t:deftest test-server-config (cfg) (t:deftest test-server-config ()
;(let ((cfg (core:config (core:find-service :server)))) (let ((cfg (core:config (core:find-service :server))))
(== (parse-integer (server:port cfg)) 8899)) (== (parse-integer (server:port cfg)) 8899)))
(t:deftest test-client () (t:deftest test-client ()
(let ((cfg (core:config (core:find-service :client)))) (let ((cfg (core:config (core:find-service :client))))

11
web/server.lisp
View file

@ -5,7 +5,7 @@
(:local-nicknames (:config :scopes/config) (:local-nicknames (:config :scopes/config)
(:core :scopes/core)) (:core :scopes/core))
(:export #:config #:address #:port (:export #:config #:address #:port
#:*listener* #:start #:stop)) #:*listener* #:setup #:start #:stop))
(in-package :scopes/web/server) (in-package :scopes/web/server)
@ -30,3 +30,12 @@
(defun stop () (defun stop ()
(clack:stop *listener*)) (clack:stop *listener*))
;;;; context = service
(defclass context (core:context) ())
(defun setup (cfg)
(prog1
(make-instance 'context :config cfg :name (core:name cfg))
(start cfg)))