shared media servers

2026-08-28 15:56:19 +02:00
parent 2452e6fba3
commit 059a1e2668
5 changed files with 152 additions and 14 deletions
@@ -41,5 +41,9 @@
 (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)))