/***************************************************
 ** @author   STF 470
 ** @version  0.0.1
 ** @purpose  1:6.1.2.4, Assign invalid values to length restricted hexstring
 ** @verdict  pass reject
 ***************************************************/
module NegSem_06010204_StringLenghtRestrict_004 {
    type hexstring HexStrings1 length(2 .. infinity); //hexadecimal digits between 2 and 5

    type component GeneralComp {}

    testcase TC_NegSem_06010204_StringLenghtRestrict_004() runs on GeneralComp {
        var HexStrings1 v_b1;
        v_b1 := 'A'H; //invalid length 1
		setverdict(pass);
    }

    control{
        execute(TC_NegSem_06010204_StringLenghtRestrict_004());
    }
}