[Instantobjects-cvscommit] Source/Tests TestInstantFieldMetadata.pas,1.4,1.5

[Nando D. <na...@us...>]

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 ----