Changeset 15963 in project


Ignore:
Timestamp:
09/19/09 04:59:26 (10 years ago)
Author:
Kon Lovett
Message:

Save.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/remote-mailbox/trunk/tests/remote-mailbox-test.scm

    r15958 r15963  
    2222(define (server)
    2323  (print "* Server - Receiving messages until 'quit")
    24         (let loop ((msg (mailbox-receive! (local-mailbox 'foo "test: "))))
    25     (print "Received " msg)
    26     (if (eq? 'quit msg) (exit 0)
    27         (loop (mailbox-receive! (local-mailbox 'foo "test: "))) ) )
    28         (thread-join! (local-mailbox 'default-remote-mailbox-server-thread)) )
     24  (let ((rmbs (local-mailbox 'default-remote-mailbox-server RCV-NAM)))
     25    (print "remote-mailbox-server-name = " (remote-mailbox-server-name rmbs))
     26    (print "remote-mailbox-server-listener = " (remote-mailbox-server-listener rmbs)) )
     27  (let ((thrd (local-mailbox 'default-remote-mailbox-server-thread)))
     28    (print "server thread = " thrd)
     29    (let loop ((msg (mailbox-receive! (local-mailbox 'foo))))
     30      (print "Received " msg)
     31      (unless (eq? 'quit msg)
     32        (loop (mailbox-receive! (local-mailbox 'foo))) ) )
     33          (thread-join! thrd) ) )
    2934
    3035(define operation
     
    4247      #;(print "Running Server: " cmd)
    4348      (process-run cmd `("server"))
    44       (sleep 1) ; This might be needed
     49      (sleep 1) ;might be needed
    4550      #;(print "Running Client: " cmd)
    4651      (process-execute cmd `("client")) ) )
Note: See TracChangeset for help on using the changeset viewer.