Commit 6bfe718e authored by kovacsa's avatar kovacsa
Browse files

Sem_predefined_functions_071

parent 6a623d4a

ATS/06_types_and_values/0601_basic_types_and_values/060101_basic_string_types_and_values/060101_toplevel/Sem_060101_TopLevel_007.ttcn

+4 −3
Original line number Diff line number Diff line
@@ -29,11 +29,12 @@ module Sem_060101_TopLevel_007 { 
    	if (match(v_a,"A") and 

            match(v_b,"ű") and

            match(v_c,"A") and

            match(v_d,"űA") ){

    		setverdict(pass,"v_a:",v_a,", v_b:",v_b,", v_c:",v_c,", v_d:",v_d);

            match(v_d,"űA"))

        {

    		setverdict(pass,"v_a:",v_a, "v_b:",v_b, "v_c:",v_c,"v_d:",v_d);

    	}

    	else {

    		setverdict(fail,"v_a:",v_a,", v_b:",v_b,", v_c:",v_c,", v_d:",v_d);

    		setverdict(fail,"v_a:",v_a, "v_b:",v_b, "v_c:",v_c,"v_d:",v_d);

    	}

    }

ATS/07_expressions/0701_operators/070101_arithmetic_operators/NegSem_070101_ArithmeticOperators_005.ttcn→ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_027.ttcn

+28 −0
Original line number Diff line number Diff line 
/*****************************************************************

 ** @author   STF 470

 ** @author   STF 487

 ** @version  0.0.1

 ** @purpose  1:7.1.1, Ensure that arithmetic operators can not handle special float values

 ** @verdict  pass reject

 ** @purpose  1:7.1.1, Ensure that arithmetic operators can handle special float values

 ** @verdict  pass accept, ttcn3verdict:pass

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



module NegSem_070101_ArithmeticOperators_005 {

module Sem_070101_ArithmeticOperators_027 {



type component GeneralComp {	    	    

}



testcase TC_NegSem_070101_ArithmeticOperators_005() runs on GeneralComp {

testcase TC_Sem_070101_ArithmeticOperators_027() runs on GeneralComp {

	var float v_i := infinity;

	var float v_k :=2.0E0;

	

	var float v_result := v_i * v_k;	// arithmetic operator with infinity is not allowed

	var float v_result := v_i + v_k;	// "+" arithmetic operator with infinity

	

	if (v_result == infinity) { setverdict(pass,"match") }

	else { setverdict(fail,v_result) }

    



	setverdict(pass);

}	

control{

    execute(TC_NegSem_070101_ArithmeticOperators_005());

    execute(TC_Sem_070101_ArithmeticOperators_027());

}



}

ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_028.ttcn

0 → 100644
+28 −0
Original line number Diff line number Diff line 
/*****************************************************************

 ** @author   STF 487

 ** @version  0.0.1

 ** @purpose  1:7.1.1, Ensure that arithmetic operators can handle special float values

 ** @verdict  pass accept, ttcn3verdict:pass

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



module Sem_070101_ArithmeticOperators_028 {



type component GeneralComp {	    	    

}



testcase TC_Sem_070101_ArithmeticOperators_028() runs on GeneralComp {

	var float v_i := infinity;

	var float v_k :=2.0E0;

	

	var float v_result := v_i - v_k;	// "-" arithmetic operator with infinity

	

	if (v_result == infinity) { setverdict(pass,"match") }

	else { setverdict(fail,v_result) }

    



}	

control{

    execute(TC_Sem_070101_ArithmeticOperators_028());

}



}

ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_029.ttcn

0 → 100644
+28 −0
Original line number Diff line number Diff line 
/*****************************************************************

 ** @author   STF 487

 ** @version  0.0.1

 ** @purpose  1:7.1.1, Ensure that arithmetic operators can handle special float values

 ** @verdict  pass accept, ttcn3verdict:pass

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



module Sem_070101_ArithmeticOperators_029 {



type component GeneralComp {	    	    

}



testcase TC_Sem_070101_ArithmeticOperators_029() runs on GeneralComp {

	var float v_i := infinity;

	var float v_k :=2.0E0;

	

	var float v_result := v_i * v_k;	// "*" arithmetic operator with infinity

	

	if (v_result == infinity) { setverdict(pass,"match") }

	else { setverdict(fail,v_result) }

    



}	

control{

    execute(TC_Sem_070101_ArithmeticOperators_029());

}



}

ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_030.ttcn

0 → 100644
+28 −0
Original line number Diff line number Diff line 
/*****************************************************************

 ** @author   STF 487

 ** @version  0.0.1

 ** @purpose  1:7.1.1, Ensure that arithmetic operators can handle special float values

 ** @verdict  pass accept, ttcn3verdict:pass

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



module Sem_070101_ArithmeticOperators_030 {



type component GeneralComp {	    	    

}



testcase TC_Sem_070101_ArithmeticOperators_030() runs on GeneralComp {

	var float v_i := infinity;

	var float v_k :=2.0E0;

	

	var float v_result := v_i / v_k;	// "/" arithmetic operator with infinity

	

	if (v_result == infinity) { setverdict(pass,"match") }

	else { setverdict(fail,v_result) }

    



}	

control{

    execute(TC_Sem_070101_ArithmeticOperators_030());

}



}