Adding hello example/test.

10 years ago · 91396e71e0
parent 29561c4b71
commit 91396e71e0
2 changed files with 25 additions and 0 deletions
--- a/test/hello.scm
+++ 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)
--- a/test/index.html
+++ b/test/index.html
@ -0,0 +1,13 @@
 <html>
  <body>
    <script type="text/javascript">
      var ws = new WebSocket("ws://localhost:8080/web-socket");
      ws.onmessage = function(evt) {
        alert(evt.data);
      };
      ws.onopen = function() {
        ws.send('Hello!');
      }
    </script>
  </body>
 </html>