Megatest

Check-in [e80ba42389]
Login
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: e80ba423899e7ddce6d07f7ea895cbc771233779
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
386

387
388
389
390
391
392
393
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)
(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
412
413
414



415
416
417
418
419
420
421
422
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 "zeus:4242" 'calc "(+ 5 5)"))
			   (set! res (send-receive uconn "zeus:4242" 'ping '()))
			   (test #f 'pong (send-receive uconn "zeus:4242" 'ping '()))
			   (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)