                                  ;; TODO: don't rely on that.
                                  ;; It really would be more efficient for the other
                                  ;; side to batch up the ACK and this response
-                                 (is (b-t/bytes= incoming (vec (range chzbrgr-length))))
+                                 (is (b-t/bytes= incoming
+                                                 (byte-array (vec (range chzbrgr-length)))))
                                  ::kthxbai)
                              4 (do
                                  (is (= incoming ::kk))

                                           "Buffered bytes from child"
                                           "Giving up on sending message from child"
                                           {}))
                       (<= 5 n)))])
      (log/error prelog "No bytes decoded. Shouldn't have gotten here"))))

(defn mock-client-child

                   incoming ", a " (class incoming)))
    (if incoming
      (let [result (dfrd/future
                     (let [prelog2 (utils/pre-log "Handshake Client: child processor")
                           {n ::count} client-state
                           next-message
                           (condp = n
                             0 (do
