Files
libreoffice/basic/qa/basic_coverage/da-DK/cdbl.vb
Noel Power bc3a099974 tweak basic_coverage test to support locale specific testing
in basic some function results are influenced by locale, now
in the basic_coverage directory you can have sub dirs ( named
by the proper locale e.g. de-DE etc. ) and any macros found
there will be run in the desired locale

Change-Id: I625ee58d37493f83a15a62214bde6708e8fa75f7
2013-03-20 18:46:21 +00:00

15 lines
314 B
VB.net

Function doUnitTest() as Integer
Dim A As String
Dim B As Double
Dim Expected As String
A = "222.222"
' in da-DK locale ',' is the decimal separator
Expected = "222222"
B = Cdbl(A)
If B <> Expected Then
doUnitTest = 0
Else
doUnitTest = 1
End If
End Function