changelog shortlog graph tags branches changeset files revisions annotate raw help

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

changeset 698: 96958d3eb5b0
parent: 6359b351657a
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; tests.lisp --- Gstreamer FFI Tests
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (defpackage :gstreamer/tests
     7   (:use :cl :std :rt :gstreamer :sb-alien))
     8 
     9 (in-package :gstreamer/tests)
    10 (defsuite :gstreamer)
    11 (in-suite :gstreamer)
    12 
    13 (glib:load-glib)
    14 (load-gstreamer)
    15 
    16 (deftest sanity ()
    17   (with-alien ((argv (array c-string))
    18                (argc (* t))
    19                (major unsigned)
    20                (minor unsigned)
    21                (micro unsigned)
    22                (nano unsigned))
    23     (gst-init nil argv)
    24     (gst-version (addr major) (addr minor) (addr micro) (addr nano))
    25     (format t "initialized GStreamer: ~A.~A.~A.~A~%" major minor micro nano)
    26     (gst-deinit)
    27     (println "Shutdown GStreamer")))
    28 
    29 (deftest basic ())