Tests for 6.1.1 clause

/***************************************************

 ** @author   STF 475

 ** @version  0.0.1

 ** @purpose  9:6.1.1, Verify that a length-restricted XSD type shall be mapped to a corresponding length restricted TTCN 3 type.

 ** @verdict  fail reject

 ***************************************************/

module Neg_060101_length_001 {

    import from schema_Neg_060101_length_001 language "XSD" all;

    template E1 m_msg := {"A","B","C","D"}; //length is 3

//#TC 

}

<?xml version="1.0" encoding="UTF-8"?>

<schema xmlns="http://www.w3.org/2001/XMLSchema"

  targetNamespace="schema:Neg_060101_length_001"

  xmlns:types="schema:Neg_060101_length_001">

    <simpleType name="e1">

        <restriction base="NMTOKENS">

            <length value="3"/>

        </restriction>

    </simpleType>

    <element name="e1el" type="types:e1"/>

</schema>

/***************************************************

 ** @author   STF 475

 ** @version  0.0.1

 ** @purpose  9:6.1.1, Verify that a length-restricted XSD type shall be mapped to a corresponding length restricted TTCN 3 type.

 ** @verdict  pass accept, ttcn3verdict:pass

 ***************************************************/

module Pos_060101_length_001 {

    import from schema_Pos_060101_length_001 language "XSD" all;

    template E1 m_msg := "length_010";

//#TC 

}

<?xml version="1.0" encoding="UTF-8"?>

<e1el

    xmlns="schema:Pos_060101_length_001"

>length_010</e1el>

<?xml version="1.0" encoding="UTF-8"?>

<schema xmlns="http://www.w3.org/2001/XMLSchema"

  targetNamespace="schema:Pos_060101_length_001"

  xmlns:types="schema:Pos_060101_length_001">

    <simpleType name="e1">

        <restriction base="string">

        <length value="10"/>

    </restriction>

    </simpleType>

    <element name="e1el" type="types:e1"/>

</schema>