Megatest

;; (map ip->string (vector->list 
;; 		   (hostinfo-addresses
;; 		    (host-information (current-hostname))))))


)

(import ulex trace big-chicken srfi-18)
(import ulex trace big-chicken srfi-18 test)
(trace-call-sites #t)
(trace
(trace ulex-handler
       send)
 ;; 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 '())))))
			   (set! res (send-receive uconn "zeus:4242" 'ping '()))))
(thread-start! th1)
(thread-join! th1)
		
(thread-sleep! 1)
(print "All done")
(print "Received "res)