diff options
| author | Noel Power <noel.power@suse.com> | 2013-03-21 11:08:27 +0000 |
|---|---|---|
| committer | Noel Power <noel.power@suse.com> | 2013-03-21 11:33:53 +0000 |
| commit | f69acf929b4a8131370ab05ab0886334e1fc566d (patch) | |
| tree | 38bcdc687bf1b265fb01035ed43c14988a6defce /basic | |
| parent | 63dcca42cebd3cb6f020ec75c0d225e1d7232e1c (diff) | |
another variation of the localised Cdbl test
Change-Id: Icf6dd7428cb88f1891c6d816a24a4126ea2cc135
Diffstat (limited to 'basic')
| -rw-r--r-- | basic/qa/basic_coverage/da-DK/cdbl-2.vb | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/basic/qa/basic_coverage/da-DK/cdbl-2.vb b/basic/qa/basic_coverage/da-DK/cdbl-2.vb new file mode 100644 index 000000000000..a219304d4230 --- /dev/null +++ b/basic/qa/basic_coverage/da-DK/cdbl-2.vb @@ -0,0 +1,14 @@ +Function doUnitTest() as Integer + Dim A As String + Dim B As Double + Dim Expected As Double + A = "222,222" + ' in da-DK locale ',' is the decimal separator + Expected = 222.222 + B = Cdbl(A) + If B <> Expected Then + doUnitTest = 0 + Else + doUnitTest = 1 + End If +End Function |