Update of /cvsroot/instantobjects/Source/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28186/Tests
Modified Files:
TestInstantFieldMetadata.pas
Log Message:
refactored scheme building and field metadata classes
Index: TestInstantFieldMetadata.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/TestInstantFieldMetadata.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** TestInstantFieldMetadata.pas 28 Jun 2005 03:45:51 -0000 1.4
--- TestInstantFieldMetadata.pas 15 Jul 2005 10:32:35 -0000 1.5
***************
*** 48,54 ****
procedure TestCollection;
procedure TestDataType;
- procedure TestExternalTableName;
procedure TestOptions;
- procedure TestOriginalAttributeType;
procedure TestSize;
end;
--- 48,52 ----
***************
*** 78,85 ****
FInstantFieldMetadata := TInstantFieldMetadata.Create(FCollection);
FInstantFieldMetadata.DataType := dtInteger;
- FInstantFieldMetadata.ExternalTableName := 'ExternalTableName';
FInstantFieldMetadata.Size := 10;
FInstantFieldMetadata.Options := [foRequired];
- FInstantFieldMetadata.OriginalAttributeType := atInteger;
end;
--- 76,81 ----
***************
*** 107,115 ****
end;
- procedure TestTInstantFieldMetadata.TestExternalTableName;
- begin
- AssertEquals('ExternalTableName', FInstantFieldMetadata.ExternalTableName);
- end;
-
procedure TestTInstantFieldMetadata.TestOptions;
begin
--- 103,106 ----
***************
*** 117,129 ****
end;
- procedure TestTInstantFieldMetadata.TestOriginalAttributeType;
- var
- vStr: string;
- begin
- vStr := GetEnumName(TypeInfo(TInstantAttributeType),
- Ord(FInstantFieldMetadata.OriginalAttributeType));
- AssertEquals('atInteger', vStr);
- end;
-
procedure TestTInstantFieldMetadata.TestSize;
begin
--- 108,111 ----
***************
*** 158,164 ****
procedure TestTInstantFieldMetadatas.TestAddFieldMetadata;
var
- vExternalTableName: string;
vOptions: TInstantFieldOptions;
- vOriginalAttributeType: TInstantAttributeType;
vSize: Integer;
vDataType: TInstantDataType;
--- 140,144 ----
***************
*** 170,178 ****
vDataType := dtInteger;
vSize := 10;
- vOriginalAttributeType := atInteger;
vOptions := [foRequired];
! vExternalTableName := 'ExternalTableName';
! FInstantFieldMetadatas.AddFieldMetadata(vName, vDataType, vSize,
! vOriginalAttributeType, vOptions, vExternalTableName);
AssertEquals(1, FInstantFieldMetadatas.Count);
--- 150,155 ----
vDataType := dtInteger;
vSize := 10;
vOptions := [foRequired];
! FInstantFieldMetadatas.AddFieldMetadata(vName, vDataType, vSize, vOptions);
AssertEquals(1, FInstantFieldMetadatas.Count);
***************
*** 181,192 ****
AssertEquals(vName, vInstantFieldMetadata.Name);
AssertEquals(10, vInstantFieldMetadata.Size);
- vStr := GetEnumName(TypeInfo(TInstantAttributeType),
- Ord(vInstantFieldMetadata.OriginalAttributeType));
- AssertEquals('atInteger', vStr);
AssertTrue(foRequired in vInstantFieldMetadata.Options);
vStr := GetEnumName(TypeInfo(TInstantDataType),
Ord(vInstantFieldMetadata.DataType));
AssertEquals('dtInteger', vStr);
- AssertEquals('ExternalTableName', vInstantFieldMetadata.ExternalTableName);
end;
--- 158,165 ----
|
