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