Changeset 34486 in project


Ignore:
Timestamp:
09/01/17 23:54:03 (3 months ago)
Author:
kon
Message:

"fix" test

Location:
release/4/remote-mailbox/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/remote-mailbox/trunk/remote-mailbox.setup

    r34481 r34486  
    55(verify-extension-name "remote-mailbox")
    66
    7 (setup-shared-extension-module 'remote-mailbox-common (extension-version "2.1.1")
     7(setup-shared-extension-module 'remote-mailbox-common (extension-version "2.1.2")
    88  #:compile-options '(
    99    -scrutinize
     
    1212    -no-procedure-checks))
    1313
    14 (setup-shared-extension-module 'remote-mailbox-packet (extension-version "2.1.1")
     14(setup-shared-extension-module 'remote-mailbox-packet (extension-version "2.1.2")
    1515  #:compile-options '(
    1616    -scrutinize
     
    1919    -no-procedure-checks))
    2020
    21 (setup-shared-extension-module 'remote-mailbox-adapter (extension-version "2.1.1")
     21(setup-shared-extension-module 'remote-mailbox-adapter (extension-version "2.1.2")
    2222  #:compile-options '(
    2323    -scrutinize
     
    2626    -no-procedure-checks))
    2727
    28 (setup-shared-extension-module 'remote-mailbox-client (extension-version "2.1.1")
     28(setup-shared-extension-module 'remote-mailbox-client (extension-version "2.1.2")
    2929  #:compile-options '(
    3030    -scrutinize
     
    3333    -no-procedure-checks))
    3434
    35 (setup-shared-extension-module 'remote-mailbox-server (extension-version "2.1.1")
     35(setup-shared-extension-module 'remote-mailbox-server (extension-version "2.1.2")
    3636  #:compile-options '(
    3737    -scrutinize
     
    4040    -no-procedure-checks))
    4141
    42 (install-extension-tag 'remote-mailbox (extension-version "2.1.1"))
     42(install-extension-tag 'remote-mailbox (extension-version "2.1.2"))
  • release/4/remote-mailbox/trunk/tests/remote-mailbox-test.scm

    r33908 r34486  
    2424        (remote-mailbox-send! rmb msg) )
    2525                        ; Semblance of computation
    26                         (thread-sleep! 1) #;(repeat 10000) )
     26                        #;(repeat 10000)
     27                        (thread-sleep! 1) )
    2728                #;(close-output-port (serializer-output))
    28                 (begin (print "Send quit") (remote-mailbox-send! rmb 'quit)) ) )
     29                (begin
     30                  (print "Send quit")
     31                  (remote-mailbox-send! rmb 'quit)) ) )
    2932
    3033(define (receiver)
    31 
     34  ;
    3235  (define (server)
    3336    (let ((rmbs (make-remote-mailbox-server #:debug RCV-NAM)))
    3437      (values rmbs (remote-mailbox-server-start! rmbs)) ) )
    35 
     38  ;
    3639  (let-values (((rmbs thrd) (server)))
    37     (print "* Receiving messages until 'quit")
    38     (let loop ()
    39       (let ((msg (mailbox-receive! (local-mailbox/server rmbs MB-NAM))))
    40         (printf "Received ~S from ~S~%" msg MB-NAM)
    41         (unless (eq? 'quit msg) (loop) )
    42         #;(loop) ) )
    43     #;(thread-terminate! thrd)
    44     #;(handle-exceptions ex
    45         (print "Performed \"hard\" termination of server thread")
    46       (thread-join! thrd) )
    47     (print "stopping...") (remote-mailbox-server-stop! rmbs) ) )
     40    ;
     41    (handle-exceptions
     42      ;as
     43      ex
     44      ;with
     45      (begin
     46        (print "stopping test...")
     47        (remote-mailbox-server-stop! rmbs) )
     48      ;in
     49      (print "* Receiving messages until 'quit")
     50      (let receive-loop ()
     51        (let ((msg (mailbox-receive! (local-mailbox/server rmbs MB-NAM))))
     52          (printf "Received ~S from ~S~%" msg MB-NAM)
     53          (unless (eq? 'quit msg)
     54            (receive-loop) ) ) )
     55      ;
     56      (print "stopping test...")
     57      (remote-mailbox-server-stop! rmbs)
     58      (thread-join! thrd) ) ) )
    4859
    4960#;
Note: See TracChangeset for help on using the changeset viewer.