diff --git a/syndicate/broker/tf.rkt b/syndicate/broker/tf.rkt index bf17da7..93dd5c0 100644 --- a/syndicate/broker/tf.rkt +++ b/syndicate/broker/tf.rkt @@ -140,6 +140,8 @@ (field [pending1 '()] [pending2 '()]) + (stop-when (message (terminate (list 'relay node1 node2)))) + (during (router-connection node1 node1-connid) (on (message (router-outbound node1-connid $body)) (pending1 (cons body (pending1))))) @@ -181,6 +183,9 @@ (pause 1 (send! (change-presence 'c1 #f))) (pause 0.2 (send! (change-presence 'c1 #t))) + (pause 0.4 (send! (terminate (list 'relay 'n1 'n2)))) + (pause 0.4 (relay 'n1 'n2)) + (pause 0.2 (send! (terminate 'c1))) (pause 0.2 (send! (terminate 'c3))) (pause 0.2 (send! (terminate 'c2)))