changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/ffi/blake3/tests.lisp

changeset 698: 96958d3eb5b0
parent: c2f4e7ee921b
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; k/tests.lisp --- k tests
     2 
     3 ;;; Code:
     4 (defpackage :blake3/tests
     5   (:use :cl :std :rt :blake3 :sb-ext :sb-alien))
     6 
     7 (in-package :blake3/tests)
     8 
     9 (defsuite :blake3)
    10 (in-suite :blake3)
    11 
    12 (load-blake3)
    13 
    14 (deftest version ()
    15   (is (stringp (blake3-version))))
    16 
    17 (deftest common ()
    18   (with-alien ((h blake3-hasher)
    19                (o (* (unsigned 8)))
    20                (olen size-t))
    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))))
    25 
    26 (deftest less-common ()
    27   (with-alien ((h blake3-hasher)
    28                (k (array unsigned-char 32))
    29                (ctx (array 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)))))
    35