33 lines
653 B
Racket
33 lines
653 B
Racket
#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))))
|