(require-extension test) (use xbmc-api json-rpc-client) ; Setup global string ports and server for testing (define input (open-input-string "some-string")) (define output (open-output-string)) (define xbmc-conn (json-rpc-server input output testing: #t)) ; More tests have to be added... (test-group "Signal raise checks" (test-error "Non-symbol method call" (application xbmc-conn "mute" parameters: '(mute: #t))) (test-error "Non-existing method call" (application xbmc-conn 'muteeeee parameters: '(mute: #t)))) (test-exit)