FB_TestFileControl  Function Block

TEST('Test_FileClose');

FileControl.Open(TestFile, Mode);
Actual := FileControl.Close();

AssertEquals_UDINT(Expected := SysDir.CmpErrors.Errors.ERR_OK,
                   Actual := Actual,
                   Message := 'File close failed');

FileControl.Delete(TestFile);

TEST_FINISHED();

TEST('Test_FileDelete');

FileControl.Open(TestFile, Mode);
FileControl.Close();
Actual := FileControl.Delete(TestFile);

AssertEquals_UDINT(Expected := Sysdir.CmpErrors.Errors.ERR_OK,
                   Actual := Actual,
                   Message := 'File deletion failed');

TEST_FINISHED();

TEST('Test_FileOpen');

FileControl.Open(TestFile, Mode);

AssertEquals_UDINT(Expected := Sysdir.CmpErrors.Errors.ERR_OK,
                   Actual := Actual,
                   Message := 'File open failed');

FileControl.Close();
FileControl.Delete(TestFile);

TEST_FINISHED();

TEST('Test_FileRead');

FileControl.Open(TestFile, Mode);
FileControl.Write(BufferPointer := ADR(WriteContents), Size := SIZEOF(WriteContents));
FileControl.Close();
FileControl.Open(TestFile, FileAccessMode := SysFile.AM_READ);

Result := FileControl.Read(BufferPointer := ADR(ReadContents), SIZEOF(ReadContents), FileSize => FileSize);

AssertEquals_STRING(Expected := WriteContents,
                    Actual := ReadContents,
                    Message := 'File read failed');

FileControl.Close();
FileControl.Delete(TestFile);

TEST_FINISHED();

TEST('Test_FileWrite');

FileControl.Open(TestFile, Mode);
Actual := FileControl.Write(BufferPointer := ADR(Contents), Size := SIZEOF(Contents));

AssertEquals_UDINT(Expected := SysDir.CmpErrors.Errors.ERR_OK,
                   Actual := Actual,
                   Message := 'File write failed');

FileControl.Close();
FileControl.Delete(TestFile);

TEST_FINISHED();