Model TRX reports (#40)

TestRunner/TestRunner.Test/EmbeddedResource.fs

@@ -0,0 +1,20 @@
+namespace TestRunner.Test
+
+open System
+open System.IO
+
+[<RequireQualifiedAccess>]
+module internal EmbeddedResource =
+    type Dummy = class end
+
+    let read (name : string) : string =
+        let assy = typeof<Dummy>.Assembly
+
+        let manifestName =
+            assy.GetManifestResourceNames ()
+            |> Seq.filter (fun s -> s.EndsWith (name, StringComparison.Ordinal))
+            |> Seq.exactlyOne
+
+        use s = assy.GetManifestResourceStream manifestName
+        use reader = new StreamReader (s)
+        reader.ReadToEnd ()