changelog shortlog graph tags branches changeset files revisions annotate raw help

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

changeset 698: 96958d3eb5b0
parent: bc0ea6a5c252
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; keyutils/tests.lisp --- libkeyutils tests
     2 
     3 ;;; Code:
     4 (defpackage :keyutils/tests
     5   (:use :cl :std :rt :keyutils :sb-alien))
     6 
     7 (in-package :keyutils/tests)
     8 
     9 (defsuite :keyutils)
    10 (in-suite :keyutils)
    11 
    12 (load-keyutils)
    13 
    14 (deftest sanity ()
    15   (is (string= "keyutils" (car (ssplit #\- (cast keyutils-version-string c-string)))))
    16   (is (every 'minusp (list (key-spec :thread)
    17                              (key-spec :user)
    18                              (key-spec :user-session)
    19                              (key-spec :session)
    20                              (key-spec :group)
    21                              (key-spec :process)
    22                              (key-spec :thread)
    23                              (key-spec :reqkey-auth)))))
    24 
    25 (deftest keyutils ()
    26   (let ((session-id (keyctl-join-session-keyring (symbol-name (gensym "test")))))
    27     (is (integerp (keyctl-get-keyring-id session-id 1)))))