23 lines
433 B
QBasic
23 lines
433 B
QBasic
|
Option VBASupport 0
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
Function doUnitTest() As String
|
||
|
|
TestUtil.TestInit
|
||
|
|
verify_tdf98778
|
||
|
|
doUnitTest = TestUtil.GetResult()
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Sub verify_tdf98778()
|
||
|
|
On Error GoTo errorHandler
|
||
|
|
|
||
|
|
dim d as double
|
||
|
|
dim s as string
|
||
|
|
s="1.0E-5"
|
||
|
|
d=s
|
||
|
|
TestUtil.AssertEqual(d, 1E-05, "tdf#98778")
|
||
|
|
|
||
|
|
Exit Sub
|
||
|
|
errorHandler:
|
||
|
|
TestUtil.ReportErrorHandler("verify_tdf98778", Err, Error$, Erl)
|
||
|
|
End Sub
|