50 lines
1.0 KiB
Racket
50 lines
1.0 KiB
Racket
#lang racket/base
|
|
|
|
(require rackunit
|
|
"../main.rkt")
|
|
|
|
(define track
|
|
(dlna-track-info
|
|
"/music/test.flac"
|
|
"Test track"
|
|
"Test artist"
|
|
"Test album"
|
|
"Alternative"
|
|
2026
|
|
7
|
|
639
|
|
44100
|
|
900
|
|
2))
|
|
|
|
(define info
|
|
(dlna-info
|
|
'playing
|
|
track
|
|
"http://127.0.0.1:8080/music/track-1.flac"
|
|
#f
|
|
#f
|
|
12
|
|
639
|
|
35
|
|
#f
|
|
#t))
|
|
|
|
(check-true (dlna-track-info? track))
|
|
(check-equal? (dlna-track-info-title track) "Test track")
|
|
(check-equal? (dlna-track-info-duration track) 639)
|
|
(check-true (dlna-info? info))
|
|
(check-eq? (dlna-info-state info) 'playing)
|
|
(check-equal? (dlna-info-position info) 12)
|
|
(check-equal? (dlna-info-volume info) 35)
|
|
(check-true (dlna-info-reachable? info))
|
|
(check-true (procedure? dlna-player-play-uri!))
|
|
(check-true (procedure? dlna-player-set-next-uri!))
|
|
|
|
(define-values (_required-keywords accepted-keywords)
|
|
(procedure-keywords make-dlna-player))
|
|
(check-not-false (member '#:media-file-server accepted-keywords))
|
|
|
|
(check-exn exn:fail:contract?
|
|
(lambda () (make-dlna-player #f)))
|