filesystemtest.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

            Helper.CompareFile(a, b, testname)

            FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents)
        End Sub

        <Test()> _
        Public Sub CopyFileTest4()
            Dim testname As String = "CFT4"
            Dim dir As String = Path.Combine(BASEDIR, testname)
            Dim a As String = Path.Combine(dir, "a.txt")
            Dim b As String = Path.Combine(dir, "b.txt")

            FS.CreateDirectory(dir)

            CreateFile(a, 10)
            FS.CopyFile(a, b)
            Try
                FS.CopyFile(a, b, False)
                Assert.Fail(testname & "-1" & " Expected 'IOException'")
            Catch ex As IOException
                Assert.AreEqual(String.Format("The file '{0}' already exists.", b), ex.Message, testname & "-2")
            End Try

            FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents)
        End Sub

        <Category("UI")> _
        <Test()> _
        Public Sub CopyFileTest5()
            Dim testname As String = "CopyFileTest5"
            Dim dir As String = Path.Combine(BASEDIR, testname)
            Dim a As String = Path.Combine(dir, "a.txt")
            Dim b As String = Path.Combine(dir, "b.txt")

            FS.CreateDirectory(dir)

            CreateFile(a, SLOWFILESIZE)
            FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
            MsgBox("On the next dialogs you may press any option")
            FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)

            Helper.CompareFile(a, b, testname)

            FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents)
        End Sub

        <Category("UI")> _
        <Test()> _
        Public Sub CopyFileTest6()
            Dim testname As String = "CopyFileTest6"
            Dim dir As String = Path.Combine(BASEDIR, testname)
            Dim a As String = Path.Combine(dir, "a.txt")
            Dim b As String = Path.Combine(dir, "b.txt")

            FS.CreateDirectory(dir)

            CreateFile(a, SLOWFILESIZE)
            FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
            FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)

            Helper.CompareFile(a, b, testname)

            FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents)
        End Sub

        'TargetJvm - Cancle UI NotSupported
        <Category("TargetJvmNotSupported")> _
        <Category("UI")> _
        <Test()> _
        Public Sub CopyFileTest7()
            Dim testname As String = "CopyFileTest7"
            Dim dir As String = Path.Combine(BASEDIR, testname)
            Dim a As String = Path.Combine(dir, "a.txt")
            Dim b As String = Path.Combine(dir, "b.txt")

            FS.CreateDirectory(dir)

            CreateFile(a, SLOWFILESIZE)
            FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException)
            MsgBox("On the next dialogs press Cancel.")
            Try
                FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException)
                Assert.Fail(testname & "-1 Expected 'OperationCanceledException'")
            Catch ex As OperationCanceledException
                Assert.AreEqual("The operation was canceled.", ex.Message, testname & "-2")
            End Try

            FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents)
        End Sub

        <Category("UI")> _
        <Test()> _
        Public Sub CopyFileTest8()
            Dim testname As String = "CopyFileTest8"
            Dim dir As String = Path.Combine(BASEDIR, testname)
            Dim a As String = Path.Combine(dir, "a.txt")
            Dim b As String = Path.Combine(dir, "b.txt")

            FS.CreateDirectory(dir)

            CreateFile(a, SLOWFILESIZE)
            FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException)
            MsgBox("On the next dialogs press Cancel.")
            FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException)


            Helper.CompareFile(a, b, testname)
            FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents)
        End Sub

        <Test()> _
        Public Sub DeleteDirectoryTest1()
            Dim testname As String = "DeleteDirectoryTest1"
            Dim dir As String = Path.Combine(BASEDIR, testname)

            FS.CreateDirectory(dir)
            FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
            Assert.AreEqual(False, FS.DirectoryExists(dir), testname & "-1")

            FS.CreateDirectory(dir)
            FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
            Assert.AreEqual(False, FS.DirectoryExists(dir), testname & "-2")
        End Sub

        <ExpectedException(GetType(IOException))> _
        <Test()> _
        Public Sub DeleteDirectoryTest2()
            Dim testname As String = "DeleteDirectoryTest2"
            Dim dir As String = Path.Combine(BASEDIR, testname)

            CreateComplicatedFileHierarchy(dir, False)

            FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)

        End Sub

        <Test()> _
        Public Sub DirectoryExistsTest1()
            Dim testname As String = "DirectoryExistsTest1"
            Dim dir As String = Path.Combine(BASEDIR, testname)
            Dim file As String = Path.Combine(dir, "file")

            Assert.AreEqual(False, FS.DirectoryExists(dir), testname & "-1")
            FS.CreateDirectory(dir)
            Assert.AreEqual(True, FS.DirectoryExists(dir), testname & "-2")
            CreateFile(file, 1)
            Assert.AreEqual(False, FS.DirectoryExists(file), testname & "-3")
        End Sub

        <Test()> _
        Public Sub DrivesTest1()
            Dim testname As String = "DrivesTest1"
            Dim dir As String = Path.Combine(BASEDIR, testname)

            Dim drives As ObjectModel.ReadOnlyCollection(Of DriveInfo)
            Dim realDrives As DriveInfo() = System.IO.DriveInfo.GetDrives()

            drives = FS.Drives

            Assert.AreEqual(realDrives.Length, drives.Count, testname & "-1")
        End Sub

        <Test()> _
        Public Sub FileExistsTest1()
            Dim testname As String = "FileExistsTest1"
            Dim dir As String = Path.Combine(BASEDIR, testname)
            Dim file As String = Path.Combine(dir, "file")

            Assert.AreEqual(False, FS.FileExists(file), testname & "-0")
            Assert.AreEqual(False, FS.FileExists(dir), testname & "-1")
            FS.CreateDirectory(dir)
            Assert.AreEqual(False, FS.FileExists(dir), testname & "-2")
            Assert.AreEqual(False, FS.FileExists(file), testname & "-3")
            CreateFile(file, 1)
            Assert.AreEqual(True, FS.FileExists(file), testname & "-3")
        End Sub

        <Test()> _
        Public Sub FindInFilesTest1()
            Dim testname As String = "FindInFilesTest1"
            Dim dir As String = Path.Combine(BASEDIR, testname)
            Dim file As String = Path.Combine(dir, "file")
            Dim found As ObjectModel.ReadOnlyCollection(Of String)

            CreateComplicatedFileHierarchy(dir, True, System.Text.Encoding.ASCII.GetBytes("FINDME"))

            found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(2, found.Count, testname & "-1")

            found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(14, found.Count, testname & "-2")

            found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(2, found.Count, testname & "-3")

            found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(14, found.Count, testname & "-4")

            found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(0, found.Count, testname & "-5")

            found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(0, found.Count, testname & "-6")

            found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(2, found.Count, testname & "-7")

            found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(14, found.Count, testname & "-8")


            found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(2, found.Count, testname & "-11")

            found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(14, found.Count, testname & "-12")

            found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(2, found.Count, testname & "-13")

            found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(14, found.Count, testname & "-14")

            found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(0, found.Count, testname & "-15")

            found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(0, found.Count, testname & "-16")

            found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(2, found.Count, testname & "-17")

            found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(14, found.Count, testname & "-18")



            found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(0, found.Count, testname & "-21")

            found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(0, found.Count, testname & "-22")

            found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(0, found.Count, testname & "-23")

            found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(0, found.Count, testname & "-24")

            found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(0, found.Count, testname & "-25")

            found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(0, found.Count, testname & "-26")

            found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(0, found.Count, testname & "-27")

            found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(0, found.Count, testname & "-28")

        End Sub

        <Test()> _
        Public Sub FindInFilesTest2()
            Dim testname As String = "FindInFilesTest2"
            Dim dir As String = Path.Combine(BASEDIR, testname)
            Dim file As String = Path.Combine(dir, "file")
            Dim found As ObjectModel.ReadOnlyCollection(Of String)
            Dim patterns As String() = New String() {"??"}

            CreateComplicatedFileHierarchy(dir, True, System.Text.Encoding.ASCII.GetBytes("FINDME"))

            found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns)
            Assert.AreEqual(2, found.Count, testname & "-1")