changelog shortlog graph tags branches changeset files revisions annotate raw help

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

changeset 685: ebe3315b7add
parent: 91a382b59e5c
child: c2f4e7ee921b
author: Richard Westhaver <ellis@rwest.io>
date: Sun, 29 Sep 2024 22:44:52 -0400
permissions: -rw-r--r--
description: evdev/kbd fully operational, rustls and blake3 cleanups 
     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 hasher ()
    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))))