filesystemtest.vb

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

        End Sub

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

            Assert.AreEqual("a", FS.GetName("a"), testname & "-1")
            Assert.AreEqual(IO.Path.GetFileName(file), FS.GetName(file), testname & "-2")
            Assert.AreEqual(IO.Path.GetFileName(dir), FS.GetName(dir), testname & "-3")
        End Sub

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

            Assert.AreEqual("", FS.GetParentPath("a"), testname & "-1")
            Assert.AreEqual(IO.Path.GetDirectoryName(file), FS.GetParentPath(file), testname & "-2")
            Assert.AreEqual(IO.Path.GetDirectoryName(dir), FS.GetParentPath(dir), testname & "-3")
        End Sub

        <Test()> _
        Public Sub GetTempFileNameTest1()
            Dim testname As String = "GetTempFileNameTest1"

            Dim file, file2 As String

            file = FS.GetTempFileName()
            file2 = System.IO.Path.GetTempFileName

            Assert.AreEqual(System.IO.Path.GetDirectoryName(file), System.IO.Path.GetDirectoryName(file2), testname & "-1")

            IO.File.Delete(file)
            IO.File.Delete(file2)
        End Sub

        <Category("Slow")> _
        <Test()> _
        Public Sub MoveDirectoryTest1()
            Dim dira As String = BASEDIR & "MDT1_a"
            Dim filea1 As String = Path.Combine(dira, "filea1")
            Dim filea2 As String = Path.Combine(dira, "filea2")
            Dim filea3 As String = Path.Combine(dira, "filea3")

            Dim dirb As String = BASEDIR & "MDT1_b"
            Dim fileb1 As String = Path.Combine(dirb, "filea1")
            Dim fileb2 As String = Path.Combine(dirb, "filea2")
            Dim fileb3 As String = Path.Combine(dirb, "filea3")


            Dim smallgarbage As String = "somesmallgarbagehere"
            Dim mediumgarbage As String = CreateBigString(smallgarbage, 1024)
            Dim biggarbage As String = CreateBigString(mediumgarbage, 1024)

            FS.CreateDirectory(dira)
            FS.WriteAllText(filea1, smallgarbage, False)
            FS.WriteAllText(filea2, mediumgarbage, False)
            FS.WriteAllText(filea3, biggarbage, False)

            FS.MoveDirectory(dira, dirb)

            Try
                FS.MoveDirectory(dira, dirb)
                Assert.Fail("#MDT1-2 Expected 'IOException'")
            Catch ex As IOException
                Assert.AreEqual(String.Format("Could not find directory '{0}'.", dira), ex.Message, "#MDT1-3")
            Catch ex As Exception
                Assert.Fail("#MDT1-4 Expected 'IOException'")
            End Try
        End Sub

        <Test()> _
        Public Sub MoveDirectoryTest2()
            Dim dira As String = BASEDIR & "MDT2_a"
            Dim filea1 As String = Path.Combine(dira, "filea1")

            Dim dirb As String = BASEDIR & "MDT2_b"
            Dim fileb1 As String = Path.Combine(dirb, "filea1")

            Dim smallgarbage As String = "thisisgarbage"

            FS.CreateDirectory(dira)
            FS.WriteAllText(filea1, smallgarbage, False)

            FS.MoveDirectory(dira, dirb)


            Try
                FS.MoveDirectory(dira, dirb)
                Assert.Fail("#MDT2-2 Expected 'IOException'")
            Catch ex As IOException
                Assert.AreEqual(String.Format("Could not find directory '{0}'.", dira), ex.Message, "#MDT2-3")
            Catch ex As Exception
                Assert.Fail("#MDT2-4 Expected 'IOException'")
            End Try

            Try
                FS.MoveDirectory(dira, dirb, False)
                Assert.Fail("#MDT2-5 Expected 'IOException'")
            Catch ex As IOException
                Assert.AreEqual(String.Format("Could not find directory '{0}'.", dira), ex.Message, "#MDT2-6")
            Catch ex As Exception
                Assert.Fail("#MDT2-7 Expected 'IOException'")
            End Try
        End Sub

        <Test()> _
        Public Sub MoveDirectoryTest3()
            Dim dira As String = BASEDIR & "MDT3_a"
            Dim filea1 As String = Path.Combine(dira, "filea1")

            Dim dirb As String = BASEDIR & "MDT3_b"
            Dim fileb1 As String = Path.Combine(dirb, "filea1")


            Dim smallgarbage As String = "moreGarBaGe"

            FS.CreateDirectory(dira)
            FS.WriteAllText(filea1, smallgarbage, False)

            FS.MoveDirectory(dira, dirb)


        End Sub

        <Category("UI")> _
        <Test()> _
        Public Sub MoveDirectoryTest5()
            Dim dira As String = BASEDIR & "MDT5_a"
            Dim dirb As String = BASEDIR & "MDT5_b"

            CreateComplicatedFileHierarchy(dira, True)

            FS.MoveDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
            'MsgBox("On the next dialogs you may press any option")
            'FS.MoveDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
        End Sub

        <Category("UI")> _
        <Test()> _
        Public Sub MoveDirectoryTest6()
            Dim dira As String = BASEDIR & "MDT6_a"
            Dim dirb As String = BASEDIR & "MDT6_b"

            CreateComplicatedFileHierarchy(dira, True)

            FS.MoveDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
            'FS.MoveDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
        End Sub

        <Category("UI")> _
        <Test()> _
        Public Sub MoveDirectoryTest7()
            Dim dira As String = BASEDIR & "MDT7_a"
            Dim dirb As String = BASEDIR & "MDT7_b"

            CreateComplicatedFileHierarchy(dira, True)

            FS.MoveDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException)
            'FS.MoveDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException)

        End Sub

        <Category("Slow")> _
              <Test()> _
              Public Sub MoveFileTest1()
            Dim testname As String = "MFT1"
            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, 100000)
            FS.MoveFile(a, b)
            CreateFile(a, 100000)

            Helper.CompareFile(a, b, testname)

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

        <Test()> _
        Public Sub MoveFileTest2()
            Dim testname As String = "MFT2"
            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.MoveFile(a, b)
            Try
                FS.MoveFile(a, b)
                Assert.Fail(testname & "-1" & " Expected 'IOException'")
            Catch ex As IOException
#If Not TARGET_JVM Then
                Assert.AreEqual(String.Format("Could not find file '{0}'.", a), ex.Message, testname & "-2")
#End If
            End Try

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

        <Test()> _
        Public Sub MoveFileTest3()
            Dim testname As String = "MFT3"
            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)
            CreateFile(b, 10)
            FS.MoveFile(a, b, True)
            Assert.AreEqual(True, FS.FileExists(b), testname & "-1")
            Assert.AreEqual(False, FS.FileExists(a), testname & "-2")

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

        <Test()> _
        Public Sub MoveFileTest4()
            Dim testname As String = "MFT4"
            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)
            CreateFile(b, 10)
            Try
                FS.MoveFile(a, b, False)
                Assert.Fail(testname & "-1" & " Expected 'IOException'")
            Catch ex As IOException
                'Assert.AreEqual(String.Format("It is not possible to create a file that already exists." + Environment.NewLine, b), ex.Message, testname & "-2")
            End Try

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

        'TargetJvm - Option Dialogs NotSupported
        <Category("TargetJvmNotSupported")> _
        <Category("UI")> _
        <Test()> _
        Public Sub MoveFileTest5()
            Dim testname As String = "MoveFileTest5"
            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)
            CreateFile(b, SLOWFILESIZE)
            MsgBox("On the next dialogs press 'Yes'")
            FS.MoveFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)

            Assert.AreEqual(True, FS.FileExists(b), testname & "-1")
            Assert.AreEqual(False, FS.FileExists(a), testname & "-2")

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

        <Category("UI")> _
        <Test()> _
        Public