Commit 3c71b339 authored by zeiss's avatar zeiss
Browse files

No commit message 

No commit message
parent 67c13563

08_modules/0802_module_definitions_part/080204_definition_of_friend_modules/NegSem_080204_DefinitionOfFriendModules_002.ttcn

+1 −1
Original line number Diff line number Diff line
@@ -25,7 +25,7 @@ control{ 
}



module NegSem_080204_DefinitionOfFriendModules_001_import {

	friend module Sem_080204_DefinitionOfFriendModules_001;

	friend module NegSem_080204_DefinitionOfFriendModules_001;



	private const integer c_myconst := 32532;

}
 
 No newline at end of file

08_modules/0802_module_definitions_part/080205_visibility_of_definitions/NegSem_080205_VisibilityOfDefinitions_001.ttcn

+1 −1
Original line number Diff line number Diff line 
/*****************************************************************

 ** @author   STF 409

 ** @version  $Rev: 61 $

 ** @purpose  1:8.2.5, Ensure that ...

 ** @purpose  1:8.2.5, Ensure that private definition (in this case a sample constant) is not visible using a normal import.

 ** @verdict  pass reject

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

08_modules/0802_module_definitions_part/080205_visibility_of_definitions/NegSem_080205_VisibilityOfDefinitions_002.ttcn

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

 ** @author   STF 409

 ** @version  $Rev: 61 $

 ** @purpose  1:8.2.5, Ensure that private definition (in this case a sample constant) is not visible using an import of a friend module.

 ** @verdict  pass reject

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



module NegSem_080205_VisibilityOfDefinitions_002 {



import from NegSem_080205_VisibilityOfDefinitions_002_import all;



type component GeneralComp {}



testcase NegSem_080205_VisibilityOfDefinitions_002() runs on GeneralComp {

	if (c_myconst == 43532) { // c_myconst shall not be visible on import as the definition is private.

		setverdict(fail);

	} else {

		setverdict(pass);

	}

}



control{

    execute(TC_NegSem_080205_VisibilityOfDefinitions_002());

}

}



module NegSem_080205_VisibilityOfDefinitions_002_import {

	friend module NegSem_080205_VisibilityOfDefinitions_002;



	private const integer c_myconst := 32532;

}
 
 No newline at end of file

08_modules/0802_module_definitions_part/080205_visibility_of_definitions/NegSem_080205_VisibilityOfDefinitions_003.ttcn

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

 ** @author   STF 409

 ** @version  $Rev: 61 $

 ** @purpose  1:8.2.5, Ensure that friend definition (in this case a sample constant) is not visible using a group import of a non-friend module.

 ** @verdict  pass reject

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



module NegSem_080205_VisibilityOfDefinitions_003 {



import from NegSem_080205_VisibilityOfDefinitions_003_import {

	group CONST_GROUP;

}



type component GeneralComp {}



testcase NegSem_080205_VisibilityOfDefinitions_003() runs on GeneralComp {

	if (c_myconst == 43532) { // c_myconst shall not be visible on import as the definition is private.

		setverdict(fail);

	} else {

		setverdict(pass);

	}

}



control{

    execute(TC_NegSem_080205_VisibilityOfDefinitions_003());

}

}



module NegSem_080205_VisibilityOfDefinitions_003_import {

	group CONST_GROUP {

		friend const integer c_myconst := 32532;

	}

}
 
 No newline at end of file

08_modules/0802_module_definitions_part/080205_visibility_of_definitions/NegSem_080205_VisibilityOfDefinitions_004.ttcn

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

 ** @author   STF 409

 ** @version  $Rev: 61 $

 ** @purpose  1:8.2.5, Ensure that private definition (in this case a sample constant) is not visible using a group import of a non-friend module.

 ** @verdict  pass reject

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



module NegSem_080205_VisibilityOfDefinitions_004 {



import from NegSem_080205_VisibilityOfDefinitions_004_import {

	group CONST_GROUP;

}



type component GeneralComp {}



testcase NegSem_080205_VisibilityOfDefinitions_004() runs on GeneralComp {

	if (c_myconst == 43532) { // c_myconst shall not be visible on import as the definition is private.

		setverdict(fail);

	} else {

		setverdict(pass);

	}

}



control{

    execute(TC_NegSem_080205_VisibilityOfDefinitions_004());

}

}



module NegSem_080205_VisibilityOfDefinitions_004_import {

	group CONST_GROUP {

		private const integer c_myconst := 32532;

	}

}
 
 No newline at end of file