WiXHelper: fixed typos in WiXDir.ToString

src/app/FakeLib/WiXHelper.fs

@@ -350,7 +350,7 @@ type WiXDir =
         Files : WiXFile seq
         Components : WiXComponent seq
     }
-    override d.ToString() = sprintf "<Direcotry Id=\"%s\" Name=\"%s\>%s%s</Directory>"
+    override d.ToString() = sprintf "<Directory Id=\"%s\" Name=\"%s\">%s%s</Directory>"
                                 d.Id d.Name (Seq.fold(fun acc elem -> acc + elem.ToString()) "" d.Files) (Seq.fold(fun acc elem -> acc + elem.ToString()) "" d.Components)
 
 /// Defaults for directories

src/test/Test.FAKECore/Test.FAKECore.csproj

@@ -119,6 +119,7 @@
     <Compile Include="MessageFiles\MessageFileSpecs.cs" />
     <Compile Include="ConfigFiles\ConfigSpecs.cs" />
     <Compile Include="AssemblyInfoSpecs.cs" />
+    <Compile Include="WiXHelperSpec.cs" />
     <Compile Include="XdtSpecs.cs" />
     <Compile Include="CscSpecs.cs" />
     <Compile Include="XmlSpecs.cs" />

src/test/Test.FAKECore/WiXHelperSpec.cs

@@ -0,0 +1,33 @@
+// ReSharper disable InconsistentNaming 
+// ReSharper disable CheckNamespace
+
+using System;
+using Fake;
+using FSharp.Testing;
+using Machine.Specifications;
+using Microsoft.FSharp.Core;
+
+namespace Test.FAKECore.WiXHelperSpec
+{
+	internal class When_creating_a_WiDir
+	{
+		private static WiXHelper.WiXDir Parameters;
+		private static WiXHelper.WiXDir Arguments;
+
+		Establish context = () => {
+			Parameters = WiXHelper.WiXDirDefaults
+				.With(p => p.Id, "1")
+				.With(p => p.Name, "Foo");
+		};
+
+		Because of = () => {
+			Func<WiXHelper.WiXDir, WiXHelper.WiXDir> f = _ => Parameters;
+			var fs = FuncConvert.ToFSharpFunc(new Converter<WiXHelper.WiXDir, WiXHelper.WiXDir>(f));
+			Arguments = WiXHelper.generateDirectory(fs);
+			Console.WriteLine(Arguments.ToString());
+		};
+
+		private It should_return_a_proper_XML_tag_on_method_call_ToString = () => Arguments.ToString()
+			.ShouldContain("<Directory Id=\"1\" Name=\"Foo\"></Directory");
+	}
+}