FWD » Core Development » Base Language

<?xml version="1.0"?>
<Test xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <TestRow>
    <DataGood>Test good field</DataGood>
    <DataField>1
2
1</DataField>
  </TestRow>
</Test>

BLOCK-LEVEL ON ERROR UNDO, THROW.

USING support.test.AssertExt FROM PROPATH.
USING OpenEdge.Core.Assert FROM PROPATH.

CLASS tests.table.TestReadXmlInvalid:
    DEFINE TEMP-TABLE TestRow
        FIELD DataGood  AS CHARACTER FORMAT "x(32)" 
        FIELD DataField AS CHARACTER FORMAT "x(32)".

    @Test.
    METHOD PUBLIC VOID TestSOHChar():
        DEFINE VARIABLE lSuccess AS LOGICAL NO-UNDO.
        DEFINE VARIABLE cSourceType AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cFile AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cReadMode AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cSchemaLocation AS CHARACTER NO-UNDO.
        DEFINE VARIABLE lOverrideDefaultMapping AS LOGICAL NO-UNDO.
        DEFINE VARIABLE cFieldTypeMapping AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cVerifySchemaMode AS CHARACTER NO-UNDO.

        ASSIGN
            cSourceType             = "FILE" 
            cFile                   = "TestInvalidChar.xml" 
            cReadMode               = "EMPTY" 
            cSchemaLocation         = ?
            lOverrideDefaultMapping = ?
            cFieldTypeMapping       = ?
            cVerifySchemaMode       = ?.

        lSuccess = TEMP-TABLE TestRow:READ-XML(cSourceType, cFile, cReadMode, cSchemaLocation, lOverrideDefaultMapping, cFieldTypeMapping, cVerifySchemaMode) NO-ERROR.
        AssertExt:NotErrorNotWarning().
        Assert:IsTrue(lSuccess).
    END METHOD.
END CLASS.