[PATCH] vbscript: Implemented CCur

[Shuai Meng]

2014-05-19 17:06 GMT+08:00 Piotr Caban <piotr.caban at 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
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.winehq.org/pipermail/wine-devel/attachments/20140519/bfea2daf/attachment.html>