[Instantobjects-cvscommit] Source/Tests TestInstantFieldMetadata.pas,1.5,1.6 TestInstantIndexMetadata.pas,1.4,1.5 TestInstantTableMetadata.pas,1.7,1.8

[Enrique E. <the...@us...>]

Update of /cvsroot/instantobjects/Source/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24701/Tests

Modified Files:
	TestInstantFieldMetadata.pas TestInstantIndexMetadata.pas 
	TestInstantTableMetadata.pas 
Log Message:
Added Assign method to metadata classes and test support to that methods

Index: TestInstantTableMetadata.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/TestInstantTableMetadata.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** TestInstantTableMetadata.pas	18 Oct 2005 03:10:19 -0000	1.7
--- TestInstantTableMetadata.pas	6 Nov 2005 20:37:11 -0000	1.8
***************
*** 46,49 ****
--- 46,50 ----
      procedure TearDown; override;
    published
+     procedure TestAssign;
      procedure TestFieldMetadatas;
      procedure TestIndexMetadatas;
***************
*** 101,104 ****
--- 102,125 ----
  end;
  
+ procedure TestTInstantTableMetadata.TestAssign;
+ var
+   vDest: TInstantTableMetadata;
+ begin
+   vDest := TInstantTableMetadata.Create(nil);
+   try
+     AssertTrue(VDest.FieldMetadatas.Count = 0);
+     AssertTrue(VDest.IndexMetadatas.Count = 0);
+     vDest.Assign(FInstantTableMetadata);
+     AssertNotNull(VDest.FieldMetadatas);
+     AssertTrue(VDest.FieldMetadatas.Count > 0);
+     AssertTrue(VDest.FieldMetadatas[0].Equals(FInstantTableMetadata.FieldMetadatas[0]));
+     AssertNotNull(VDest.IndexMetadatas);
+     AssertTrue(VDest.IndexMetadatas.Count > 0);
+     AssertTrue(VDest.IndexMetadatas[0].Equals(FInstantTableMetadata.IndexMetadatas[0]));
+   finally
+     vDest.Free;
+   end;
+ end;
+ 
  { TestTInstantTableMetadatas }
  

Index: TestInstantFieldMetadata.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/TestInstantFieldMetadata.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** TestInstantFieldMetadata.pas	15 Jul 2005 10:32:35 -0000	1.5
--- TestInstantFieldMetadata.pas	6 Nov 2005 20:37:11 -0000	1.6
***************
*** 46,53 ****
--- 46,55 ----
      procedure TearDown; override;
    published
+     procedure TestAssign;
      procedure TestCollection;
      procedure TestDataType;
      procedure TestOptions;
      procedure TestSize;
+     procedure TestAlternateDataTypes;
    end;
  
***************
*** 78,81 ****
--- 80,84 ----
    FInstantFieldMetadata.Size := 10;
    FInstantFieldMetadata.Options := [foRequired];
+   FInstantFieldMetadata.AlternateDataTypes := [dtBoolean]
  end;
  
***************
*** 105,109 ****
  procedure TestTInstantFieldMetadata.TestOptions;
  begin
!   AssertTrue(foRequired in FInstantFieldMetadata.Options);
  end;
  
--- 108,112 ----
  procedure TestTInstantFieldMetadata.TestOptions;
  begin
!   AssertTrue(FInstantFieldMetadata.Options = [foRequired]);
  end;
  
***************
*** 113,116 ****
--- 116,142 ----
  end;
  
+ procedure TestTInstantFieldMetadata.TestAlternateDataTypes;
+ begin
+   AssertTrue(FInstantFieldMetadata.AlternateDataTypes = [dtBoolean]);
+ end;
+ 
+ procedure TestTInstantFieldMetadata.TestAssign;
+ var
+   vDest: TInstantFieldMetadata;
+   vStr: string;
+ begin
+   vDest := TInstantFieldMetadata.Create(nil);
+   try
+     vDest.Assign(FInstantFieldMetadata);
+     AssertEquals(10, vDest.Size);
+     AssertTrue(vDest.Options = [foRequired]);
+     vStr := GetEnumName(TypeInfo(TInstantDataType), Ord(vDest.DataType));
+     AssertEquals('dtInteger', vStr);
+     AssertTrue(vDest.AlternateDataTypes = [dtBoolean]);
+   finally
+     vDest.Free;
+   end;
+ end;
+ 
  procedure TestTInstantFieldMetadatas.SetUp;
  begin

Index: TestInstantIndexMetadata.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/TestInstantIndexMetadata.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** TestInstantIndexMetadata.pas	28 Jun 2005 03:45:51 -0000	1.4
--- TestInstantIndexMetadata.pas	6 Nov 2005 20:37:11 -0000	1.5
***************
*** 47,50 ****
--- 47,51 ----
      procedure TearDown; override;
    published
+     procedure TestAssign;
      procedure TestCollection;
      procedure TestFields;
***************
*** 110,113 ****
--- 111,128 ----
  end;
  
+ procedure TestTInstantIndexMetadata.TestAssign;
+ var
+   vDest: TInstantIndexMetadata;
+ begin
+   vDest := TInstantIndexMetadata.Create(nil);
+   try
+     vDest.Assign(FInstantIndexMetadata);
+     AssertEquals('IndexFields', vDest.Fields);
+     AssertTrue(vDest.Options = [ixPrimary, ixUnique]);
+   finally
+     vDest.Free;
+   end;
+ end;
+ 
  procedure TestTInstantIndexMetadatas.SetUp;
  begin