basic/qa/basic_coverage/test_tdf98778.bas

   1 Option VBASupport 0
   2 Option Explicit
   3
   4 Function doUnitTest() As String
   5     TestUtil.TestInit
   6     verify_tdf98778
   7     doUnitTest = TestUtil.GetResult()
   8 End Function
   9
  10 Sub verify_tdf98778()
  11     On Error GoTo errorHandler
  12
  13     dim d as double
  14     dim s as string
  15     s="1.0E-5"
  16     d=s
  17     TestUtil.AssertEqual(d, 1E-05, "tdf#98778")
  18
  19     Exit Sub
  20 errorHandler:
  21     TestUtil.ReportErrorHandler("verify_tdf98778", Err, Error$, Erl)
  22 End Sub