1.1--- a/lisp/ffi/blake3/tests.lisp	Sun Sep 29 23:43:03 2024 -0400
     1.2+++ b/lisp/ffi/blake3/tests.lisp	Mon Sep 30 22:27:12 2024 -0400
     1.3@@ -14,7 +14,7 @@
     1.4 (deftest version ()
     1.5   (is (stringp (blake3-version))))
     1.6 
     1.7-(deftest hasher ()
     1.8+(deftest common ()
     1.9   (with-alien ((h blake3-hasher)
    1.10                (o (* (unsigned 8)))
    1.11                (olen size-t))
    1.12@@ -22,3 +22,14 @@
    1.13     (blake3-hasher-update (addr h) nil 0)
    1.14     (blake3-hasher-finalize (addr h) o olen)
    1.15     (blake3-hasher-reset (addr h))))
    1.16+
    1.17+(deftest less-common ()
    1.18+  (with-alien ((h blake3-hasher)
    1.19+               (k (array unsigned-char 32))
    1.20+               (ctx (array char 32))
    1.21+               (out (array unsigned-char 32)))
    1.22+    (blake3-hasher-init-keyed (addr h) k)
    1.23+    (blake3-hasher-init-derive-key-raw (addr h) (cast ctx (* t)) 32)
    1.24+    (blake3-hasher-finalize-seek (addr h) 2 (cast out (* unsigned-char)) 32)
    1.25+    (is (null (blake3-hasher-finalize (addr h) (cast out (* unsigned-char)) 32)))))
    1.26+