1.1--- a/lisp/ffi/magick/tests.lisp	Sun Jun 02 22:34:29 2024 -0400
     1.2+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.3@@ -1,26 +0,0 @@
     1.4-;;; k/tests.lisp --- k tests
     1.5-
     1.6-;;; Code:
     1.7-(defpackage :blake3/tests
     1.8-  (:use :cl :std :rt :blake3 :sb-ext :sb-alien))
     1.9-
    1.10-(in-package :blake3/tests)
    1.11-
    1.12-(defsuite :blake3)
    1.13-(in-suite :blake3)
    1.14-
    1.15-(load-blake3)
    1.16-
    1.17-(deftest version ()
    1.18-  (is (string= "1.5.0" (blake3-version))))
    1.19-
    1.20-(deftest hasher ()
    1.21-  (with-alien ((h blake3-hasher)
    1.22-               (o (* (unsigned 8)))
    1.23-               (olen size-t))
    1.24-    (blake3-hasher-init (addr h))
    1.25-    (blake3-hasher-update (addr h) nil 0)
    1.26-    (blake3-hasher-finalize (addr h) o olen)
    1.27-    (print (addr h))
    1.28-    (print (addr o))
    1.29-    (blake3-hasher-reset (addr h))))