Create test case for dotnet#98

forki · Feb 3, 2015 · 3a6e053 · 3a6e053
1 parent af50a18
commit 3a6e053
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/fsharp/FSharp.Compiler.Unittests/ManglelingNameOfProvidedTypes.fs b/src/fsharp/FSharp.Compiler.Unittests/ManglelingNameOfProvidedTypes.fs
@@ -27,6 +27,13 @@ type ManglelingNamesOfProvidedTypesWithSingleParameter() =
         Assert.AreEqual("MyNamespace.Test",name)
         Assert.AreEqual([|"Foo","xyz"|],parameters)
 
+    [<Test>]
+    member this.DemangleDefaultValue() = 
+        // If all provided parameters are the default value demangleling fails - see #98
+        let name,parameters = PrettyNaming.demangleProvidedTypeName "MyNamespace.Test,"
+        Assert.AreEqual("MyNamespace.Test",name)
+        Assert.AreEqual([||],parameters)
+
 [<TestFixture>]
 type ManglelingNamesOfProvidedTypesWithMultipleParameter() =