#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)))