changelog shortlog graph tags branches changeset files revisions annotate raw help

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

changeset 684: 29fe829a7ac3
child: ebe3315b7add
author: Richard Westhaver <ellis@rwest.io>
date: Sun, 29 Sep 2024 00:31:24 -0400
permissions: -rw-r--r--
description: evdev and io/kbd 
     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 ())