pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Tests: fix not writing testmanual.xls

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2933 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
bigchimp
2014-04-08 10:26:21 +00:00
parent 435cc15729
commit 617ba13515
1 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
components/fpspreadsheet/tests/manualtests.pas
View File

@ -20,8 +20,9 @@ interface
uses uses
// Not using lazarus package as the user may be working with multiple versions // Not using lazarus package as the user may be working with multiple versions
// Instead, add .. to unit search path // Instead, add .. to unit search path
Classes, SysUtils, fpcunit, testutils, testregistry, testdecorator, Classes, SysUtils, testutils, testregistry, testdecorator, fpcunit,
fpsallformats, fpspreadsheet, xlsbiff8 {and a project requirement for lclbase for utf8 handling}, fpsallformats, fpspreadsheet,
xlsbiff8 {and a project requirement for lclbase for utf8 handling},
testsutility; testsutility;
var var
@ -36,7 +37,7 @@ type
{ TSpreadManualSetup } { TSpreadManualSetup }
TSpreadManualSetup= class(TTestSetup) TSpreadManualSetup= class(TTestSetup)
protected protected
//procedure OneTimeSetup; override; procedure OneTimeSetup; override;
procedure OneTimeTearDown; override; procedure OneTimeTearDown; override;
end; end;
@ -69,7 +70,7 @@ uses
const const
COLORSHEETNAME='colorsheet'; //for background color tests COLORSHEETNAME='colorsheet'; //for background color tests
RPNSHEETNAME='formula_sheet'; //for rpn formula tests RPNSHEETNAME='formula_sheet'; //for rpn formula tests
OUTPUT_FORMAT = sfExcel8; OUTPUT_FORMAT = sfExcel5; //change manually if you want to test different formats. To do: automatically output all formats
FALSE_TRUE: array[Boolean] of String = ('FALSE', 'TRUE'); FALSE_TRUE: array[Boolean] of String = ('FALSE', 'TRUE');
var var
@ -136,6 +137,11 @@ end;
{ TSpreadManualSetup } { TSpreadManualSetup }
procedure TSpreadManualSetup.OneTimeSetup;
begin
// One time setup for entire suite: nothing needed here yet
end;
procedure TSpreadManualSetup.OneTimeTearDown; procedure TSpreadManualSetup.OneTimeTearDown;
begin begin
if Workbook <> nil then begin if Workbook <> nil then begin
@ -152,7 +158,7 @@ end;
procedure TSpreadManualTests.TearDown; procedure TSpreadManualTests.TearDown;
begin begin
// nothing to do here, yet
end; end;
procedure TSpreadManualTests.TestBiff8CellBackgroundColor(); procedure TSpreadManualTests.TestBiff8CellBackgroundColor();
@ -194,8 +200,8 @@ procedure TSpreadManualTests.TestRPNFormula;
{$ENDIF} {$ENDIF}
initialization initialization
// Register so these tests are included in a full run // Register one time setup/teardown and associated test class to actually run the tests
RegisterTest(TSpreadManualTests); RegisterTestDecorator(TSpreadManualSetup,TSpreadManualTests);
// Initialize the norm variables in case other units want to use it: // Initialize the norm variables in case other units want to use it:
InitSollColors; InitSollColors;