[Distributed Places] fix failing drdr tests
This commit is contained in:
parent
6b48d34867
commit
04839b39f8
|
@ -1409,7 +1409,7 @@
|
|||
#:thunk [thunk #f])
|
||||
(define-values (node pl)
|
||||
(spawn-node-supervise-place-at/exec host
|
||||
(mk-place-creation-addr (->writeable-module-path place-path) place-func thunk)
|
||||
(mk-place-creation-addr (->writeable-module-path place-path) place-func #f thunk)
|
||||
#:listen-port listen-port
|
||||
#:initial-message initial-message
|
||||
#:racket-path racketpath
|
||||
|
@ -1427,7 +1427,7 @@
|
|||
#:named [named #f]
|
||||
#:thunk [thunk #f])
|
||||
(spawn-node-supervise-place-at/exec host
|
||||
(mk-place-creation-addr (->writeable-module-path place-path) place-func thunk)
|
||||
(mk-place-creation-addr (->writeable-module-path place-path) place-func #f thunk)
|
||||
#:listen-port listen-port
|
||||
#:initial-message initial-message
|
||||
#:racket-path racketpath
|
||||
|
|
|
@ -25,7 +25,7 @@
|
|||
|
||||
|
||||
(define (main)
|
||||
(define bank-node (spawn-node-with--place-at "localhost" #:listen-port 6344 bank-path 'make-bank))
|
||||
(define bank-node (spawn-node-with-place-at "localhost" #:listen-port 6344 bank-path 'make-bank))
|
||||
(define bank-place (send bank-node get-first-place))
|
||||
(message-router
|
||||
(spawn-place-worker-at 6341 "ONE")
|
||||
|
|
|
@ -15,6 +15,6 @@
|
|||
|
||||
(define (main)
|
||||
(message-router
|
||||
(spawn-node-with-place-thunk-at "localhost" #:listen-port 6345 (quote-module-name) 'wait-place-thunk #:restart-on-exit #t)
|
||||
(spawn-node-with-place-at "localhost" #:listen-port 6345 (quote-module-name) 'wait-place-thunk #:thunk #t #:restart-on-exit #t)
|
||||
(after-seconds 50
|
||||
(exit 0))))
|
||||
|
|
|
@ -15,5 +15,5 @@
|
|||
|
||||
(define (main)
|
||||
(message-router
|
||||
(spawn-node-with-place-thunk-at "localhost" #:listen-port 6345 (quote-module-name) 'wait-place-thunk
|
||||
#:restart-on-exit (restart-every 5 #:retry 3))))
|
||||
(spawn-node-with-place-at "localhost" #:listen-port 6345 (quote-module-name) 'wait-place-thunk
|
||||
#:thunk #t #:restart-on-exit (restart-every 5 #:retry 3))))
|
||||
|
|
|
@ -25,8 +25,8 @@
|
|||
ok?)))
|
||||
|
||||
(define remote-node (spawn-remote-racket-node "localhost" #:listen-port 6344))
|
||||
(define tuple-place (supervise-named-dynamic-place-at remote-node 'tuple-server tuple-path 'make-tuple-server))
|
||||
(define bank-place (supervise-dynamic-place-at remote-node bank-path 'make-bank))
|
||||
(define tuple-place (supervise-place-at remote-node #:named 'tuple-server tuple-path 'make-tuple-server))
|
||||
(define bank-place (supervise-place-at remote-node bank-path 'make-bank))
|
||||
|
||||
(message-router
|
||||
remote-node
|
||||
|
|
|
@ -15,11 +15,12 @@
|
|||
|
||||
(define (main)
|
||||
(message-router
|
||||
(spawn-node-with-place-thunk-at
|
||||
(spawn-node-with-place-at
|
||||
"localhost"
|
||||
#:listen-port 6345
|
||||
(quote-module-name)
|
||||
'wait-place-thunk
|
||||
#:thunk #t
|
||||
#:restart-on-exit (restart-every 5
|
||||
#:retry 3
|
||||
#:on-final-fail (lambda ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user