Add something random.

.github/workflows/process_test_results.yml

@@ -0,0 +1,41 @@
+name: Process Test Results
+
+on:
+  workflow_run:
+    workflows: ["Run Tests"]
+    types:
+      - completed
+
+permissions: {}
+
+jobs:
+  process-test-results:
+    name: Process Test Results
+    runs-on: ubuntu-latest
+    if: github.event.workflow_run.conclusion != 'skipped'
+
+    permissions:
+      checks: write
+
+      # needed unless run with comment_mode: off
+      pull-requests: write
+
+      # required by download step to access artifacts API
+      actions: read
+
+    steps:
+      - name: Download Artifacts
+        uses: actions/download-artifact@v4
+        with:
+          path: artifacts
+          github-token: ${{ github.token }}
+          run-id: ${{ github.event.workflow_run.id }}
+
+      - name: Publish Test Results
+        uses: EnricoMi/publish-unit-test-result-action@v2
+        with:
+          time_unit: milliseconds
+          commit: ${{ github.event.workflow_run.head_sha }}
+          event_file: artifacts/Event File/event.json
+          event_name: ${{ github.event.workflow_run.event }}
+          files: "artifacts/Test Results/*.json"

.github/workflows/run_tests.yml

@@ -0,0 +1,38 @@
+name: Run Tests
+
+on:
+#  pull_request
+  workflow_dispatch:
+  pull_request:
+  push:
+    branches:
+      - 'master'
+
+jobs:
+  upload-event_file:
+    name: Upload Event File
+    runs-on: ubuntu-latest
+    steps:
+      - name: Upload Event File
+        uses: actions/upload-artifact@v4
+        with:
+          name: Event File
+          path: ${{ github.event_path }}
+
+  run-tests:
+    name: Run Tests
+    runs-on: ubuntu-latest
+    steps:
+      - name: Checkout Repository
+        uses: actions/checkout@v4
+
+      - name: Run Tests
+        run: docker compose -f tools/headless_testing/docker-compose.yml up
+
+      - name: Upload Test Results
+        if: always()
+        uses: actions/upload-artifact@v4
+        with:
+          name: Test Results
+          path: |
+            tools/headless_testing/testlog/results.json

common/platformFunctions.lua

@@ -0,0 +1,57 @@
+if not Platform then return end
+local hasGL4 = false
+local hasGL = false
+local hasShaders = false
+local hasFBO = false
+local isSyncedCode = (SendToUnsynced ~= nil)
+
+local function determineCapabilities()
+	if not gl then
+		return
+	end
+	if gl.GetString(0x1F00) ~= "" then
+		hasGL = true
+	end
+	if gl.CreateShader and Platform.glHaveGLSL then
+		hasShaders = true
+	end
+	if gl.CreateFBO then
+		hasFBO = true
+	end
+
+	if hasFBO and hasShaders and Platform.glHaveGL4 then
+		hasGL4 = true
+	end
+end
+
+local function checkRequires(allRequires)
+	if not allRequires or isSyncedCode then
+		return true
+	end
+	for _, req in pairs(allRequires) do
+		if req == 'gl' and not hasGL then
+			return false
+		elseif req == 'gl4' and not hasGL4 then
+			return false
+		elseif req == 'shaders' and not hasShaders then
+			return false
+		elseif req == 'fbo' and not hasVBO then
+			return false
+		end
+	end
+	return true
+end
+
+local function extendPlatform()
+	Platform.gl = Platform.gl or hasGL
+	Platform.gl4 = Platform.gl4 or hasGL4
+	Platform.glHaveFBO = Platform.glHaveFBO or hasFBO
+	Platform.check = checkRequires
+end
+
+determineCapabilities()
+extendPlatform()
+
+Spring.Echo("PLATFORM", isSyncedCode)
+Spring.Echo("PLATFORM GL", hasGL, hasGL4, hasShaders, hasFBO)
+Spring.Echo("PLATFORM ATTRS", Platform.glHaveGLSL, Platform.glHaveGL4, gl and gl.GetString(0x1F00), Platform.glVendor, Platform.glVersion, Platform.glRenderer)

common/testing/mocha_json_reporter.lua

@@ -8,6 +8,7 @@ function MochaJSONReporter:new()
 	local obj = {
 		totalTests = 0,
 		totalPasses = 0,
+		totalSkipped = 0,
 		totalFailures = 0,
 		startTime = nil,
 		endTime = nil,
@@ -28,14 +29,17 @@ function MochaJSONReporter:endTests(duration)
 	self.duration = duration
 end
 
-function MochaJSONReporter:testResult(label, filePath, success, duration, errorMessage)
+function MochaJSONReporter:testResult(label, filePath, success, skipped, duration, errorMessage)
 	local result = {
 		title = label,
 		fullTitle = label,
 		file = filePath,
 		duration = duration,
 	}
-	if success then
+	if skipped then
+		self.totalSkipped = self.totalSkipped + 1
+		result.err = {}
+	elseif success then
 		self.totalPasses = self.totalPasses + 1
 		result.err = {}
 	else
@@ -47,7 +51,7 @@ function MochaJSONReporter:testResult(label, filePath, success, duration, errorM
 			}
 		else
 			result.err = {
-				message = "<unknown error>",
+				message = "<empty>",
 			}
 		end
 	end
@@ -62,7 +66,7 @@ function MochaJSONReporter:report(filePath)
 			["suites"] = 1,
 			["tests"] = self.totalTests,
 			["passes"] = self.totalPasses,
-			["pending"] = 0,
+			["pending"] = self.totalSkipped,
 			["failures"] = self.totalFailures,
 			["start"] = formatTimestamp(self.startTime),
 			["end"] = formatTimestamp(self.endTime),

init.lua

@@ -32,6 +32,8 @@ if commonFunctions.spring[environment] then
 	local springFunctions = VFS.Include('common/springFunctions.lua')
 	Spring.Utilities = Spring.Utilities or springFunctions.Utilities
 	Spring.Debug = Spring.Debug or springFunctions.Debug
+	-- extend platform
+	VFS.Include('common/platformFunctions.lua')
 end
 
 if commonFunctions.i18n[environment] then

luarules/gadgets.lua

@@ -415,6 +415,11 @@ function gadgetHandler:LoadGadget(filename, overridevfsmode)
 		return nil -- gadget asked for a quiet death
 	end
 
+	if gadget.GetInfo and (Platform and not Platform.check(gadget.GetInfo().depends)) then
+		Spring.Echo('Disabling ' .. gadget:GetInfo().name .. ' for missing capabilities')
+		return nil
+	end
+
 	-- raw access to gadgetHandler
 	if gadget.GetInfo and gadget:GetInfo().handler then
 		gadget.gadgetHandler = self

luarules/gadgets/cus_gl4.lua

@@ -8,6 +8,7 @@ function gadget:GetInfo()
 		license = "GNU GPL, v2 or later",
 		layer	= 0,
 		enabled	= true,
+		depends = {'gl4'},
 	}
 end
 

luarules/gadgets/dbg_test_framework_proxy.lua

@@ -0,0 +1,109 @@
+function gadget:GetInfo()
+	return {
+		name = "Test Framework Synced Proxy",
+		desc = "Proxy for synced commands and code",
+		date = "2023",
+		license = "GNU GPL, v2 or later",
+		version = 0,
+		layer = 9999,
+		enabled = true,
+	}
+end
+
+if not gadgetHandler:IsSyncedCode() then
+	return
+end
+
+if not Spring.Utilities.IsDevMode() then
+	return
+end
+
+local LOG_LEVEL = LOG.INFO
+
+VFS.Include('luarules/testing/util.lua')
+
+local function log(level, str, ...)
+	if level < LOG_LEVEL then
+		return
+	end
+
+	Spring.Log(
+		gadget:GetInfo().name,
+		LOG.NOTICE,
+		str
+	)
+end
+
+local Extra = {
+	clearMap = function()
+		for _, unitID in ipairs(Spring.GetAllUnits()) do
+			Spring.DestroyUnit(unitID, false, true, nil, true)
+		end
+		for _, featureID in ipairs(Spring.GetAllFeatures()) do
+			Spring.DestroyFeature(featureID)
+		end
+	end,
+}
+
+local function processCall(msg, env)
+	log(LOG.DEBUG, "[processCall] " .. msg)
+	local data, returnId = deserializeFunctionCall(msg)
+
+	local fn = evaluateStringPath(data.path, env)
+
+	if not fn then
+		error("[processCall] could not find function: " .. data.path)
+	end
+
+	local pcallOk, pcallResult = splitFirstElement(pack(pcall(fn, unpack(data.args))))
+
+	log(LOG.DEBUG, "[processCall.pcall] " .. table.toString({
+		pcall = { pcallOk, pcallResult },
+		returnId = returnId,
+	}))
+
+	local serializedReturn = serializeFunctionReturn(pcallOk, pcallResult, returnId)
+
+	log(LOG.DEBUG, "[processCall.SendLuaUIMsg] " .. PROXY_RETURN_PREFIX .. serializedReturn)
+	Spring.SendLuaUIMsg(PROXY_RETURN_PREFIX .. serializedReturn)
+
+end
+
+local function processCode(msg)
+	log(LOG.DEBUG, "[processCode]")
+
+	local fn, returnId = deserializeFunctionRun(msg)
+
+	local pcallOk, pcallResult = fn()
+
+	log(LOG.DEBUG, "[processCode.pcall] " .. table.toString({
+		pcall = { pcallOk, pcallResult },
+		returnId = returnId,
+	}))
+
+	local serializedReturn = serializeFunctionReturn(pcallOk, pcallResult, returnId)
+
+	log(LOG.DEBUG, "[processCode.SendLuaUIMsg] " .. PROXY_RETURN_PREFIX .. serializedReturn)
+	Spring.SendLuaUIMsg(PROXY_RETURN_PREFIX .. serializedReturn)
+end
+
+local RECEIVE_MODES = {
+	[PROXY_PREFIX] = function(msg)
+		processCall(msg, _G)
+	end,
+	[PROXY_EXTRA_PREFIX] = function(msg)
+		processCall(msg, Extra)
+	end,
+	[PROXY_RUN_PREFIX] = function(msg)
+		processCode(msg)
+	end,
+}
+
+function gadget:RecvLuaMsg(msg, playerID)
+	for prefix, fn in pairs(RECEIVE_MODES) do
+		if msg:sub(1, #prefix) == prefix then
+			fn(msg:sub(#prefix + 1))
+			return
+		end
+	end
+end

luarules/testing/assertions.lua

@@ -0,0 +1,51 @@
+function assertTablesEqual(table1, table2, margin, visited, path)
+	visited = visited or {}
+	path = path or {}
+	margin = margin or 0
+
+	local function buildPathString()
+		local pathString = ""
+		for _, key in ipairs(path) do
+			pathString = pathString .. "[" .. tostring(key) .. "]"
+		end
+		return pathString
+	end
+
+	if type(table1) ~= "table" or type(table2) ~= "table" then
+		if type(table1) == "number" and type(table2) == "number" then
+			assert(math.abs(table1 - table2) <= margin, "Numbers are not close enough at path: " .. buildPathString())
+		else
+			assert(table1 == table2, "Tables are not equal at path: " .. buildPathString())
+		end
+		return
+	end
+
+	if visited[table1] or visited[table2] then
+		-- Prevent infinite recursion on circular references
+		assert(table1 == table2, "Tables are not equal (circular reference) at path: " .. buildPathString())
+		return
+	end
+
+	visited[table1] = true
+	visited[table2] = true
+
+	for key, value1 in pairs(table1) do
+		local value2 = table2[key]
+		table.insert(path, key)
+		assertTablesEqual(value1, value2, margin, visited, path)
+		table.remove(path)
+	end
+
+	for key, value2 in pairs(table2) do
+		local value1 = table1[key]
+		if value1 == nil then
+			assert(false, "Tables are not equal, extra key '" .. tostring(key) .. "' in second table at path: " .. buildPathString())
+		end
+	end
+end
+
+
+
+return {
+	assertTablesEqual = assertTablesEqual,
+}