#lang racket/base

(require rackunit
         "../main.rkt")

(check-true (procedure? sonos-device?))
(check-true (procedure? sonos-groups))

(define group
  (sonos-group
   "group"
   "Woonkamer (stereo)"
   "RINCON_COORDINATOR"
   '("RINCON_LEFT" "RINCON_RIGHT")
   #t
   #t
   #f
   'renderer))

(check-true (sonos-group? group))
(check-true (sonos-group-stereo? group))
(check-false (sonos-group-grouped? group))