TTCN changes to check the TP requirements for creation/non-creation of Resource.

LibOneM2M/OneM2M_Functions.ttcn

@@ -624,6 +624,63 @@ module OneM2M_Functions {
 				
 			}// end f_cse_deleteResource
 			
+			function f_isResourceCreated (integer p_resourceIndex) runs on CseTester return boolean {
+			
+			  var ResponseStatusCode v_responseStatusCode;
+			  
+			  //Check to see if the resource has been created or not
+			  mcaPort.send(m_request(m_retrieveResource(f_getResourceAddress(p_resourceIndex), f_getOriginator(p_resourceIndex))));
+			  tc_ac.start;
+			  alt {
+					[] mcaPort.receive(mw_response(mw_responsePrimitive(int2001))) {
+						tc_ac.stop;
+					  	setverdict(pass, testcasename() & ": Resource created: " & f_getResourceAddress(p_resourceIndex));
+					  	return true;
+				  	}
+				  	[] mcaPort.receive(mw_response(mw_responsePrimitive(?))) {
+						tc_ac.stop;
+						setverdict(fail, testcasename() & ": Wrong response status code in the response");
+						return false;
+					}
+					[] tc_ac.timeout {
+						setverdict(fail, testcasename() & ": No answer while creating resource");
+						return false;
+					}
+			  }	
+			
+			}
+			
+			function f_isResourceNotCreated (integer p_parentIndex, XSD.String p_resourceName) runs on CseTester return boolean {
+			
+			  var ResponseStatusCode v_responseStatusCode;
+			  
+			  log(testcasename() & "Hierarchical method is required to check the non creation of the resource");
+			  vc_addressingMethod := e_hierarchical;
+			  //Check to see if the resource has NOT been created
+			  mcaPort.send(m_request(m_retrieveResource(f_getResourceAddress(p_parentIndex) & "/" & p_resourceName, f_getOriginator(p_parentIndex))));
+			  tc_ac.start;
+			  alt {
+					[] mcaPort.receive(mw_response(mw_responsePrimitive(int4004))) {
+						tc_ac.stop;
+						setverdict(pass, testcasename() & ": Resource not created");
+						vc_addressingMethod := PX_ADDRESSING_METHOD;
+						return true;
+					}
+					[] mcaPort.receive(mw_response(mw_responsePrimitive(?))) {
+						tc_ac.stop;
+						setverdict(fail, testcasename() & ": Wrong response status code in the response");
+						vc_addressingMethod := PX_ADDRESSING_METHOD;
+						return false;
+					}
+					[] tc_ac.timeout {
+						setverdict(fail, testcasename() & ": No answer while creating resource");
+						vc_addressingMethod := PX_ADDRESSING_METHOD;
+						return false;
+					}
+			  }	
+			
+			}
+			
 			/**
 			 * @desc Update of the auxiliar ACP resource
 			 * @param p_allowedOperations New allowed operations

LibOneM2M/OneM2M_Templates.ttcn

@@ -3143,7 +3143,7 @@ module OneM2M_Templates {
 			primitiveContent := p_content			
 		}
 		
-		template ResponsePrimitive mw_responsePrimitive(ResponseStatusCode p_statusCode) := {
+		template ResponsePrimitive mw_responsePrimitive(template ResponseStatusCode p_statusCode) := {
 			responseStatusCode := p_statusCode,
 			requestIdentifier := ?,
 			primitiveContent := *,