                        (e n (atake tn listen-result-ch) nil nil)
                        (let [connect-result-ch (achan tn)]
                          (aput tn connect-ch [:addr-a 1000 :addr-x connect-result-ch])
-                         (let [[client-send-ch client-recv-ch close-client-recv-ch] (atake tn connect-result-ch)]
+                         (let [[client-send-ch client-recv-ch close-client-recv-ch]
+                               (atake tn connect-result-ch)]
                            (and (e n (not (nil? client-send-ch)) true nil)
                                 (e n (not (nil? client-recv-ch)) true nil)
                                 (e n (not (nil? close-client-recv-ch)) true nil)
                                 (e n (atake tn connect-result-ch) nil nil)
-                                (let [[server-send-ch server-recv-ch close-server-recv-ch] (atake tn accept-ch)]
+                                (let [[server-send-ch server-recv-ch close-server-recv-ch]
+                                      (atake tn accept-ch)]
                                   (and (e n (not (nil? server-send-ch)) true nil)
                                        (e n (not (nil? server-recv-ch)) true nil)
                                        (e n (not (nil? close-server-recv-ch)) true nil)
                                        (do (aput tn client-send-ch [:hi-from-client])
                                            (and (e n (atake tn server-recv-ch) :hi-from-client nil)
                                                 (do (aput tn server-send-ch [:hi-from-server])
-                                                    (and (e n (atake tn client-recv-ch) :hi-from-server nil)
+                                                    (and (e n (atake tn client-recv-ch)
+                                                            :hi-from-server nil)
                                                          (do (aclose tn close-server-recv-ch)
                                                              (aclose tn close-client-recv-ch)
                                                              (aclose tn server-send-ch)

                                                             (e n (atake tn client-recv-ch) nil nil)
                                                             (aclose tn listen-ch)
                                                             (aclose tn connect-ch)
                                                             (e n (atake tn net) :done (atake tn net))))))))))))))))
           "pass"
           (str "FAIL: on test-net #" @n)))))


                              (do (aclose tn listen-ch)
                                  (aclose tn connect-ch)
                                  (e n (atake tn net) :done (atake tn net))))))))
              ; Try sending 1 msg between client and server and vice-versa.
              (let [listen-ch (achan tn)
                    connect-ch (achan tn)
                    net (make-net tn listen-ch connect-ch)
