2014-05-19 17:06 GMT+08:00 Piotr Caban piotr.caban@gmail.com:
On 05/19/14 08:47, Shuai Meng wrote:
+Call ok(CCur(0.000149) = 0.0001, "CCur(0.000149) = " & CCur(0.000149)) +Call ok(getVT(CCur(0.000149)) = "VT_CY", "getVT(CCur(0.000149)) = " & getVT(CCur(0.000149))) +Call ok(CCur(2147483647.99) = 2147483647.99, "CCur(2147483647.99) = " & CCur(2147483647.99)) +Call ok(getVT(CCur(2147483647.99)) = "VT_CY", "getVT(CCur(2147483647.99)) = " & getVT(CCur(2147483647.99)))
This tests are failing on polish locale.
Sorry, I forget this again.
+Call ok(CCur(MyObject) = 0, "CCur(MyObject) = " & CCur(MyObject))
+Call ok(getVT(CCur(MyObject)) = "VT_CY", "getVT(CCur(MyObject)) = " & getVT(CCur(MyObject))) +MyObject.myval = 1 +Call ok(CCur(MyObject) = 1, "CCur(MyObject) = " & CCur(MyObject)) +Call ok(getVT(CCur(MyObject)) = "VT_CY", "getVT(CCur(MyObject)) = " & getVT(CCur(MyObject))) +MyObject.myval = 0 +Call ok(CCur(MyObject) = 0, "CCur(MyObject) = " & CCur(MyObject)) +Call ok(getVT(CCur(MyObject)) = "VT_CY", "getVT(CCur(MyObject)) = " & getVT(CCur(MyObject)))
There are two identical tests on MyObject. MyObject.myval is set to 0 in first test (it's set this way in earlier tests).
The first test is different from the third: in the first test I didn't set
MyObject.myval to 0 explicitly, the goal is to test object's default value; while the third test set MyObject.myval to 0 explicitly, this changes the default value of a object, though the value is still 0.
Thanks, Piotr