# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1724031707 14400
# Node ID d91556aa3daeaea60955cf143f8b71aeadd593e8
# Parent  1a5828267b907f9a854f45a8e1f8521f35748106
logger tests

diff -r 1a5828267b90 -r d91556aa3dae lisp/ffi/rocksdb/tests.lisp
--- a/lisp/ffi/rocksdb/tests.lisp	Sun Aug 18 21:37:07 2024 -0400
+++ b/lisp/ffi/rocksdb/tests.lisp	Sun Aug 18 21:41:47 2024 -0400
@@ -451,4 +451,14 @@
          '(alien (* rocksdb-compactionfilterfactory))))))
     
 (deftest logger ()
-  "Test logging functionality.")
+  "Test logging functionality."
+  (with-alien ((state (* t))
+               (lev unsigned 0)
+               (msg c-string)
+               (log (* rocksdb-log-function) (alien-sap (alien-callable-function 'rocksdb-log-default))))
+    (is (typep
+         (rocksdb-logger-create-stderr-logger lev msg)
+         '(alien (* rocksdb-logger))))
+    (is (typep
+         (rocksdb-logger-create-callback-logger lev log state)
+         '(alien (* rocksdb-logger))))))