paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-08 14:25:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: dbtestframework:

Browse Source 
+ add Visual Foxpro export test

git-svn-id: trunk@26971 -
This commit is contained in:
reiniero 2014-03-06 14:38:36 +00:00
parent 77b771e91b
commit d0c93f4cd8
1 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
packages/fcl-db/tests/testdbexport.pas
View File

@ -27,11 +27,12 @@ uses
type
TDetailedExportFormats = (efDBaseIII, efDBaseIV, efDBaseVII, efCSV, efFixedLengthText, efFoxpro,
efJSON, efRTF, efSQL, efTeX, efXML, efXMLXSDAccess, efXMLXSDADONet, efXMLXSDClientDataset, efXMLXSDExcel);
efJSON, efRTF, efSQL, efTeX, efXML, efXMLXSDAccess, efXMLXSDADONet, efXMLXSDClientDataset,
efXMLXSDExcel, efVisualFoxpro);
const
TDetailedExportExtensions: array [TDetailedExportFormats] of string[5] =
('.dbf','.dbf','.dbf','.csv','.txt','.dbf','.json','.rtf','.sql','.tex',
'.xml','.xml','.xml','.xml','.xml'); //File extension for the corresponding TDetailedExportFormats
'.xml','.xml','.xml','.xml','.xml','.dbf'); //File extension for the corresponding TDetailedExportFormats
type
{ TTestDBExport }
TTestDBExport = class(TTestCase)
@ -49,6 +50,7 @@ type
procedure TestDBFExport_DBaseIV;
procedure TestDBFExport_DBaseVII;
procedure TestDBFExport_FoxPro;
procedure TestDBFExport_VisualFoxPro;
procedure TestCSVExport; //tests csv export with default values
procedure TestCSVExport_RFC4180WithHeader; //tests csv export with settings that match RFC4180
procedure TestCSVExport_TweakSettingsSemicolon; //tests semicolon delimited, custom country values
@ -93,6 +95,7 @@ begin
efCSV: result:=true;
efFixedLengthText: result:=true; //todo: verify if all fields are really supported. Quick glance would indicate so
efFoxpro: if FieldType in FoxProUnsupported then result:=false;
efVisualFoxpro: if FieldType in FoxProUnsupported-[ftVarBytes] then result:=false;
efJSON: result:=true;
efRTF: result:=true;
efSQL: result:=true;
@ -255,6 +258,33 @@ begin
end;
end;
procedure TTestDBExport.TestDBFExport_VisualFoxPro;
var
Exporter: TFPDBFExport;
ExportFormat: TDetailedExportFormats;
ExportSettings:TDBFExportFormatSettings;
begin
Exporter := TFPDBFExport.Create(nil);
ExportSettings:=TDBFExportFormatSettings.Create(true);
try
ExportFormat:=efVisualFoxpro;
ExportSettings.TableFormat:=tfVisualFoxPro;
ExportSettings.AutoRenameFields:=true; //rename conflicting column names
Exporter.FileName := FExportTempDir + inttostr(ord(ExportFormat)) +
lowercase(rightstr(TestName,5)) +
TDetailedExportExtensions[ExportFormat];
Exporter.FormatSettings:=ExportSettings;
GenericExportTest(Exporter, ExportFormat);
AssertTrue('Output file must be created', FileExists(Exporter.FileName));
AssertFalse('Output file must not be empty', (GetFileSize(Exporter.FileName) = 0));
finally
if (FKeepFilesAfterTest = False) then
DeleteFile(Exporter.FileName);
ExportSettings.Free;
Exporter.Free;
end;
end;
procedure TTestDBExport.TestXSDExport_Access_NoXSD_DecimalOverride;
var
Exporter: TXMLXSDExporter;