[Instantobjects-cvscommit] Source/Tests TestInstantBoolean.pas,1.1,1.2 TestInstantFloat.pas,1.1,1.2 TestInstantNumeric.pas,1.1,1.2 TestInstantString.pas,1.2,1.3

[uberto b. <ub...@us...>]

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

Modified Files:
	TestInstantBoolean.pas TestInstantFloat.pas 
	TestInstantNumeric.pas TestInstantString.pas 
Log Message:
Fixed some locale setting

Index: TestInstantNumeric.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/TestInstantNumeric.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TestInstantNumeric.pas	7 May 2005 04:59:48 -0000	1.1
--- TestInstantNumeric.pas	8 May 2005 20:18:25 -0000	1.2
***************
*** 97,101 ****
  
    FInstantNumeric.Value := 1000;
!   FInstantNumeric.Metadata.EditMask := '#' + ThousandSeparator + '000';
    AssertEquals('DisplayText is incorrect!', '1' + ThousandSeparator + '000',
      FInstantNumeric.DisplayText);
--- 97,101 ----
  
    FInstantNumeric.Value := 1000;
!   FInstantNumeric.Metadata.EditMask := '#,000'; //EditMask don't use ThousandSeparator var
    AssertEquals('DisplayText is incorrect!', '1' + ThousandSeparator + '000',
      FInstantNumeric.DisplayText);

Index: TestInstantFloat.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/TestInstantFloat.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TestInstantFloat.pas	7 May 2005 04:59:48 -0000	1.1
--- TestInstantFloat.pas	8 May 2005 20:18:25 -0000	1.2
***************
*** 91,97 ****
  procedure TestTInstantFloat.TestAsString;
  begin
!   FInstantFloat.AsString := '1.3';
    AssertEquals('Set AsString is incorrect!', 1.3, FInstantFloat.Value);
!   AssertEquals('Get AsString is incorrect!', '1.3', FInstantFloat.AsString);
  end;
  
--- 91,97 ----
  procedure TestTInstantFloat.TestAsString;
  begin
!   FInstantFloat.AsString := '1' + DecimalSeparator + '3';
    AssertEquals('Set AsString is incorrect!', 1.3, FInstantFloat.Value);
!   AssertEquals('Get AsString is incorrect!', '1' + DecimalSeparator + '3', FInstantFloat.AsString);
  end;
  
***************
*** 110,114 ****
    AssertEquals('Reset value is incorrect!', 1.3, FInstantFloat.Value);
  
!   FInstantFloat.Metadata.DefaultValue := '15.7';
    FInstantFloat.Reset;
    AssertEquals('Reset value is incorrect!', 15.7, FInstantFloat.Value);
--- 110,114 ----
    AssertEquals('Reset value is incorrect!', 1.3, FInstantFloat.Value);
  
!   FInstantFloat.Metadata.DefaultValue := '15' + DecimalSeparator + '7';
    FInstantFloat.Reset;
    AssertEquals('Reset value is incorrect!', 15.7, FInstantFloat.Value);
***************
*** 134,136 ****
  
  end.
!  
\ No newline at end of file
--- 134,136 ----
  
  end.
!  

Index: TestInstantString.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/TestInstantString.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** TestInstantString.pas	7 May 2005 04:59:49 -0000	1.2
--- TestInstantString.pas	8 May 2005 20:18:25 -0000	1.3
***************
*** 69,75 ****
  
  procedure TestTInstantString.TestAsCurrency;
  begin
!   FInstantString.AsCurrency := 23.45;
!   AssertEquals('Set AsCurrency is incorrect!', '23.45', FInstantString.Value);
    AssertEquals('Get AsCurrency is incorrect!', 23.45,
      FInstantString.AsCurrency);
--- 69,78 ----
  
  procedure TestTInstantString.TestAsCurrency;
+ var
+   c: Currency;
  begin
!   c := 23.45;
!   FInstantString.AsCurrency := c;
!   AssertEquals('Set AsCurrency is incorrect!', '23' + DecimalSeparator + '45', FInstantString.Value);
    AssertEquals('Get AsCurrency is incorrect!', 23.45,
      FInstantString.AsCurrency);
***************
*** 88,92 ****
  begin
    FInstantString.AsFloat := 89.45;
!   AssertEquals('Set AsFloat is incorrect!', '89.45', FInstantString.Value);
    AssertEquals('Get AsFloat is incorrect!', 89.45, FInstantString.AsFloat);
  end;
--- 91,95 ----
  begin
    FInstantString.AsFloat := 89.45;
!   AssertEquals('Set AsFloat is incorrect!', '89' + DecimalSeparator + '45', FInstantString.Value);
    AssertEquals('Get AsFloat is incorrect!', 89.45, FInstantString.AsFloat);
  end;
***************
*** 197,199 ****
  
  end.
!  
\ No newline at end of file
--- 200,202 ----
  
  end.
!  

Index: TestInstantBoolean.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/TestInstantBoolean.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TestInstantBoolean.pas	7 May 2005 04:59:48 -0000	1.1
--- TestInstantBoolean.pas	8 May 2005 20:18:24 -0000	1.2
***************
*** 70,76 ****
  procedure TestTInstantBoolean.TestAsCurrency;
  begin
!   FInstantBoolean.AsCurrency := 89.45;
    AssertTrue('Set AsCurrency is incorrect!', FInstantBoolean.Value);
!   AssertEquals('Get AsCurrency is incorrect!', 89.0, FInstantBoolean.AsCurrency);
  end;
  
--- 70,76 ----
  procedure TestTInstantBoolean.TestAsCurrency;
  begin
!   FInstantBoolean.AsCurrency := 1;
    AssertTrue('Set AsCurrency is incorrect!', FInstantBoolean.Value);
!   AssertEquals('Get AsCurrency is incorrect!', 1, FInstantBoolean.AsCurrency);
  end;
  
***************
*** 97,110 ****
  procedure TestTInstantBoolean.TestAsFloat;
  begin
!   FInstantBoolean.AsFloat := 89.45;
    AssertTrue('Set AsFloat is incorrect!', FInstantBoolean.Value);
!   AssertEquals('Get AsFloat is incorrect!', 89.0, FInstantBoolean.AsFloat);
  end;
  
  procedure TestTInstantBoolean.TestAsInteger;
  begin
!   FInstantBoolean.AsInteger := 100;
    AssertTrue('Set AsInteger is incorrect!', FInstantBoolean.Value);
!   AssertEquals('Get AsInteger is incorrect!', 100, FInstantBoolean.AsInteger);
  end;
  
--- 97,110 ----
  procedure TestTInstantBoolean.TestAsFloat;
  begin
!   FInstantBoolean.AsFloat := 1;
    AssertTrue('Set AsFloat is incorrect!', FInstantBoolean.Value);
!   AssertEquals('Get AsFloat is incorrect!', 1, FInstantBoolean.AsFloat);
  end;
  
  procedure TestTInstantBoolean.TestAsInteger;
  begin
!   FInstantBoolean.AsInteger := 1;
    AssertTrue('Set AsInteger is incorrect!', FInstantBoolean.Value);
!   AssertEquals('Get AsInteger is incorrect!', 1, FInstantBoolean.AsInteger);
  end;
  
***************
*** 216,218 ****
  
  end.
!  
\ No newline at end of file
--- 216,218 ----
  
  end.
!