Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/C/LibreOffice/basic/qa/basic_coverage/ (Office von Apache Version 25.8.3.2^©) Datei vom 5.10.2025 mit Größe 569 B

Quelle test_erl_method.bas Sprache: unbekannt

' This file is part of the LibreOffice project.
'
' This Source Code Form is subject to the terms of the Mozilla Public
' License, v. 2.0. If a copy of the MPL was not distributed with this
' file, You can obtain one at http://mozilla.org/MPL/2.0/.
'

Function doUnitTest as String
    ' ERL
    On Error GoTo ErrorHandler ' Set up error handler
    Dim nVar As Integer
    nVar = 0
    nVar = 1/nVar
    doUnitTest = "FAIL"
    Exit Function
ErrorHandler:
    If ( Erl <> 13 ) Then
        doUnitTest = "FAIL"
    Else
        doUnitTest = "OK"
    Endif
End Function