FWD » Core Development » Base Language

BLOCK-LEVEL ON ERROR UNDO, THROW.

USING OpenEdge.Core.Assert FROM PROPATH.

CLASS tests.TestSaxReaderQName:
    @Test.
    METHOD PUBLIC VOID testQName():
        DEFINE VARIABLE cXml AS LONGCHAR NO-UNDO.
        cXml = '<?xml version="1.0" encoding="UTF-8"?><ns:Test xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:ns="http://goldencode.com/ns"/>'.

        DEFINE VARIABLE lError AS LOGICAL NO-UNDO.
        DEFINE VARIABLE cMessage AS CHARACTER NO-UNDO.
        DEFINE VARIABLE lFatal AS LOGICAL NO-UNDO.
        DEFINE VARIABLE cStartList AS CHARACTER NO-UNDO.

        RUN tests/p_sax_proxy2.p(cXml, OUTPUT lError, OUTPUT lFatal, OUTPUT cMessage, OUTPUT cStartList).

        Assert:IsFalse(lError).
        Assert:IsFalse(lFatal).
        Assert:Equals("", cMessage).
        Assert:Equals("ns:Test ", cStartList).
    END METHOD.
END CLASS.

DEFINE INPUT PARAMETER cInputXml AS LONGCHAR NO-UNDO.
DEFINE OUTPUT PARAMETER lError AS LOGICAL NO-UNDO.
DEFINE OUTPUT PARAMETER lFatal AS LOGICAL NO-UNDO.
DEFINE OUTPUT PARAMETER cMessage AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER cStartList AS CHARACTER NO-UNDO.

DEFINE VARIABLE hSaxHdl AS HANDLE NO-UNDO.

RUN StartSaxReader. 

PROCEDURE StartSaxReader:
    CREATE SAX-READER hSaxHdl.
    hSaxHdl:HANDLER = THIS-PROCEDURE.
    hSaxHdl:SET-INPUT-SOURCE ("longchar", cInputXml).
    hSaxHdl:SAX-PARSE ().

    FINALLY:
        IF VALID-HANDLE (hSaxHdl) THEN
            DELETE OBJECT hSaxHdl.  
    END FINALLY.
END PROCEDURE.

PROCEDURE FatalError:
    DEFINE INPUT PARAMETER msg AS CHARACTER NO-UNDO.
    lError = TRUE.
    lFatal = TRUE.
    cMessage = msg.

    hSaxHdl:STOP-PARSING ().
END PROCEDURE.

PROCEDURE StartElement:
    DEFINE INPUT PARAMETER pcNamespaceURI AS CHARACTER NO-UNDO.
    DEFINE INPUT PARAMETER pcLocalName    AS CHARACTER NO-UNDO.
    DEFINE INPUT PARAMETER pcElementName  AS CHARACTER NO-UNDO.
    DEFINE INPUT PARAMETER phAttributes   AS HANDLE    NO-UNDO.

    cStartList = cStartList + pcElementName + " ".
END PROCEDURE.