https://bugs.documentfoundation.org/show_bug.cgi?id=136112

--- Comment #7 from Alain Romedenne <[email protected]> ---
Suggestion for a QA unit test routine:

Function doUnitTest as Integer
  ''' Return 'text' OR 'date' variable '''

  If ( TypeName(Time$)<>"String" Or Vartype(Time())<>V_DATE ) Then
    doUnitTest = 0 ' not successful
  Else
    doUnitTest = 1 ' Ok
  End If
End Function

Sub DEV_TST : MsgBox doUnitTesT : End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs

Reply via email to