mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 10:40:45 -08:00
34 lines
1.1 KiB
Common Lisp
34 lines
1.1 KiB
Common Lisp
(defpackage #:test-clog-connection
|
|
(:use #:cl)
|
|
(:export test on-connect))
|
|
|
|
(in-package :test-clog-connection)
|
|
|
|
(defun on-connect (id)
|
|
(format t "Connection ~A is valid? ~A~%" id (clog-connection:validp id))
|
|
(dotimes (n 10)
|
|
(clog-connection:put id "<b>connection-write</b>")
|
|
(clog-connection:put-line id "<i>connection-writeln</i>")
|
|
(sleep .2))
|
|
(clog-connection:put id "<br><b>Query Result : </b>")
|
|
(clog-connection:put-line id (clog-connection:query id "navigator.appVersion"))
|
|
(clog-connection:new-line id)
|
|
(clog-connection:put id "<hr>simulate network interupt")
|
|
(clog-connection:cclose id)
|
|
(sleep .2)
|
|
(clog-connection:put id "<br><b>reconnected</b>")
|
|
(sleep .2)
|
|
(clog-connection:put id "<br><b>shutting down connection</b>")
|
|
(sleep .2)
|
|
;; It is generally uneccessary to shutdown the connection
|
|
(clog-connection:shutdown id))
|
|
|
|
(defun test ()
|
|
(print "Init connection")
|
|
(clog-connection:initialize #'on-connect
|
|
:static-root (merge-pathnames "./static-files/"
|
|
(asdf:system-source-directory :clog))
|
|
:boot-file "/debug.html")
|
|
(print "Open browser")
|
|
(clog:open-browser)
|
|
)
|