                                    (update :buffer conj (vec incoming)))))
                       ;; I would like to get 8 callbacks here:
                       ;; 1 for each kilobyte of message the child tries to send.
-                      ;; Actually, the initial message bytes are
-                      ;; only getting 512 bytes, which seems like an odd issue.
-                      ;; But, more importantly, I don't really have an
-                      ;; i/o loop at this point. So the follow-up
-                      ;; messages will never arrive.
                       (when (= packet-count (:count @parent-state))
                         (log/info "Received all expected packets")
                         (deliver response (:buffer @parent-state)))))

        child-message-counter (atom 0)
        strm-address (atom 0)
        child-cb (fn [_]
                   (throw (RuntimeException. "This should never get called")))
        initialized (message/initial-state "(test) Child w/ Big Outbound" parent-cb child-cb true)
        state (message/start! initialized)]
    (reset! state-agent-atom state)

  ;; Flip-side of echo: I want to see what happens
  ;; when the child sends bytes that don't fit into
  ;; a single message packet.
  (log/info "Start testing writing big chunk of outbound data")
  (let [start-time (System/nanoTime)
        packet-count 9  ; trying to make life interesting
        response (promise)
