       (is (= (range s/noncebytes) (take s/noncebytes c1) (take s/noncebytes c2))))))
 
 (deftest synthetic-nonce-test
-  (is (= (buflen @#'ms/synthetic-personal)
+  (is (= (bb/buflen @#'ms/synthetic-personal)
          g/blake2b-personalbytes))
   (let [k1 (byte-array (reverse (range 32)))
         k2 (byte-array (reverse (range 32 64)))

            [caesium.randombytes :as r]
            [caesium.util :as u]
            [caesium.crypto.generichash :as g]
            [caesium.byte-bufs :refer [buflen]]))

(deftest xor-test
  (let [one (byte-array [1 0 1])

        m1 (byte-array (range 10))
        m2 (byte-array (range 10 20))]
    (is (= s/noncebytes
           (bb/buflen (sn m1 k1))
           (bb/buflen (sn m2 k1))
           (bb/buflen (sn m1 k2))
           (bb/buflen (sn m2 k2))))
    (is (u/array-eq (sn m1 k1) (sn m1 k1)))
    (is (not (u/array-eq (sn m1 k1) (sn m2 k1))))
    (is (not (u/array-eq (sn m1 k1) (sn m1 k2))))))
