OneM2M_TestSystem.ttcn 2.83 KB
Newer Older
1 2 3 4 5 6 7 8
/**
 *  Copyright Notification
 *  No part of this document may be reproduced, in an electronic retrieval system or otherwise, except as authorized by written permission.
 *  The copyright and the foregoing restriction extend to reproduction in all media.
 *  © 2016, oneM2M Partners Type 1 (ARIB, ATIS, CCSA, ETSI, TIA, TSDSI, TTA, TTC).
 *  All rights reserved.
 *  
 *  @author     ETSI
9 10
 *  @version    $URL: https://oldforge.etsi.org/svn/oneM2M/branches/Release1/ttcn/LibOneM2M/OneM2M_TestSystem.ttcn $
 *              $Id: OneM2M_TestSystem.ttcn 347 2017-08-11 08:48:20Z reinaortega $
11 12 13 14 15 16
 *  @desc       Test System module for oneM2M
 *
 */
module OneM2M_TestSystem {

	import from OneM2M_Types all;
17 18 19
	import from LibCommon_Time all;
	import from OneM2M_Ports all;
	import from OneM2M_Pixits all;
20

21 22 23 24
/* ***************************************
 * 		Test System Components 
 * ***************************************
 */	
25
	type component Tester {
26
		port AdapterControlPort acPort;
27
		port InfoPort infoPort;
28
		port UpperTesterPort utPort;
29 30
		//timers
		timer tc_ac := PX_TAC;
31
		timer tc_wait := PX_TWAIT;
32
		//global variables
33
		var Configurations vc_config;
34
		var TestSystemRole vc_testSystemRole;
35
		var MyResourcesList vc_resourcesList;
36
		var IntegerList vc_resourcesIndexToBeDeleted := {};
37 38
		var integer vc_aeAuxIndex := -1;//TODO To be removed
		var integer vc_acpAuxIndex := -1;
39
		var AccessControlPolicy_optional vc_acpAux;
40 41
		var MsgIn vc_request;
		var MsgIn vc_response;
42
	};
43 44
	
	type component AeSimu extends Tester {
45
		var AeSimu vc_ae2;
46 47 48 49 50 51
		port OneM2MPort mcaPort;
		port OneM2MPort mcaPortIn;
	
		//global variables
		var PrimitiveContent vc_primitiveContentRetrievedResource;

52
		var CseSimu vc_cse1;//For CF02 when AeSimu is master
53 54
		var boolean vc_auxiliaryAe2Up := false;
	};
55
		
56
	type component CseSimu extends Tester {
57
		port OneM2MPort mcaPort;
58
		port OneM2MPort mcaPortIn;
59
		port OneM2MPort mccPort;
60
		port OneM2MPort mccPortIn;
61

62
		//global variables
63
		var MyResourcesList vc_localResourcesList := {};
64
		var AeSimu vc_ae1;//For CF02 when CseSimu is master
65 66 67
		var integer vc_remoteCseIndex := -1;
		var integer vc_localRemoteCseIndex := -1;
		var integer vc_cSEBaseIndex := -1;	//Index of the CSEBase resource of the Tester inside vc_localResourcesList
68
	};
69
	
70 71 72
	type component InCseSimu extends CseSimu {}
	
	type component MnCseSimu extends CseSimu {}
73
			
74
	type component CseSystem {
75
		port OneM2MPort mcaPort;
76
		port OneM2MPort mcaPortIn;
77
		port OneM2MPort mccPort;
78
		port OneM2MPort mccPortIn;
79
		port AdapterControlPort acPort;
80
		port UpperTesterPort utPort;
81 82 83 84
	}	
	
	type component AeSystem {
		port OneM2MPort mcaPort;
85
		port OneM2MPort mcaPortIn;
86
		port AdapterControlPort acPort;
87
		port UpperTesterPort utPort;
88 89 90
	}		
	
			
91
	
92
	
93 94

}// end of module
95 96 97 98
with {
	extension "anytype charstring"

}