/***************************************************
 ** @author   STF 470
 ** @version  0.0.1
 ** @purpose  1:6.1.2.4, Assign invalid values to length restricted charstring
 ** @verdict  pass reject
 ***************************************************/
module NegSem_06010204_StringLenghtRestrict_007{
    type charstring myStrings1 length(2..infinity);

    type component GeneralComp {}

    testcase TC_NegSem_06010204_StringLenghtRestrict_007() runs on GeneralComp {
        var myStrings1 v_b1;
        v_b1 := "a";	//1 charc. length
		setverdict(pass);
    }

    control{
        execute(TC_NegSem_06010204_StringLenghtRestrict_007());
    }
}