Tests(LiteralNames): extra more complex test

Author: webwarrior-ws

tests/FSharpLint.Core.Tests/Rules/Conventions/Naming/LiteralNames.fs

@@ -145,3 +145,25 @@ let super_cat = 5
         let result = this.ApplyQuickFix source
 
         Assert.AreEqual(expected, result)
+
+    [<Test>]
+    member this.SuggestedFixForComplexName() =
+        let source = """
+module Program
+
+[<Literal>]
+let SuperCatWith1Number = 5
+"""
+        let expected = """
+module Program
+
+[<Literal>]
+let super_cat_with_1_number = 5
+"""
+        this.Parse source
+
+        Assert.IsTrue(this.ErrorExistsOnLine 5)
+
+        let result = this.ApplyQuickFix source
+
+        Assert.AreEqual(expected, result)