filesystemtest.vb

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

            Assert.AreEqual(0, found.Count, testname & "-6")

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

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


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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

        End Sub

        <Test()> _
      Public Sub FindInFilesTest6()
            Dim testname As String = "FindInFilesTest6"
            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() {"[abc]?"}

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

        End Sub


        <Test()> _
        Public Sub GetDirectories1()
            Dim testname As String = "GetDirectories1"
            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()

            CreateComplicatedFileHierarchy(dir, False)

            found = FS.GetDirectories(dir)
            Assert.AreEqual(2, found.Count, testname & "-1")


            found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(10, found.Count, testname & "-2")
            found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(2, found.Count, testname & "-3")


            patterns = New String() {"[abc]?"}
            found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(0, found.Count, testname & "-4")
            found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns)
            Assert.AreEqual(0, found.Count, testname & "-5")

            patterns = New String() {"*"}
            found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(10, found.Count, testname & "-14")
            found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns)
            Assert.AreEqual(2, found.Count, testname & "-15")

            patterns = New String() {"a*"}
            found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(1, found.Count, testname & "-24")
            found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns)
            Assert.AreEqual(1, found.Count, testname & "-25")

            patterns = New String() {"a*", "*b"}
            found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(2, found.Count, testname & "-34")
            found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns)
            Assert.AreEqual(1, found.Count, testname & "-35")

        End Sub

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

            FS.CreateDirectory(dir)

            Assert.AreEqual(FS.GetDirectoryInfo(dir).ToString, New DirectoryInfo(dir).ToString, testname & "-1")

        End Sub

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

            FS.CreateDirectory(dir)
            Dim dir1 As DriveInfo = FS.GetDriveInfo(dir)
            Dim dir2 As DriveInfo = New DriveInfo(dir)
            Assert.IsTrue(dir1.RootDirectory().Exists)
            Assert.AreEqual(dir1.ToString, dir2.ToString, testname & "-1")

        End Sub

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

            FS.CreateDirectory(dir)
            CreateFile(file, 1)

            Assert.AreEqual(FS.GetFileInfo(file).ToString, New FileInfo(file).ToString, testname & "-1")

        End Sub

        <Test()> _
        Public Sub GetFiles1()
            Dim testname As String = "GetFiles1"
            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()


            CreateComplicatedFileHierarchy(dir, False)

            found = FS.GetFiles(dir)
            Assert.AreEqual(1, found.Count, testname & "-1")


            found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories)
            Assert.AreEqual(13, found.Count, testname & "-2")
            found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly)
            Assert.AreEqual(1, found.Count, testname & "-3")


            patterns = New String() {"[abc]?"}
            found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(0, found.Count, testname & "-4")
            found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns)
            Assert.AreEqual(0, found.Count, testname & "-5")

            patterns = New String() {"*"}
            found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(13, found.Count, testname & "-14")
            found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns)
            Assert.AreEqual(1, found.Count, testname & "-15")

            patterns = New String() {"a*"}
            found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(1, found.Count, testname & "-24")
            found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns)
            Assert.AreEqual(0, found.Count, testname & "-25")

            patterns = New String() {"a*", "*b"}
            found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(2, found.Count, testname & "-34")
            found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns)
            Assert.AreEqual(0, found.Count, testname & "-35")