From 8e4d27e63cb988715bc62c5704c75d149818958c Mon Sep 17 00:00:00 2001
From: Martin Gondermann <magicmonty@pagansoft.de>
Date: Wed, 17 Oct 2018 13:50:09 +0200
Subject: [PATCH] Fake.Testing.ReportGenerator: Add report type Cobertura

---
 src/app/Fake.Testing.ReportGenerator/ReportGenerator.fs  | 1 +
 .../Fake.Core.UnitTests/Fake.Testing.ReportGenerator.fs  | 9 +++++++++
 2 files changed, 10 insertions(+)

diff --git a/src/app/Fake.Testing.ReportGenerator/ReportGenerator.fs b/src/app/Fake.Testing.ReportGenerator/ReportGenerator.fs
index b07916b9277..93736715e22 100644
--- a/src/app/Fake.Testing.ReportGenerator/ReportGenerator.fs
+++ b/src/app/Fake.Testing.ReportGenerator/ReportGenerator.fs
@@ -37,6 +37,7 @@ type ReportType =
     | LatexSummary
     | Badges
     | CsvSummary
+    | Cobertura
 
 type LogVerbosity =
     | Verbose = 0
diff --git a/src/test/Fake.Core.UnitTests/Fake.Testing.ReportGenerator.fs b/src/test/Fake.Core.UnitTests/Fake.Testing.ReportGenerator.fs
index a81c8237f9f..d522bacb8b6 100644
--- a/src/test/Fake.Core.UnitTests/Fake.Testing.ReportGenerator.fs
+++ b/src/test/Fake.Core.UnitTests/Fake.Testing.ReportGenerator.fs
@@ -49,4 +49,13 @@ let tests =
 
       Expect.equal commandLine
         (sprintf "%s -reports:report1.xml;report2.xml -targetdir:targetDir -reporttypes:Html;MHtml -sourcedirs:source1;source2 -historydir:history -assemblyfilters:+a1*;-a2* -classfilters:+c1*;-c2* -filefilters:+f1*;-f2* -tag:mytag -verbosity:Verbose" expectedPath) "expected proper command line"
+
+    testCase "Test that ReportType Cobertura works" <| fun _ ->
+      let expectedPath, commandLine =
+        runCreateProcess (fun p ->
+          { p with 
+              ReportTypes = [ ReportGenerator.ReportType.Cobertura ] })
+
+      Expect.equal commandLine
+        (sprintf "%s -reports:report1.xml;report2.xml -targetdir:targetDir -reporttypes:Cobertura -verbosity:Verbose" expectedPath) "expected proper command line"
   ]