       bytes-filled => 10
       (every? (complement zero?) arr) => truthy)))
 
-(fact "partition-stream test. These are sort of crappy tests, but they
-do show that we have a sequence of byte arrays being generated."
+(fact "Partition-stream test. These are sort of crappy tests, but they
+  do show that we have a sequence of byte arrays being generated."
   (with-open [txt (input-stream test-txt)]
     (let [result (partition-stream 10 txt)]
       (count (first result)) => 10

(fact float-bytes => 4)

(fact
  "Check average of vector.
   Casting as float to generalize for another vector as necessary. Otherwise average will return fractions."
  (float (average [1 2 3.])) => 2.0)

(fact

  (weighted-mean 8 3 1 1) => 6.25
  (weighted-mean 8 0 1 1) => 1.0

  ;; Negative weights aren't acceptable.
  (weighted-mean 8 -1 1 1) => (throws AssertionError)

  ;; Values and weights must come in pairs.
  (weighted-mean 8 1 1) => (throws AssertionError))

(fact "trim-seq tests."
