Skip to content

Commit 50fe215

Browse files
tehraninasabMersho
authored andcommitted
FileConventions: add failing test
Add tests for DefiningEmptyStringsWithDoubleQuotes function.
1 parent b7a512d commit 50fe215

File tree

4 files changed

+42
-0
lines changed

4 files changed

+42
-0
lines changed
Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
#!/usr/bin/env -S dotnet fsi
2+
3+
open System
4+
open System.IO
5+
6+
let emptyString = String.Empty
Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
#!/usr/bin/env -S dotnet fsi
2+
3+
open System
4+
open System.IO
5+
6+
let emptyString = ""

src/FileConventions.Test/FileConventions.Test.fs

Lines changed: 26 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -586,3 +586,29 @@ let IsExecutableTest2() =
586586
))
587587

588588
Assert.That(IsExecutable fileInfo, Is.EqualTo false)
589+
590+
591+
[<Test>]
592+
let DefiningEmptyStringsWithDoubleQuotes1() =
593+
let fileInfo =
594+
(FileInfo(
595+
Path.Combine(
596+
dummyFilesDirectory.FullName,
597+
"DummyScriptWithConventionalEmptyString.fsx"
598+
)
599+
))
600+
601+
Assert.That(DefiningEmptyStringsWithDoubleQuotes fileInfo, Is.EqualTo false)
602+
603+
604+
[<Test>]
605+
let DefiningEmptyStringsWithDoubleQuotes2() =
606+
let fileInfo =
607+
(FileInfo(
608+
Path.Combine(
609+
dummyFilesDirectory.FullName,
610+
"DummyScriptWithNonConventionalEmptyString.fsx"
611+
)
612+
))
613+
614+
Assert.That(DefiningEmptyStringsWithDoubleQuotes fileInfo, Is.EqualTo true)

src/FileConventions/Library.fs

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -390,3 +390,7 @@ let NonVerboseFlags(fileInfo: FileInfo) =
390390
let IsExecutable(fileInfo: FileInfo) =
391391
let hasExecuteAccess = Syscall.access(fileInfo.FullName, AccessModes.X_OK)
392392
hasExecuteAccess = 0
393+
394+
let DefiningEmptyStringsWithDoubleQuotes(fileInfo: FileInfo) =
395+
printfn "File Path: %s" fileInfo.FullName
396+
false

0 commit comments

Comments
 (0)