patrick/WoofWare.NUnitTestRunner
1
0
Fork 0
mirror of https://github.com/Smaug123/unofficial-nunit-runner synced 2025-10-10 03:28:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

Emit XML from a TRX report (#43)

Browse Source
This commit is contained in:
Patrick Stevens
2024-06-08 18:31:58 +01:00
committed by GitHub
parent 78b5e9b71f
commit 7c38982fe7
5 changed files with 530 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
TestRunner/TestRunner.Test/TestTrx.fs
View File

@@ -1,7 +1,6 @@
namespace TestRunner.Test
open System
open NuGet.Packaging.Signing
open TestRunner
open NUnit.Framework
open FsUnitTyped
@@ -9,6 +8,47 @@ open FsUnitTyped
[<TestFixture>]
module TestTrx =
let outputShouldEqual (expected : TrxOutput option) (actual : TrxOutput option) =
match expected, actual with
| None, None -> ()
| None, Some actual -> failwith $"Expected no output, actual: %O{actual}"
| Some expected, None -> failwith $"Got no output, but expected: %O{expected}"
| Some expected, Some actual ->
actual.StdOut |> shouldEqual expected.StdOut
actual.ErrorInfo |> shouldEqual expected.ErrorInfo
let resultShouldEqual (index : int) (expected : TrxUnitTestResult) (actual : TrxUnitTestResult) =
try
actual.Duration |> shouldEqual expected.Duration
actual.Outcome |> shouldEqual expected.Outcome
actual.Output |> outputShouldEqual expected.Output
actual.ComputerName |> shouldEqual expected.ComputerName
actual.EndTime |> shouldEqual expected.EndTime
actual.ExecutionId |> shouldEqual expected.ExecutionId
actual.StartTime |> shouldEqual expected.StartTime
actual.TestId |> shouldEqual expected.TestId
actual.TestName |> shouldEqual expected.TestName
actual.TestType |> shouldEqual expected.TestType
actual.RelativeResultsDirectory |> shouldEqual expected.RelativeResultsDirectory
actual.TestListId |> shouldEqual expected.TestListId
with e ->
raise (AggregateException ($"At element %i{index}", e))
let reportShouldEqual (expected : TrxReport) (actual : TrxReport) =
actual.Id |> shouldEqual expected.Id
actual.Name |> shouldEqual expected.Name
actual.Results |> shouldHaveLength expected.Results.Length
for i, (actual, expected) in List.zip actual.Results expected.Results |> List.indexed do
resultShouldEqual i expected actual
actual.Settings |> shouldEqual expected.Settings
actual.Times |> shouldEqual expected.Times
actual.ResultsSummary |> shouldEqual expected.ResultsSummary
actual.TestDefinitions |> shouldEqual expected.TestDefinitions
actual.TestEntries |> shouldEqual expected.TestEntries
actual.TestLists |> shouldEqual expected.TestLists
[<Test>]
let ``Can parse the first example`` () =
let resource = EmbeddedResource.read "Example1.trx"
@@ -178,3 +218,18 @@ NUnit Adapter 4.5.0.0: Test execution complete
}
parsed.ResultsSummary |> shouldEqual expectedResultsSummary
[<Test>]
let ``Can round-trip`` () =
let original =
EmbeddedResource.read "Example1.trx"
|> TrxReport.parse
|> Result.get
|> Option.get
let afterwards = TrxReport.toXml original
let andParsedAgain =
afterwards.OuterXml |> TrxReport.parse |> Result.get |> Option.get
andParsedAgain |> reportShouldEqual original