Fixed tests

Author: hez2010

TypedocConverter.Test/test.expected

@@ -149,7 +149,7 @@ namespace TypedocConverter.Test
                         "A" => UnionStr.A,
                         "B" => UnionStr.B,
                         "C" => UnionStr.C,
-                        "Other" => UnionStr.Other,
+                        "other" => UnionStr.Other,
                         _ => throw new System.Exception("Cannot unmarshal type UnionStr")
                     },
                 _ => throw new System.Exception("Cannot unmarshal type UnionStr")
@@ -163,7 +163,7 @@ namespace TypedocConverter.Test
                 case UnionStr.A: serializer.Serialize(writer, "A"); return;
                 case UnionStr.B: serializer.Serialize(writer, "B"); return;
                 case UnionStr.C: serializer.Serialize(writer, "C"); return;
-                case UnionStr.Other: serializer.Serialize(writer, "Other"); return;
+                case UnionStr.Other: serializer.Serialize(writer, "other"); return;
                 default: break;
             }
             throw new System.Exception("Cannot marshal type UnionStr");

TypedocConverter/EnumParser.fs

@@ -45,7 +45,7 @@ let parseEnum (section: string) (node: Reflection): Entity =
                 | _ -> ""
             let mutable intValue = 0L
             match x.DefaultValue with
-            | Some value -> if Int64.TryParse(value, &intValue) then { Comment = comment; Name = toPascalCase x.Name; Value = Some intValue; }
+            | Some value -> if Int64.TryParse(value, &intValue) then { Comment = comment; Name = x.Name; Value = Some intValue; }
                             else match getEnumReferencedValue values value x.Name with
                                  | Some t -> { Comment = comment; Name = x.Name; Value = Some (int64 t); }
                                  | _ -> { Comment = comment; Name = x.Name; Value = None; }

TypedocConverter/Helpers.fs

@@ -198,7 +198,7 @@ and getGenericTypeParameters (nodes: Reflection list) = // TODO: generate consta
         |> List.map (fun x -> x.Name)
     types |> List.map (fun x -> {| Type = x; Constraint = "" |})
 and typeSorter typeA typeB = 
-    let typesOrder = ["array"; "tuple"; "reference"; "intrinsic"]
+    let typesOrder = ["array"; "tuple"; "reference"; "reflection"; "stringLiteral"; "intrinsic"]
     let indexA = typesOrder |> List.tryFindIndex (fun x -> x = typeA.Type)
     let indexB = typesOrder |> List.tryFindIndex (fun x -> x = typeB.Type)
     match (indexA, indexB) with

TypedocConverter/TypeAliasParser.fs

@@ -18,7 +18,7 @@ let parseUnionTypeAlias (section: string) (node: Reflection) (nodes: Type list):
                     match x.Value with
                     | Some value -> 
                         [{
-                            Name = toPascalCase value
+                            Name = value
                             Comment = "///<summary>\n" + toCommentText value + "\n///</summary>"
                             Value = None
                         }]