changelog shortlog graph tags branches changeset files revisions annotate raw help

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

changeset 685: ebe3315b7add
parent: 29fe829a7ac3
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 ;;; tests.lisp --- evdev FFI tests
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (defpackage :evdev/tests
     7   (:use :cl :std :log :rt :sb-alien :evdev))
     8 (in-package :evdev/tests)
     9 (defsuite :evdev)
    10 (in-suite :evdev)
    11 (load-evdev nil)
    12 (deftest sanity ())
    13   
    14 #|
    15 struct libevdev *dev;
    16 int err;
    17 
    18 dev = libevdev_new();
    19 if (!dev)
    20         return ENOMEM;
    21 
    22 err = libevdev_set_fd(dev, fd);
    23 if (err < 0)
    24         printf("Failed (errno %d): %s\n", -err, strerror(-err));
    25 
    26 libevdev_free(dev);
    27 |#
    28 (deftest basic ()
    29   (with-open-file (file "/dev/input/event4")
    30     (let ((dev (libevdev-new))
    31           (fd (sb-sys:fd-stream-fd file)))
    32       (is (typep dev '(alien (* evdev::libevdev))))
    33       (is (zerop (libevdev-set-fd dev fd)))
    34       (is (null (libevdev-free dev))))))