Commit d781c624 authored by stancakapost's avatar stancakapost
Browse files

renamed modules

parent fc746eee

06_types_and_values/0601_basic_types_and_values/060101_basic_string_types_and_values/060101_toplevel/Sem_060101_TopLevel_004.ttcn

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

 ** @author   STF 409

 ** @version  $Rev:  $

 ** @purpose  1:6.1.1, Assign and read charstring

 ** @verdict  pass accept, ttcn3verdict:pass

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

module Sem_060101_TopLevel_004 {



    const charstring c_s1 := "abcdef";

    const charstring c_s2 := "ab""cdef";

    

    type component GeneralComp {}

    

    testcase TC_Sem_611_TopLevel_004() runs on GeneralComp {

    	if (c_s1 == "abcdef"){

    		setverdict(pass);

    	}

    	else {

    		setverdict(fail);

    	}

    	if (lengthof(c_s2) == 7){

    		setverdict(pass);

    	}

    	else {

    		setverdict(fail);

    	}

    }

    

    control{

        execute(TC_Sem_611_TopLevel_004());

    }

}
 
 No newline at end of file

06_types_and_values/0601_basic_types_and_values/060101_basic_string_types_and_values/060101_toplevel/Sem_060101_TopLevel_005.ttcn

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

 ** @author   STF 409

 ** @version  $Rev:  $

 ** @purpose  1:6.1.1, Assign and read universal charstring

 ** @verdict  pass accept, ttcn3verdict:pass

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

module Sem_060101_TopLevel_005 {



    const universal charstring c_s1 := char (0, 0, 40, 48) & char ( 0, 0, 1, 113);

    

    type component GeneralComp {}

    

    testcase TC_Sem_611_TopLevel_005() runs on GeneralComp {

    	if (lengthof(c_s1) == 2) {

    		setverdict(pass);

    	}

    	else {

    		setverdict(fail);

    	}

    }

    

    control{

        execute(TC_Sem_611_TopLevel_005());

    }

}
 
 No newline at end of file

06_types_and_values/0601_basic_types_and_values/060101_basic_string_types_and_values/060101_toplevel/Sem_060101_TopLevel_006.ttcn

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

 ** @author   STF 409

 ** @version  $Rev:  $

 ** @purpose  1:6.1.1, Assign and read universal charstring

 ** @verdict  pass accept, ttcn3verdict:pass

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

module Sem_060101_TopLevel_006 {



    const universal charstring c_s1 := "the Braille character " & char (0, 0, 40, 48) & "looks like this";

    

    type component GeneralComp {}

    

    testcase TC_Sem_611_TopLevel_006() runs on GeneralComp {

    	if (lengthof(c_s1) > 10) {

    		setverdict(pass);

    	}

    	else {

    		setverdict(fail);

    	}

    }

    

    control{

        execute(TC_Sem_611_TopLevel_006());

    }

}
 
 No newline at end of file