Overview
| Comment: | Loop back test passes for ulex |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.001 |
| Files: | files | file ages | folders |
| SHA1: |
be9a24b8c3e5804542790857b3ead27e |
| User & Date: | matt on 2021-12-23 18:49:33 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-12-23
| ||
| 19:36 | Fixed typo, added a bit to the test check-in: a0652877c1 user: matt tags: v2.001 | |
| 18:49 | Loop back test passes for ulex check-in: be9a24b8c3 user: matt tags: v2.001 | |
| 18:46 | Loop back test passes for ulex check-in: bd0896dbd6 user: matt tags: v2.001 | |
Changes
Modified ulex/ulex.scm from [0281515147] to [70f5180be8].
| ︙ | ︙ | |||
377 378 379 380 381 382 383 | ;; (map ip->string (vector->list ;; (hostinfo-addresses ;; (host-information (current-hostname)))))) ) | | > | | > > > | | 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 | ;; (map ip->string (vector->list ;; (hostinfo-addresses ;; (host-information (current-hostname)))))) ) (import ulex trace big-chicken srfi-18 test) (trace-call-sites #t) (trace ;; ulex-handler ;; send ) (define (handler-proc . data) (print "handler-proc, got: "data) `(data ,data)) (define uconn (run-listener handler-proc)) (pp-uconn uconn) ;; super basic loop back test (define res #f) (define th1 (make-thread (lambda () (test #f 'ack (send-receive uconn "zeus:4242" 'ping '()))) (set! res (send-receive uconn "zeus:4242" 'ping '())))) (thread-start! th1) (thread-join! th1) (thread-sleep! 1) (print "All done") (print "Received "res) |