<TestMethod()>
Public Sub DeleteTest()
Dim fileSystem = New MockFileSystem
Const path As String = "C:\test"
Dim directory As String = fileSystem.Path.GetDirectoryName(path)
fileSystem.AddFile(path, New MockFileData("Bla"))
Dim stream = fileSystem.File.Open(path, FileMode.Open, FileAccess.ReadWrite, FileShare.Delete)
Dim actual1 = fileSystem.Directory.GetFiles(directory, "*").Count
fileSystem.File.Delete(path)
Dim actual2 = fileSystem.Directory.GetFiles(directory, "*").Count
stream.Dispose()
Dim actual3 = fileSystem.Directory.GetFiles(directory, "*").Count
Assert.AreEqual(1, actual1, "-1-") 'Ok
Assert.AreEqual(0, actual2, "-2-") 'Ok
Assert.AreEqual(0, actual3, "-3-") 'Ups, should be 0, but is 1
End Sub