23 lines
417 B
Racket
23 lines
417 B
Racket
#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))
|