play local files to a DLNA Renderer

2026-07-30 23:27:55 +02:00
parent 5fe5ae2976
commit 07ed0917e9
7 changed files with 1056 additions and 1 deletions
@@ -0,0 +1,43 @@
+#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-exn exn:fail:contract?
+           (lambda () (make-dlna-player #f)))