Add tests for DMAPI interop communication limits

tests/DMAPI/LongRunning/Config.dm

@@ -6,6 +6,6 @@
 #define TGS_WORLD_ANNOUNCE(message) world << ##message
 #define TGS_INFO_LOG(message) world.log << "Info: [##message]"
 #define TGS_WARNING_LOG(message) world.log << "Warn: [##message]"
-#define TGS_ERROR_LOG(message) world.log << "Err: [##message]"
+#define TGS_ERROR_LOG(message) TgsError(##message)
 #define TGS_NOTIFY_ADMINS(event)
 #define TGS_CLIENT_COUNT 0

tests/DMAPI/LongRunning/Test.dm

@@ -49,11 +49,18 @@
 	world.TgsChatBroadcast(response)
 	world.TgsInitializationComplete()
 
+	startup_complete = TRUE
+	if(run_bridge_test)
+		CheckBridgeLimits()
+
 /world/Topic(T, Addr, Master, Keys)
 	log << "Topic: [T]"
 	. =  HandleTopic(T)
 	log << "Response: [.]"
 
+var/startup_complete
+var/run_bridge_test
+
 /world/proc/HandleTopic(T)
 	TGS_TOPIC
 
@@ -63,6 +70,40 @@
 		RebootAsync()
 		return "ack"
 
+	var/tactics2 = data["tgs_integration_test_tactics2"]
+	if(tactics2)
+		if(startup_complete)
+			CheckBridgeLimits()
+		else
+			run_bridge_test = TRUE
+		return "ack2"
+
+	// Topic limit tests
+	// Receive
+	var/tactics3 = data["tgs_integration_test_tactics3"]
+	if(tactics3)
+		var/list/json = json_decode(tactics3)
+		if(!json || !istext(json["payload"]) || !istext(json["size"]))
+			return "fail"
+
+		var/size = text2num(json["size"])
+		var/payload = json["payload"]
+		if(length(payload) != size)
+			return "fail"
+
+		return "pass"
+
+	// Send
+	var/tactics4 = data["tgs_integration_test_tactics4"]
+	if(tactics4)
+		var/size = isnum(tactics4) ? tactics4 : text2num(tactics4)
+		if(!isnum(size))
+			text2file("tgs_integration_test_tactics4 wasn't a number!", "test_fail_reason.txt")
+			del(world)
+
+		var/payload = create_payload(size)
+		return payload
+
 	TgsChatBroadcast("Recieved non-tgs topic: [T]")
 
 	return "feck"
@@ -77,7 +118,8 @@
 	world.TgsChatBroadcast("Recieved event: `[json_encode(args)]`")
 
 /world/Export(url)
-	log << "Export: [url]"
+	if(length(url) < 1000)
+		log << "Export: [url]"
 	return ..()
 
 /proc/RebootAsync()
@@ -113,3 +155,60 @@
 	response.embed.fields += field
 	response.embed.footer = new /datum/tgs_chat_embed/footer("Footer text")
 	return response
+
+var/lastTgsError
+
+/proc/TgsError(message)
+	world.log << "Err: [message]"
+	lastTgsError = message
+
+/proc/create_payload(size)
+	var/builder = list()
+	for(var/j = 0; j < size; ++j)
+		builder += "a"
+	var/payload = jointext(builder, "")
+	return payload
+	
+/proc/CheckBridgeLimits()
+	set waitfor = FALSE
+	CheckBridgeLimitsImpl()
+
+/proc/CheckBridgeLimitsImpl()
+	sleep(30)
+
+	// Evil custom bridge command hacking here
+	var/datum/tgs_api/v5/api = TGS_READ_GLOBAL(tgs)
+	var/old_ai = api.access_identifier
+	api.access_identifier = "tgs_integration_test"
+
+	// Always send chat messages because they can have extremely large payloads with the text
+
+	// bisecting request test
+	var/base = 1
+	var/nextPow = 0
+	var/lastI = 0
+	var/i
+	lastTgsError = null
+	for(i = 1; ; i = base + (2 ** nextPow))
+		var/payload = create_payload(i)
+		
+		var/list/result = api.Bridge(0, list("chatMessage" = list("text" = "payload:[payload]")))
+
+		if(!result || lastTgsError || result["integrationHack"] != "ok")
+			if(i == lastI + 1)
+				break
+			lastTgsError = null
+			i = lastI
+			base = lastI
+			nextPow = 0
+			continue
+
+		lastI = i
+		++nextPow
+
+	var/finalResult = api.Bridge(0, list("chatMessage" = list("text" = "done")))
+	if(!finalResult || lastTgsError || finalResult["integrationHack"] != "ok")
+		text2file("Failed to end bridge limit test!", "test_fail_reason.txt")
+		del(world)
+
+	api.access_identifier = old_ai