Added capability information

2026-08-08 14:20:46 +02:00
parent 070f6bd12a
commit 8e6bf4e0f7
7 changed files with 119 additions and 19 deletions
@@ -0,0 +1,32 @@
+#lang racket/base
+
+(require rackunit
+         racket-audio)
+
+(define formats
+  (audio-supported-formats))
+
+(check-not-false
+ (member "flac"
+         (audio-supported-extensions)))
+(check-equal?
+ (cdr (assoc "flac" formats))
+ "audio/x-flac")
+(check-eq?
+ (audio-decoder-for-extension "flac")
+ 'flac)
+(check-eq?
+ (audio-decoder-for-extension ".mp3")
+ 'ffmpeg)
+(check-not-false
+ (member (audio-decoder-for-extension 'opus)
+         '(opusfile ffmpeg)))
+(check-false
+ (audio-decoder-for-extension "not-audio"))
+
+(for ((extension
+       (in-list
+        (audio-supported-extensions))))
+  (check-true
+   (symbol?
+    (audio-decoder-for-extension extension))))