' ------------------------------------------------

Function Test_AppendContents()

filePath = File.GetTemporaryFilePath()

File.AppendContents(filePath, "Test 1")

File.AppendContents(filePath, "Test 2")

Return UnitTest.AssertEqual(

File.ReadContents(filePath),

"Test 1Test 2",

"File.AppendContents"

)

EndFunction

' ------------------------------------------------

Function Test_AppendLines()

filePath = File.GetTemporaryFilePath()

File.AppendLines(filePath, "Test 1")

File.AppendLines(filePath, {"Test 2", "Test 3"})

Return UnitTest.AssertEqual(

File.ReadContents(filePath),

"Test 1" & Text.NewLine &

"Test 2" & Text.NewLine &

"Test 3" & Text.NewLine,

"File.AppendLines"

)

EndFunction

' ------------------------------------------------

Function Test_WriteAndReadArray()

a = {1, 2, 3, 4}

path = File.GetTemporaryFilePath()

If File.WriteArray(path, a) Then

Return UnitTest.AssertEqual(

File.ReadArray(path),

{1, 2, 3, 4},

"File.Write/ReadArray"

)

Else

Return File.LastError

EndIf

EndFunction