 
 (deftest pkcs7-padding
   (let [data (byte-array 10)]
-    (bytes/fill data 2)
+    (bytes/fill! data 2)
     (padding/pad! data 6)
 
     (is (padding/padded? data))


(deftest tbc-padding
  (let [data (byte-array 10)]
    (bytes/fill data 2)
    (padding/pad! data 6 :tbc)

    (is (padding/padded? data :tbc))


(deftest zerobyte-padding
  (let [data (byte-array 10)]
    (bytes/fill! data 2)
    (padding/pad! data 6 :zerobyte)

    (is (padding/padded? data :zerobyte))
