1 ;;; sndfile/tests.lisp --- SNDFILE tests 2 3 ;;; Code: 4 (defpackage :sndfile/tests 5 (:use :cl :std :rt :sndfile :sb-ext :sb-alien)) 6 7 (in-package :sndfile/tests) 8 9 (defsuite :sndfile) 10 (in-suite :sndfile) 11 12 (load-sndfile) 13 14 (deftest sanity () 15 (is (stringp (sf-version-string)))) 16 17 (deftest list-formats () 18 "List all available audio file formats.")