Mercurial > core / lisp/ffi/blake3/tests.lisp
changeset 687: |
c2f4e7ee921b |
parent: |
ebe3315b7add
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Mon, 30 Sep 2024 22:27:12 -0400 |
permissions: |
-rw-r--r-- |
description: |
ffi |
1 ;;; k/tests.lisp --- k tests 4 (defpackage :blake3/tests 5 (:use :cl :std :rt :blake3 :sb-ext :sb-alien)) 7 (in-package :blake3/tests) 15 (is (stringp (blake3-version)))) 18 (with-alien ((h blake3-hasher) 21 (blake3-hasher-init (addr h)) 22 (blake3-hasher-update (addr h) nil 0) 23 (blake3-hasher-finalize (addr h) o olen) 24 (blake3-hasher-reset (addr h)))) 26 (deftest less-common () 27 (with-alien ((h blake3-hasher) 28 (k (array unsigned-char 32)) 30 (out (array unsigned-char 32))) 31 (blake3-hasher-init-keyed (addr h) k) 32 (blake3-hasher-init-derive-key-raw (addr h) (cast ctx (* t)) 32) 33 (blake3-hasher-finalize-seek (addr h) 2 (cast out (* unsigned-char)) 32) 34 (is (null (blake3-hasher-finalize (addr h) (cast out (* unsigned-char)) 32)))))