1.1--- a/lisp/ffi/evdev/tests.lisp	Sun Sep 29 00:31:24 2024 -0400
     1.2+++ b/lisp/ffi/evdev/tests.lisp	Sun Sep 29 22:44:52 2024 -0400
     1.3@@ -25,4 +25,10 @@
     1.4 
     1.5 libevdev_free(dev);
     1.6 |#
     1.7-(deftest basic ())
     1.8+(deftest basic ()
     1.9+  (with-open-file (file "/dev/input/event4")
    1.10+    (let ((dev (libevdev-new))
    1.11+          (fd (sb-sys:fd-stream-fd file)))
    1.12+      (is (typep dev '(alien (* evdev::libevdev))))
    1.13+      (is (zerop (libevdev-set-fd dev fd)))
    1.14+      (is (null (libevdev-free dev))))))