Easy dotnet conventions to verify

src/FileConventions.Test/DummyFiles/DummyScriptWithConventionalEmptyString.fsx

@@ -0,0 +1,6 @@
+#!/usr/bin/env -S dotnet fsi
+
+open System
+open System.IO
+
+let emptyString = String.Empty

src/FileConventions.Test/DummyFiles/DummyScriptWithNonConventionalEmptyString.fsx

@@ -0,0 +1,6 @@
+#!/usr/bin/env -S dotnet fsi
+
+open System
+open System.IO
+
+let emptyString = ""

src/FileConventions.Test/FileConventions.Test.fs

@@ -586,3 +586,57 @@ let IsExecutableTest2() =
         ))
 
     Assert.That(IsExecutable fileInfo, Is.EqualTo false)
+
+
+[<Test>]
+let DefiningEmptyStringsWithDoubleQuotes1() =
+    let fileInfo =
+        (FileInfo(
+            Path.Combine(
+                dummyFilesDirectory.FullName,
+                "DummyScriptWithConventionalEmptyString.fsx"
+            )
+        ))
+
+    Assert.That(DefiningEmptyStringsWithDoubleQuotes fileInfo, Is.EqualTo false)
+
+
+[<Test>]
+let DefiningEmptyStringsWithDoubleQuotes2() =
+    let fileInfo =
+        (FileInfo(
+            Path.Combine(
+                dummyFilesDirectory.FullName,
+                "DummyScriptWithNonConventionalEmptyString.fsx"
+            )
+        ))
+
+    Assert.That(DefiningEmptyStringsWithDoubleQuotes fileInfo, Is.EqualTo true)
+
+
+[<Test>]
+let ProjFilesNamingConvention1() =
+    let fileInfo =
+        (FileInfo(
+            Path.Combine(
+                dummyFilesDirectory.FullName,
+                "DummyProjFileWithTheSameNameAsItsParentFolder",
+                "DummyProjFileWithTheSameNameAsItsParentFolder.fsproj"
+            )
+        ))
+
+    Assert.That(ProjFilesNamingConvention fileInfo, Is.EqualTo false)
+
+
+[<Test>]
+let ProjFilesNamingConvention2() =
+    let fileInfo =
+        (FileInfo(
+            Path.Combine(
+                dummyFilesDirectory.FullName,
+                "DummyProject",
+                "DummyProjFileWithoutTheSameNameAsItsParentFolder.fsproj"
+            )
+        ))
+
+    Assert.That(ProjFilesNamingConvention fileInfo, Is.EqualTo true)

src/FileConventions/Library.fs

@@ -390,3 +390,11 @@ let NonVerboseFlags(fileInfo: FileInfo) =
 let IsExecutable(fileInfo: FileInfo) =
     let hasExecuteAccess = Syscall.access(fileInfo.FullName, AccessModes.X_OK)
     hasExecuteAccess = 0
+
+let DefiningEmptyStringsWithDoubleQuotes(fileInfo: FileInfo) =
+    let fileText = File.ReadAllText fileInfo.FullName
+    fileText.Contains "\"\""
+
+let ProjFilesNamingConvention(fileInfo: FileInfo) =
+    printfn "%s" fileInfo.FullName
+    false