         child-message-counter (atom 0)
         strm-address (atom 0)
         child-cb (fn [_]
-                   (throw (RuntimeException. "This should never get called")))
+                   ;; This is for messages from elsewhere to the child.
+                   ;; This test is all about the child spewing "lots" of data
+                   ;; TODO: Honestly, need a test that really does just start off by
+                   ;; sending megabytes (or gigabytes) of data as soon as the connection
+                   ;; is warmed up.
+                   ;; Library should be robust enough to handle that failure.
+                   (is false "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.

  (let [start-time (System/nanoTime)
        packet-count 9  ; trying to make life interesting
        response (promise)

                                   (update :buffer conj (vec incoming)))))
                      ;; I would like to get 8 callbacks here:
                      ;; 1 for each kilobyte of message the child tries to send.
                      (when (= packet-count (:count @parent-state))
                        (log/info "Received all expected packets")
                        (deliver response (:buffer @parent-state)))))
