diff --git a/components/fpspreadsheet/tests/colortests.pas b/components/fpspreadsheet/tests/colortests.pas index 57779800a..800383c40 100644 --- a/components/fpspreadsheet/tests/colortests.pas +++ b/components/fpspreadsheet/tests/colortests.pas @@ -29,38 +29,38 @@ type // Writes out colors & reads back. { BIFF2 file format tests } - procedure TestWriteReadBIFF2_Font_InternalPal; // internal palette for BIFF2 file format + procedure TestWriteRead_BIFF2_Font_InternalPal; // internal palette for BIFF2 file format { BIFF5 file format tests } // Background colors... - procedure TestWriteReadBIFF5_Background_InternalPal; // internal palette - procedure TestWriteReadBIFF5_Background_Biff5Pal; // official biff5 palette - procedure TestWriteReadBIFF5_Background_Biff8Pal; // official biff8 palette - procedure TestWriteReadBIFF5_Background_RandomPal; // palette 64, top 56 entries random + procedure TestWriteRead_BIFF5_Background_InternalPal; // internal palette + procedure TestWriteRead_BIFF5_Background_Biff5Pal; // official biff5 palette + procedure TestWriteRead_BIFF5_Background_Biff8Pal; // official biff8 palette + procedure TestWriteRead_BIFF5_Background_RandomPal; // palette 64, top 56 entries random // Font colors... - procedure TestWriteReadBIFF5_Font_InternalPal; // internal palette for BIFF8 file format - procedure TestWriteReadBIFF5_Font_Biff5Pal; // official biff5 palette in BIFF8 file format - procedure TestWriteReadBIFF5_Font_Biff8Pal; // official biff8 palette in BIFF8 file format - procedure TestWriteReadBIFF5_Font_RandomPal; // palette 64, top 56 entries random + procedure TestWriteRead_BIFF5_Font_InternalPal; // internal palette for BIFF8 file format + procedure TestWriteRead_BIFF5_Font_Biff5Pal; // official biff5 palette in BIFF8 file format + procedure TestWriteRead_BIFF5_Font_Biff8Pal; // official biff8 palette in BIFF8 file format + procedure TestWriteRead_BIFF5_Font_RandomPal; // palette 64, top 56 entries random { BIFF8 file format tests } // Background colors... - procedure TestWriteReadBIFF8_Background_InternalPal; // internal palette - procedure TestWriteReadBIFF8_Background_Biff5Pal; // official biff5 palette - procedure TestWriteReadBIFF8_Background_Biff8Pal; // official biff8 palette - procedure TestWriteReadBIFF8_Background_RandomPal; // palette 64, top 56 entries random + procedure TestWriteRead_BIFF8_Background_InternalPal; // internal palette + procedure TestWriteRead_BIFF8_Background_Biff5Pal; // official biff5 palette + procedure TestWriteRead_BIFF8_Background_Biff8Pal; // official biff8 palette + procedure TestWriteRead_BIFF8_Background_RandomPal; // palette 64, top 56 entries random // Font colors... - procedure TestWriteReadBIFF8_Font_InternalPal; // internal palette for BIFF8 file format - procedure TestWriteReadBIFF8_Font_Biff5Pal; // official biff5 palette in BIFF8 file format - procedure TestWriteReadBIFF8_Font_Biff8Pal; // official biff8 palette in BIFF8 file format - procedure TestWriteReadBIFF8_Font_RandomPal; // palette 64, top 56 entries random + procedure TestWriteRead_BIFF8_Font_InternalPal; // internal palette for BIFF8 file format + procedure TestWriteRead_BIFF8_Font_Biff5Pal; // official biff5 palette in BIFF8 file format + procedure TestWriteRead_BIFF8_Font_Biff8Pal; // official biff8 palette in BIFF8 file format + procedure TestWriteRead_BIFF8_Font_RandomPal; // palette 64, top 56 entries random { OpenDocument file format tests } // Background colors... - procedure TestWriteReadODS_Background_InternalPal; // internal palette - procedure TestWriteReadODS_Background_Biff5Pal; // official biff5 palette - procedure TestWriteReadODS_Background_Biff8Pal; // official biff8 palette - procedure TestWriteReadODS_Background_RandomPal; // palette 64, top 56 entries random + procedure TestWriteRead_ODS_Background_InternalPal; // internal palette + procedure TestWriteRead_ODS_Background_Biff5Pal; // official biff5 palette + procedure TestWriteRead_ODS_Background_Biff8Pal; // official biff8 palette + procedure TestWriteRead_ODS_Background_RandomPal; // palette 64, top 56 entries random // Font colors... procedure TestWriteRead_ODS_Font_InternalPal; // internal palette for BIFF8 file format procedure TestWriteRead_ODS_Font_Biff5Pal; // official biff5 palette in BIFF8 file format @@ -107,10 +107,7 @@ var i: Integer; begin TempFile:=GetTempFileName; - {// Not needed: use workbook.writetofile with overwrite=true - if fileexists(TempFile) then - DeleteFile(TempFile); - } + MyWorkbook := TsWorkbook.Create; MyWorkSheet:= MyWorkBook.AddWorksheet(ColorsSheet); @@ -194,10 +191,7 @@ var i: Integer; begin TempFile:=GetTempFileName; - {// Not needed: use workbook.writetofile with overwrite=true - if fileexists(TempFile) then - DeleteFile(TempFile); - } + MyWorkbook := TsWorkbook.Create; MyWorkSheet:= MyWorkBook.AddWorksheet(ColorsSheet); @@ -266,110 +260,110 @@ end; { Tests for BIFF2 file format } { BIFF2 supports only a fixed palette, and no background color --> test only internal palette for font color } -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF2_Font_InternalPal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF2_Font_InternalPal; begin TestWriteReadFontColors(sfExcel2, 0); end; { Tests for BIFF5 file format } -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Background_InternalPal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Background_InternalPal; begin TestWriteReadBackgroundColors(sfExcel5, 0); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Background_Biff5Pal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Background_Biff5Pal; begin TestWriteReadBackgroundColors(sfExcel5, 5); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Background_Biff8Pal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Background_Biff8Pal; begin TestWriteReadBackgroundColors(sfExcel5, 8); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Background_RandomPal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Background_RandomPal; begin TestWriteReadBackgroundColors(sfExcel5, 999); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Font_InternalPal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Font_InternalPal; begin TestWriteReadFontColors(sfExcel5, 0); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Font_Biff5Pal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Font_Biff5Pal; begin TestWriteReadFontColors(sfExcel5, 5); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Font_Biff8Pal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Font_Biff8Pal; begin TestWriteReadFontColors(sfExcel5, 8); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Font_RandomPal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Font_RandomPal; begin TestWriteReadFontColors(sfExcel5, 999); end; { Tests for BIFF8 file format } -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Background_InternalPal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Background_InternalPal; begin TestWriteReadBackgroundColors(sfExcel8, 0); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Background_Biff5Pal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Background_Biff5Pal; begin TestWriteReadBackgroundColors(sfExcel8, 5); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Background_Biff8Pal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Background_Biff8Pal; begin TestWriteReadBackgroundColors(sfExcel8, 8); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Background_RandomPal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Background_RandomPal; begin TestWriteReadBackgroundColors(sfExcel8, 999); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Font_InternalPal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Font_InternalPal; begin TestWriteReadFontColors(sfExcel8, 0); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Font_Biff5Pal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Font_Biff5Pal; begin TestWriteReadFontColors(sfExcel8, 5); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Font_Biff8Pal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Font_Biff8Pal; begin TestWriteReadFontColors(sfExcel8, 8); end; -procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Font_RandomPal; +procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Font_RandomPal; begin TestWriteReadFontColors(sfExcel8, 999); end; { Tests for Open Document file format } -procedure TSpreadWriteReadColorTests.TestWriteReadODS_Background_InternalPal; +procedure TSpreadWriteReadColorTests.TestWriteRead_ODS_Background_InternalPal; begin TestWriteReadBackgroundColors(sfOpenDocument, 0); end; -procedure TSpreadWriteReadColorTests.TestWriteReadODS_Background_Biff5Pal; +procedure TSpreadWriteReadColorTests.TestWriteRead_ODS_Background_Biff5Pal; begin TestWriteReadBackgroundColors(sfOpenDocument, 5); end; -procedure TSpreadWriteReadColorTests.TestWriteReadODS_Background_Biff8Pal; +procedure TSpreadWriteReadColorTests.TestWriteRead_ODS_Background_Biff8Pal; begin TestWriteReadBackgroundColors(sfOpenDocument, 8); end; -procedure TSpreadWriteReadColorTests.TestWriteReadODS_Background_RandomPal; +procedure TSpreadWriteReadColorTests.TestWriteRead_ODS_Background_RandomPal; begin TestWriteReadBackgroundColors(sfOpenDocument, 999); end; diff --git a/components/fpspreadsheet/tests/fonttests.pas b/components/fpspreadsheet/tests/fonttests.pas index 8f00a7768..0e046fb2e 100644 --- a/components/fpspreadsheet/tests/fonttests.pas +++ b/components/fpspreadsheet/tests/fonttests.pas @@ -38,22 +38,22 @@ type published // BIFF2 test cases - procedure TestWriteReadBoldBIFF2; - procedure TestWriteReadFontBIFF2_Arial; - procedure TestWriteReadFontBIFF2_TimesNewRoman; - procedure TestWriteReadFontBIFF2_CourierNew; + procedure TestWriteReadBold_BIFF2; + procedure TestWriteReadFont_BIFF2_Arial; + procedure TestWriteReadFont_BIFF2_TimesNewRoman; + procedure TestWriteReadFont_BIFF2_CourierNew; // BIFF5 test cases - procedure TestWriteReadBoldBIFF5; - procedure TestWriteReadFontBIFF5_Arial; - procedure TestWriteReadFontBIFF5_TimesNewRoman; - procedure TestWriteReadFontBIFF5_CourierNew; + procedure TestWriteReadBold_BIFF5; + procedure TestWriteReadFont_BIFF5_Arial; + procedure TestWriteReadFont_BIFF5_TimesNewRoman; + procedure TestWriteReadFont_BIFF5_CourierNew; // BIFF8 test cases - procedure TestWriteReadBoldBIFF8; - procedure TestWriteReadFontBIFF8_Arial; - procedure TestWriteReadFontBIFF8_TimesNewRoman; - procedure TestWriteReadFontBIFF8_CourierNew; + procedure TestWriteReadBold_BIFF8; + procedure TestWriteReadFont_BIFF8_Arial; + procedure TestWriteReadFont_BIFF8_TimesNewRoman; + procedure TestWriteReadFont_BIFF8_CourierNew; end; implementation @@ -190,17 +190,17 @@ begin DeleteFile(TempFile); end; -procedure TSpreadWriteReadFontTests.TestWriteReadBoldBIFF2; +procedure TSpreadWriteReadFontTests.TestWriteReadBold_BIFF2; begin TestWriteReadBold(sfExcel2); end; -procedure TSpreadWriteReadFontTests.TestWriteReadBoldBIFF5; +procedure TSpreadWriteReadFontTests.TestWriteReadBold_BIFF5; begin TestWriteReadBold(sfExcel5); end; -procedure TSpreadWriteReadFontTests.TestWriteReadBoldBIFF8; +procedure TSpreadWriteReadFontTests.TestWriteReadBold_BIFF8; begin TestWriteReadBold(sfExcel8); end; @@ -282,49 +282,49 @@ begin end; { BIFF2 } -procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF2_Arial; +procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF2_Arial; begin TestWriteReadFont(sfExcel2, 'Arial'); end; -procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF2_TimesNewRoman; +procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF2_TimesNewRoman; begin TestWriteReadFont(sfExcel2, 'TimesNewRoman'); end; -procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF2_CourierNew; +procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF2_CourierNew; begin TestWriteReadFont(sfExcel2, 'CourierNew'); end; { BIFF5 } -procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF5_Arial; +procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF5_Arial; begin TestWriteReadFont(sfExcel5, 'Arial'); end; -procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF5_TimesNewRoman; +procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF5_TimesNewRoman; begin TestWriteReadFont(sfExcel5, 'TimesNewRoman'); end; -procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF5_CourierNew; +procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF5_CourierNew; begin TestWriteReadFont(sfExcel5, 'CourierNew'); end; { BIFF8 } -procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF8_Arial; +procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF8_Arial; begin TestWriteReadFont(sfExcel8, 'Arial'); end; -procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF8_TimesNewRoman; +procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF8_TimesNewRoman; begin TestWriteReadFont(sfExcel8, 'TimesNewRoman'); end; -procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF8_CourierNew; +procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF8_CourierNew; begin TestWriteReadFont(sfExcel8, 'CourierNew'); end; diff --git a/components/fpspreadsheet/tests/formulatests.pas b/components/fpspreadsheet/tests/formulatests.pas index 864872880..3aeff45e8 100644 --- a/components/fpspreadsheet/tests/formulatests.pas +++ b/components/fpspreadsheet/tests/formulatests.pas @@ -27,11 +27,11 @@ type // Writes out numbers & reads back. // If previous read tests are ok, this effectively tests writing. { BIFF2 Tests } - procedure TestWriteReadBIFF2_FormulaStrings; + procedure TestWriteRead_BIFF2_FormulaStrings; { BIFF5 Tests } - procedure TestWriteReadBIFF5_FormulaStrings; + procedure TestWriteRead_BIFF5_FormulaStrings; { BIFF8 Tests } - procedure TestWriteReadBIFF8_FormulaStrings; + procedure TestWriteRead_BIFF8_FormulaStrings; end; implementation @@ -104,17 +104,17 @@ begin DeleteFile(TempFile); end; -procedure TSpreadWriteReadFormulaTests.TestWriteReadBIFF2_FormulaStrings; +procedure TSpreadWriteReadFormulaTests.TestWriteRead_BIFF2_FormulaStrings; begin TestWriteReadFormulaStrings(sfExcel2); end; -procedure TSpreadWriteReadFormulaTests.TestWriteReadBIFF5_FormulaStrings; +procedure TSpreadWriteReadFormulaTests.TestWriteRead_BIFF5_FormulaStrings; begin TestWriteReadFormulaStrings(sfExcel5); end; -procedure TSpreadWriteReadFormulaTests.TestWriteReadBIFF8_FormulaStrings; +procedure TSpreadWriteReadFormulaTests.TestWriteRead_BIFF8_FormulaStrings; begin TestWriteReadFormulaStrings(sfExcel8); end; diff --git a/components/fpspreadsheet/tests/optiontests.pas b/components/fpspreadsheet/tests/optiontests.pas index e12f76cc5..7d5cff5fb 100644 --- a/components/fpspreadsheet/tests/optiontests.pas +++ b/components/fpspreadsheet/tests/optiontests.pas @@ -32,32 +32,32 @@ type // Writes out sheet options & reads back. { BIFF2 tests } - procedure TestWriteReadBIFF2_ShowGridLines_ShowHeaders; - procedure TestWriteReadBIFF2_ShowGridLines_HideHeaders; - procedure TestWriteReadBIFF2_HideGridLines_ShowHeaders; - procedure TestWriteReadBIFF2_HideGridLines_HideHeaders; + procedure TestWriteRead_BIFF2_ShowGridLines_ShowHeaders; + procedure TestWriteRead_BIFF2_ShowGridLines_HideHeaders; + procedure TestWriteRead_BIFF2_HideGridLines_ShowHeaders; + procedure TestWriteRead_BIFF2_HideGridLines_HideHeaders; { BIFF5 tests } - procedure TestWriteReadBIFF5_ShowGridLines_ShowHeaders; - procedure TestWriteReadBIFF5_ShowGridLines_HideHeaders; - procedure TestWriteReadBIFF5_HideGridLines_ShowHeaders; - procedure TestWriteReadBIFF5_HideGridLines_HideHeaders; + procedure TestWriteRead_BIFF5_ShowGridLines_ShowHeaders; + procedure TestWriteRead_BIFF5_ShowGridLines_HideHeaders; + procedure TestWriteRead_BIFF5_HideGridLines_ShowHeaders; + procedure TestWriteRead_BIFF5_HideGridLines_HideHeaders; - procedure TestWriteReadBIFF5_Panes_HorVert; - procedure TestWriteReadBIFF5_Panes_Hor; - procedure TestWriteReadBIFF5_Panes_Vert; - procedure TestWriteReadBIFF5_Panes_None; + procedure TestWriteRead_BIFF5_Panes_HorVert; + procedure TestWriteRead_BIFF5_Panes_Hor; + procedure TestWriteRead_BIFF5_Panes_Vert; + procedure TestWriteRead_BIFF5_Panes_None; { BIFF8 tests } - procedure TestWriteReadBIFF8_ShowGridLines_ShowHeaders; - procedure TestWriteReadBIFF8_ShowGridLines_HideHeaders; - procedure TestWriteReadBIFF8_HideGridLines_ShowHeaders; - procedure TestWriteReadBIFF8_HideGridLines_HideHeaders; + procedure TestWriteRead_BIFF8_ShowGridLines_ShowHeaders; + procedure TestWriteRead_BIFF8_ShowGridLines_HideHeaders; + procedure TestWriteRead_BIFF8_HideGridLines_ShowHeaders; + procedure TestWriteRead_BIFF8_HideGridLines_HideHeaders; - procedure TestWriteReadBIFF8_Panes_HorVert; - procedure TestWriteReadBIFF8_Panes_Hor; - procedure TestWriteReadBIFF8_Panes_Vert; - procedure TestWriteReadBIFF8_Panes_None; + procedure TestWriteRead_BIFF8_Panes_HorVert; + procedure TestWriteRead_BIFF8_Panes_Hor; + procedure TestWriteRead_BIFF8_Panes_Vert; + procedure TestWriteRead_BIFF8_Panes_None; end; implementation @@ -126,64 +126,64 @@ begin end; { Tests for BIFF2 grid lines and/or headers } -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF2_ShowGridLines_ShowHeaders; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF2_ShowGridLines_ShowHeaders; begin TestWriteReadGridHeaders(sfExcel2, true, true); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF2_ShowGridLines_HideHeaders; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF2_ShowGridLines_HideHeaders; begin TestWriteReadGridHeaders(sfExcel2, true, false); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF2_HideGridLines_ShowHeaders; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF2_HideGridLines_ShowHeaders; begin TestWriteReadGridHeaders(sfExcel2, false, true); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF2_HideGridLines_HideHeaders; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF2_HideGridLines_HideHeaders; begin TestWriteReadGridHeaders(sfExcel2, false, false); end; { Tests for BIFF5 grid lines and/or headers } -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_ShowGridLines_ShowHeaders; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_ShowGridLines_ShowHeaders; begin TestWriteReadGridHeaders(sfExcel5, true, true); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_ShowGridLines_HideHeaders; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_ShowGridLines_HideHeaders; begin TestWriteReadGridHeaders(sfExcel5, true, false); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_HideGridLines_ShowHeaders; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_HideGridLines_ShowHeaders; begin TestWriteReadGridHeaders(sfExcel5, false, true); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_HideGridLines_HideHeaders; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_HideGridLines_HideHeaders; begin TestWriteReadGridHeaders(sfExcel5, false, false); end; { Tests for BIFF8 grid lines and/or headers } -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_ShowGridLines_ShowHeaders; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_ShowGridLines_ShowHeaders; begin TestWriteReadGridHeaders(sfExcel8, true, true); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_ShowGridLines_HideHeaders; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_ShowGridLines_HideHeaders; begin TestWriteReadGridHeaders(sfExcel8, true, false); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_HideGridLines_ShowHeaders; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_HideGridLines_ShowHeaders; begin TestWriteReadGridHeaders(sfExcel8, false, true); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_HideGridLines_HideHeaders; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_HideGridLines_HideHeaders; begin TestWriteReadGridHeaders(sfExcel8, false, false); end; @@ -233,43 +233,43 @@ begin end; { Tests for BIFF5 frozen panes } -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_Panes_HorVert; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_Panes_HorVert; begin TestWriteReadPanes(sfExcel5, 1, 2); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_Panes_Hor; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_Panes_Hor; begin TestWriteReadPanes(sfExcel5, 1, 0); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_Panes_Vert; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_Panes_Vert; begin TestWriteReadPanes(sfExcel5, 0, 2); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_Panes_None; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_Panes_None; begin TestWriteReadPanes(sfExcel5, 0, 0); end; { Tests for BIFF8 frozen panes } -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_Panes_HorVert; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_Panes_HorVert; begin TestWriteReadPanes(sfExcel8, 1, 2); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_Panes_Hor; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_Panes_Hor; begin TestWriteReadPanes(sfExcel8, 1, 0); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_Panes_Vert; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_Panes_Vert; begin TestWriteReadPanes(sfExcel8, 0, 2); end; -procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_Panes_None; +procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_Panes_None; begin TestWriteReadPanes(sfExcel8, 0, 0); end;