Commit aca52280 authored by kovacsa's avatar kovacsa
Browse files

STF 521 fixes

parent 6df65f93
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -17,9 +17,9 @@ module Sem_060101_TopLevel_012 {
    
    testcase TC_Sem_060101_TopLevel_012() runs on GeneralComp {
        var octetstring v_a  := '1234\
				567'O;
				56'O;
               
    	if (match(v_a,'1234567'O))
    	if (match(v_a,'123456'O))
        {
    		setverdict(pass,"v_a:",v_a);
    	}
+5 −6
Original line number Diff line number Diff line
@@ -18,10 +18,9 @@ module Sem_060101_TopLevel_013 {
    testcase TC_Sem_060101_TopLevel_013() runs on GeneralComp {
        var octetstring v_a  :=   '12\
				                    34\
                                    56\
				                    7'O;
                                    56'O;    // 3 octets
             
    	if (match(lengthof(v_a), 7))
    	if (match(lengthof(v_a), 3))
        {
    		setverdict(pass,"Size of v_a is: ",lengthof(v_a));
    	}
+2 −2
Original line number Diff line number Diff line
@@ -27,7 +27,7 @@ testcase TC_Sem_070103_RelationalOperators_050() runs on GeneralComp {
	var MyEnumType1 v_first := e_monday;
	var MyEnumType2 v_second := e_monday(2);

	if (v_first == v_second) {
	if (match(enum2int(v_first),enum2int(v_second))) {
		setverdict(pass);
	} else {
		setverdict(fail);
+3 −3
Original line number Diff line number Diff line
@@ -18,10 +18,10 @@ module NegSem_160102_predefined_functions_039 {
    };
    
    testcase TC_NegSem_160102_predefined_functions_039() runs on GeneralComp {
        var EDays v_enum := Friday;
        var integer v_day := int2enum(6,v_enum);    // error: not allowed value
        var EDays v_enum := Friday(3);
        int2enum(6,v_enum);    // error: not allowed value
     
        if (match(enum2int(v_day),4)) {
        if (match(enum2int(v_enum),6)) {
		    setverdict(pass);
        } else {
            setverdict(fail);
+3 −3
Original line number Diff line number Diff line
@@ -18,10 +18,10 @@ module NegSem_160102_predefined_functions_040 {
    };
    
    testcase TC_NegSem_160102_predefined_functions_040() runs on GeneralComp {
        var EDays v_enum := Friday;
        var integer v_day := int2enum(3,v_enum);  // value already occupied
        var EDays v_enum := Wednesday;
        int2enum(3,v_enum);  // value already occupied
     
        if (match(enum2int(v_day),4)) {
        if (match(enum2int(v_enum),2)) {
		    setverdict(pass);
        } else {
            setverdict(fail);
Loading