Added missing test

fsprojects · May 26, 2015 · ce7cd1d · ce7cd1d
1 parent 0b7b735
commit ce7cd1d
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/test/Test.Fake.Deploy.Web/WixHelperTests.fs b/src/test/Test.Fake.Deploy.Web/WixHelperTests.fs
@@ -18,6 +18,17 @@ let ``should find correct id`` () =
     let executableId = getFileIdFromWiXString wixDirString "\S*.exe"
     Assert.Equal<string>("fi_5", executableId)
 
+[<Fact>]
+let ``should set components never overwrite true if desired`` () =
+    let componentDefault = "<Component Id=\"comp\" Guid=\"1290b30b-4242-4ed5-99z0-52e3ad1337e6\">
+                                <File Id=\"fi_2\" Name=\"Castle.Core.dll\" Source=\"C:\Git\Test\Publish\wixHelper\Castle.Core.dll\" />
+                            </Component>"
+    let componentExpected = "<Component NeverOverwrite=\"yes\" Id=\"comp\" Guid=\"1290b30b-4242-4ed5-99z0-52e3ad1337e6\">
+                                        <File Id=\"fi_2\" Name=\"Castle.Core.dll\" Source=\"C:\Git\Test\Publish\wixHelper\Castle.Core.dll\" />
+                                   </Component>"
+    let actualComponent = setComponentsNeverOverwrite componentDefault
+    Assert.Equal<string>(componentExpected, actualComponent)
+
 [<Fact>]
 let ``should create valid feature node`` () =
     let actualFeature = generateFeature (fun f ->