#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))))