ja

tests/didl-lite-test.rkt

@@ -12,6 +12,11 @@
    #:protocol-info
    "http-get:*:audio/flac:DLNA.ORG_OP=01;DLNA.ORG_CI=0"
    #:title "Rock & Roll <live>"
+   #:artist "Test Artist"
+   #:album "Test Album"
+   #:genre "Alternative"
+   #:year 2026
+   #:track 7
    #:duration 639.9
    #:size 50357462))
 
@@ -31,6 +36,11 @@
               "Rock & Roll <live>")
 (check-equal? (xexpr-child-text item "class")
               "object.item.audioItem.musicTrack")
+(check-equal? (xexpr-child-text item "artist") "Test Artist")
+(check-equal? (xexpr-child-text item "album") "Test Album")
+(check-equal? (xexpr-child-text item "genre") "Alternative")
+(check-equal? (xexpr-child-text item "date") "2026")
+(check-equal? (xexpr-child-text item "originalTrackNumber") "7")
 (check-equal? (xexpr-text resource)
               "http://example.test/audio?a=1&b=2")
 (check-equal? (xexpr-attribute resource 'protocolInfo)

tests/media-file-server-test.rkt

@@ -0,0 +1,67 @@
+#lang racket/base
+
+(require rackunit
+         racket/file
+         racket/port
+         racket/tcp
+         "../main.rkt")
+
+(define (available-port)
+  (let ([listener (tcp-listen 0 4 #t "127.0.0.1")])
+    (let-values ([(_local-host port _remote-host _remote-port)
+                  (tcp-addresses listener #t)])
+      (tcp-close listener)
+      port)))
+
+(define (http-request port method #:range [range #f])
+  (let-values ([(in out) (tcp-connect "127.0.0.1" port)])
+    (fprintf out "~a /media/track.flac HTTP/1.1\r\n" method)
+    (fprintf out "Host: 127.0.0.1:~a\r\n" port)
+    (when range
+      (fprintf out "Range: ~a\r\n" range))
+    (fprintf out "Connection: close\r\n\r\n")
+    (flush-output out)
+    (close-output-port out)
+    (let ([response (port->bytes in)])
+      (close-input-port in)
+      response)))
+
+(define (response-body response)
+  (let ([match (regexp-match-positions #rx#"\r\n\r\n" response)])
+    (if match
+        (subbytes response (cdar match))
+        #"")))
+
+(define port (available-port))
+(define file (make-temporary-file "racket-upnp-range-~a.flac"))
+(define server #f)
+
+(dynamic-wind
+  (lambda ()
+    (call-with-output-file
+     file
+     #:exists 'truncate
+     (lambda (out)
+       (write-bytes #"0123456789" out)))
+    (set! server
+          (start-media-file-server
+           (format "http://127.0.0.1:~a/media/" port)
+           #:listen-ip "127.0.0.1"))
+    (media-file-server-publish! server file "track.flac"))
+  (lambda ()
+    (let ([head (http-request port "HEAD")]
+          [range (http-request port "GET" #:range "bytes=2-5")])
+      (check-regexp-match #rx#"HTTP/1[.]1 200" head)
+      (check-regexp-match #rx#"(?i:Accept-Ranges): bytes" head)
+      (check-regexp-match
+       #rx#"(?i:contentFeatures[.]dlna[.]org): DLNA[.]ORG_OP=01;DLNA[.]ORG_CI=0"
+       head)
+      (check-equal? (response-body head) #"")
+      (check-regexp-match #rx#"HTTP/1[.]1 206" range)
+      (check-regexp-match #rx#"(?i:Content-Range): bytes 2-5/10" range)
+      (check-equal? (response-body range) #"2345")))
+  (lambda ()
+    (when server
+      (media-file-server-stop! server))
+    (when (file-exists? file)
+      (delete-file file))))