namespace rooibos
    ' @ignore
    class JUnitTestReporter extends rooibos.BaseTestReporter

        override function onEnd(event as rooibos.TestReporterOnEndEvent)
            root = createObject("roXMLElement")
            root.SetName("testsuites")
            properties = root.addElement("properties")

            versionProperty = properties.AddElement("property")
            versionProperty.AddAttribute("name", "Rooibos Version")
            versionProperty.AddAttribute("value", m.testRunner.runtimeConfig.getVersionText())

            for each testSuite in m.testRunner.testSuites
                suite = root.AddElement("testsuite")
                suite.AddAttribute("name", testSuite.name)
                suite.AddAttribute("tests", Rooibos.Common.AsString(testSuite.stats.ranCount))
                suite.AddAttribute("failures", Rooibos.Common.AsString(testSuite.stats.failedCount))
                suite.AddAttribute("skipped", Rooibos.Common.AsString(testSuite.stats.ignoredCount))
                suite.AddAttribute("time", Rooibos.Common.AsString(testSuite.stats.time))

                for each testGroup in testSuite.groups
                    m.generateGroupXML(testGroup, suite)
                end for
            end for

            ignoredInfo = m.testRunner.runtimeConfig.getIgnoredTestInfo()
            if ignoredInfo.count > 0 then
                for each ignoredItemName in ignoredInfo.items
                    testCase = root.AddElement("testcase")
                    testCase.AddAttribute("name", ignoredItemName)
                    testCase.addAttribute("classname", "skipped")
                    testCase.AddElement("skipped")
                end for
            end if

            ? `<?xml version="1.0" encoding="UTF-8"?>` + root.GenXML(false)
        end function

        function generateGroupXML(testGroup as rooibos.testGroup, suite as rooibos.BaseTestSuite)
            for each test in testGroup.tests
                testCase = suite.AddElement("testcase")
                testCase.AddAttribute("name", test.name)
                testCase.AddAttribute("time", Rooibos.Common.AsString(test.result.time))
                locationText = "file://" + test.testSuite.filePath.trim() + ":" + Rooibos.Common.AsString(test.lineNumber)
                testCase.addAttribute("file", locationText)

                ' Gitlab displays classname in the suite field for some reason
                testCase.addAttribute("classname", test.testSuite.name)

                if test.result.isCrash or test.result.isFail then
                    testFailure = testCase.AddElement(test.result.isCrash ? "error" : "failure")

                    testFailure.addAttribute("message", test.result.getMessage())
                    testFailure.addAttribute("type", Rooibos.Common.AsString(test.result.getStatusText()))

                    if test.isParamTest = true then
                        if type(test.rawParams) = "roAssociativeArray" then
                            rawParams = {}
                            for each key in test.rawParams
                                if type(test.rawParams[key]) <> "Function" and type(test.rawParams[key]) <> "roFunction" then
                                    rawParams[key] = test.rawParams[key]
                                end if
                            end for
                        else
                            rawParams = test.rawParams
                        end if
                        testFailure.addText(chr(10) + "Params: " + formatJson(rawParams) + chr(10))
                    end if

                    testFailure.addText("Failure/Error: " + test.result.getMessage() + chr(10))
                    if test.result.isCrash then
                        testFailure.addText("Trace: " + m.getStackTrace(test.result.error) + chr(10))
                    end if
                end if

            end for
        end function

        function getStackTrace(error as roAssociativeArray) as string
            output = ""

            for i = error.backTrace.count() - 1 to 0 step -1
                e = error.backTrace[i]
                if e.filename.instr("pkg:/source/rooibos") = -1 then
                    output = output + e.filename + "(" + strI(e.line_number).trim() + ")"
                end if
            end for

            return output
        end function

    end class
end namespace