 
   (let [c1 (ms/secretbox-rnd st/ptext st/secret-key)
         c2 (ms/secretbox-rnd st/ptext st/secret-key)]
-    (is (not (u/array-eq c1 c2)))
+    (is (not (bb/bytes= c1 c2)))
     (is (not= (take s/noncebytes c1) (take s/noncebytes c2))))
 
   (with-redefs [ms/random-nonce! constant-nonce]
     (let [c1 (ms/secretbox-rnd st/ptext st/secret-key)
           c2 (ms/secretbox-rnd st/ptext st/secret-key)]
-      (is (u/array-eq c1 c2))
+      (is (bb/bytes= c1 c2))
       (is (= (range s/noncebytes) (take s/noncebytes c1) (take s/noncebytes c2))))))
 
 (deftest synthetic-nonce-test

       out
       (bb/->indirect-byte-buf st/secret-key)
       (bb/->indirect-byte-buf ctext))
      (is (u/array-eq st/ptext out)))

    (let [out (bb/alloc ptextlen)
          forgery (bb/->indirect-byte-buf (r/randombytes (bb/buflen out)))]

            (bb/->indirect-byte-buf st/secret-key)
            forgery))))

    (is (bb/bytes= st/ptext (ms/decrypt st/secret-key ctext)))

    (let [forgery (r/randombytes (bb/buflen ctext))]
      (is (thrown-with-msg?
