diff --git a/test/hello.scm b/test/hello.scm new file mode 100644 index 0000000..8d73868 --- /dev/null +++ b/test/hello.scm @@ -0,0 +1,12 @@ +(import chicken scheme) +(use spiffy websockets) + +(handle-not-found + (lambda (path) + (when (string= path "/web-socket") + (with-websocket + (lambda () + (send-message (string-append "you said: " (receive-message)))))))) + +(root-path ".") +(start-server port: 8080) diff --git a/test/index.html b/test/index.html new file mode 100644 index 0000000..914f8b0 --- /dev/null +++ b/test/index.html @@ -0,0 +1,13 @@ + + + + +