filesystemtest.vb

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

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

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

            found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(14, 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(2, found.Count, testname & "-7")

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


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

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

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

            found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(14, 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(2, found.Count, testname & "-17")

            found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(14, 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 FindInFilesTest3()
            Dim testname As String = "FindInFilesTest3"
            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() {"a*", "?b", "??"}

            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")

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

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

            found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(14, 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(2, found.Count, testname & "-7")

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


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

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

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

            found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(14, 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(2, found.Count, testname & "-17")

            found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns)
            Assert.AreEqual(14, 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 FindInFilesTest4()
            Dim testname As String = "FindInFilesTest4"
            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(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 FindInFilesTest5()
            Dim testname As String = "FindInFilesTest5"
            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() {"a?"}

            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(1, 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(1, 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)