Add MSP media protocol support

2026-09-17 17:53:08 +02:00
parent 3fd28c2e0b
commit 573f1b7acb
14 changed files with 357 additions and 51 deletions
@@ -0,0 +1,68 @@
+# encoding: UTF-8
+
+require_relative "test_helper"
+require_relative "../lib/meow/media"
+require_relative "../lib/meow/msp"
+
+module MeowMSPTest
+  MSP = MeowClient::MSP
+
+  MeowTest.test("MSP maps sound defaults into a shared media request") do
+    action = MSP::Adapter.new.parse("!!SOUND(weather/thunder)")
+    request = action.request
+    MeowTest.assert_equal(:play, action.type)
+    MeowTest.assert_equal("weather/thunder.wav", request.name)
+    MeowTest.assert_equal("sound", request.kind)
+    MeowTest.assert_equal("weather", request.tag)
+    MeowTest.assert_equal(100, request.volume)
+    MeowTest.assert_equal(1, request.loops)
+    MeowTest.assert_equal(50, request.priority)
+    MeowTest.refute(request.continue_existing)
+    MeowTest.assert(request.allow_insecure_http)
+  end
+
+  MeowTest.test("MSP accepts case-insensitive parameters and quoted legacy URLs") do
+    action = MSP::Adapter.new.parse(
+      '!!MUSIC(theme v=75 l=-1 c=0 t=zone u="http://media.example/game sounds/")'
+    )
+    request = action.request
+    MeowTest.assert_equal("theme.mid", request.name)
+    MeowTest.assert_equal("music", request.kind)
+    MeowTest.assert_equal("zone", request.tag)
+    MeowTest.assert_equal(75, request.volume)
+    MeowTest.assert_equal(-1, request.loops)
+    MeowTest.refute(request.continue_existing)
+    MeowTest.assert_equal("msp:music", request.key)
+    MeowTest.assert_equal("http://media.example/game sounds/", request.url)
+  end
+
+  MeowTest.test("MSP default URL and stop actions remain protocol-local") do
+    adapter = MSP::Adapter.new
+    default_action = adapter.parse("!!SOUND(Off U=http://media.example/sounds/)")
+    MeowTest.assert_equal(:default_url, default_action.type)
+    adapter.default_url = default_action.url
+
+    play = adapter.parse("!!SOUND(bell.wav)")
+    stop = adapter.parse("!!MUSIC(Off)")
+    MeowTest.assert_equal("http://media.example/sounds/", play.request.url)
+    MeowTest.assert_equal(:stop, stop.type)
+    MeowTest.assert_equal("music", stop.request.kind)
+  end
+
+  MeowTest.test("MSP recognizes out-of-band bodies but not mid-line text") do
+    adapter = MSP::Adapter.new
+    action = adapter.parse_bytes("SOUND(chime.wav U=http://media.example/)".b, "UTF-8")
+    MeowTest.assert_equal(:play, action.type)
+    MeowTest.assert_equal(nil, adapter.parse("chat says !!SOUND(chime.wav)"))
+  end
+
+  MeowTest.test("MSP reports invalid values and unsupported wildcards") do
+    adapter = MSP::Adapter.new
+    bad_volume = adapter.parse("!!SOUND(chime.wav V=101)")
+    wildcard = adapter.parse("!!SOUND(chime*.wav)")
+    unterminated = adapter.parse('!!SOUND(chime.wav U="http://media.example/)')
+    MeowTest.assert_equal(:error, bad_volume.type)
+    MeowTest.assert_equal(:error, wildcard.type)
+    MeowTest.assert_equal(:error, unterminated.type)
+  end
+end