websocket: Test failure interleaved frames from 2 separate messages.

[8sync.git] / demos / websocket / 8s-server.scm

diff --git a/demos/websocket/8s-server.scm b/demos/websocket/8s-server.scm
index c4b638f6e375baf05126200caf802437fb828b64..5ea883494a29fab168d47c3fe4754b4128749046 100755 (executable)
--- a/demos/websocket/8s-server.scm
+++ b/demos/websocket/8s-server.scm
@@ -42,7 +42,7 @@
 
 (define (main . args)
   (let* ((hive (make-hive))
-         (sleeper (bootstrap-actor hive <sleeper>))
+         ;; (sleeper (bootstrap-actor hive <sleeper>))
          (server (bootstrap-actor
                   hive <websocket-server>
                   #:port %server-port
@@ -55,7 +55,11 @@
                   #:on-ws-message (lambda (ws msg)
                                     (format (current-error-port) "on-message: ~s: ~s\n" ws msg))
                   #:on-ws-open (lambda (ws)
-                                 (format (current-error-port) "on-open: ~s\n" ws)))))
+                                 (format (current-error-port) "on-open: ~s\n" ws)
+                                 (format (current-error-port) "sending: AAA...\n")
+                                (<- (actor-id ws) 'send (make-string (* 1024 1024) #\A))
+                                 (format (current-error-port) "sending: BBB...\n")
+                                (<- (actor-id ws) 'send (make-string (* 1024 1024) #\B))))))
     (format (current-error-port) "listening: ~s\n" %server-port)
     (run-hive hive '())))