hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-06 01:41:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add :silent option to lackup and use it in lack.test.

Browse source
This commit is contained in:
Eitaro Fukamachi 2015-03-07 04:22:23 +09:00
parent 3751d2ceda
commit bdca831e68
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/lack.lisp
View file

@ -17,10 +17,12 @@
&key (server :hunchentoot) &key (server :hunchentoot)
(port 5000) (port 5000)
(debug t) (debug t)
silent
(use-thread #+thread-support t #-thread-support nil) (use-thread #+thread-support t #-thread-support nil)
&allow-other-keys) &allow-other-keys)
(flet ((start-message () (flet ((start-message ()
(format t "~&~:(~A~) server is started.~%Listening on localhost:~A.~%" server port))) (unless silent
(format t "~&~:(~A~) server is started.~%Listening on localhost:~A.~%" server port))))
(unless use-thread (unless use-thread
(start-message)) (start-message))
(prog1 (prog1
@ -28,5 +30,5 @@
:port port :port port
:debug debug :debug debug
:use-thread use-thread :use-thread use-thread
(delete-from-plist args :server :port :debug :use-thread)) (delete-from-plist args :server :port :debug :silent :use-thread))
(start-message)))) (start-message))))

1
src/test.lisp
View file

@ -42,6 +42,7 @@
(let ((acceptor (lackup app (let ((acceptor (lackup app
:server *lack-test-handler* :server *lack-test-handler*
:use-thread t :use-thread t
:silent t
:port *lack-test-port* :port *lack-test-port*
:debug *enable-debug-p*))) :debug *enable-debug-p*)))
(subtest desc (subtest desc