diff --git a/wst/trunk/tests/test_suite/testformatter_unit.pas b/wst/trunk/tests/test_suite/testformatter_unit.pas index c62782004..ca6fc2cef 100644 --- a/wst/trunk/tests/test_suite/testformatter_unit.pas +++ b/wst/trunk/tests/test_suite/testformatter_unit.pas @@ -3594,7 +3594,7 @@ begin CheckEquals(AR_LEN,a.Length); for i := 0 to Pred(AR_LEN) do - Check(VAL_AR[i]=a[i]); + Check(IsZero(VAL_AR[i]-a[i]),Format('Expected : %s got %s',[FloatToStr(VAL_AR[i]),FloatToStr(a[i])])); finally a.Free(); @@ -3645,7 +3645,7 @@ begin CheckEquals(AR_LEN,a.Length); for i := 0 to Pred(AR_LEN) do - Check(VAL_AR[i]=a[i]); + Check(IsZero(VAL_AR[i]-a[i]),Format('Expected : %s got %s',[FloatToStr(VAL_AR[i]),FloatToStr(a[i])])); finally a.Free(); diff --git a/wst/trunk/tests/test_suite/wst_test_suite.lpi b/wst/trunk/tests/test_suite/wst_test_suite.lpi index bfc371dd3..d7cadca58 100644 --- a/wst/trunk/tests/test_suite/wst_test_suite.lpi +++ b/wst/trunk/tests/test_suite/wst_test_suite.lpi @@ -1,16 +1,17 @@ - + - + + @@ -18,7 +19,7 @@ - + @@ -33,47 +34,47 @@ - + - + - + - + - + - + - + - + - + @@ -83,27 +84,27 @@ - + - + - + - + - + @@ -113,7 +114,7 @@ - + @@ -123,27 +124,27 @@ - + - + - + - + - + @@ -153,7 +154,7 @@ - + @@ -163,12 +164,12 @@ - + - + @@ -211,12 +212,13 @@ + - - + +