[PATCH] vbscript: Implemented CCur

[Piotr Caban]

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.

> +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).

Thanks,
Piotr