Overview
| Comment: | get host name automatically in test |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.001 | Uses-nng-nanomsg |
| Files: | files | file ages | folders |
| SHA1: |
e80ba423899e7ddce6d07f7ea895cbc7 |
| User & Date: | matt on 2021-12-23 20:16:28 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-12-26
| ||
| 20:14 | Attempt to switch from nng to ulex check-in: 6c52169286 user: matt tags: v2.0001 | |
|
2021-12-23
| ||
| 20:16 | get host name automatically in test Leaf check-in: e80ba42389 user: matt tags: v2.001, Uses-nng-nanomsg | |
| 19:36 | Fixed typo, added a bit to the test check-in: a0652877c1 user: matt tags: v2.001 | |
Changes
Modified ulex/ulex.scm from [148fba536b] to [88c5ce4192].
| ︙ | ︙ | |||
379 380 381 382 383 384 385 | ;; (map ip->string (vector->list ;; (hostinfo-addresses ;; (host-information (current-hostname)))))) ) | | | 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 | ;; (map ip->string (vector->list ;; (hostinfo-addresses ;; (host-information (current-hostname)))))) ) (import ulex trace big-chicken srfi-18 test matchable system-information) (trace-call-sites #t) (trace ;; ulex-handler ;; send ;; add-to-work-queue ) |
| ︙ | ︙ | |||
404 405 406 407 408 409 410 411 | (define uconn (run-listener handler-proc)) (pp-uconn uconn) ;; super basic loop back test (define res #f) (define th1 (make-thread (lambda () | > | | | | 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 | (define uconn (run-listener handler-proc)) (pp-uconn uconn) ;; super basic loop back test (define res #f) (define targhost (conc (get-host-name)":"4242)) (define th1 (make-thread (lambda () (test #f 10 (send-receive uconn targhost 'calc "(+ 5 5)")) (set! res (send-receive uconn targhost 'ping '())) (test #f 'pong (send-receive uconn targhost 'ping '())) ))) (thread-start! th1) (thread-join! th1) (print "All done") (print "Received "res) |