/** * @author ETSI / STF405 / STF449 * @version $URL: svn+ssh://vcs.etsi.org/TTCN3/LIB/LibIts/trunk/ttcn/LibIts_TestSystem.ttcn $ * $Id: LibIts_TestSystem.ttcn 408 2012-02-28 13:49:56Z garciay $ * @desc Test System module for ITS CAM * */ module LibItsCam_TestSystem { // LibCommon import from LibCommon_Time {modulepar all}; import from LibCommon_Sync all; // LibIts import from LibItsCommon_TestSystem all; import from LibItsCam_TypesAndValues all; import from CAM_PDU_Descriptions language "ASN.1:1997" all; import from DENM_PDU_Descriptions language "ASN.1:1997" all; group portDefinitions { /** * @desc Upper Tester port */ type port UpperTesterPort message { out UtInitialize, UtTrigger, UtCheck; in UtResult; } // end UpperTesterPort } // end portDefinitions group interfacePorts { group facilityPorts { group fa1Ports { /** * @desc FA1 CAM Port (CAM/BTP/GeoNet/G5) */ type port CamPort message { in CamInd; out CamReq; } // End of port CamPort } // end fa1Ports } // End of group facilityPorts } // End of group interfacePorts group componentDefinitions { /** * @desc ITS System Adapter */ type component ItsCamSystem { port UpperTesterPort utPort; // FA1 ports port CamPort camPort; } // end component ItsAdapter } // End of group componentDefinitions /** * @desc Test component for ITS Facility layer */ type component ItsCam extends ItsBaseComponent { port UpperTesterPort utPort; // FA1 ports port CamPort camPort; //timers //component variables var CamInd vc_camMsg; //default var default vc_default := null; //global variables var boolean vc_camReceived := false; } // End of component ItsCam group facilityPrimitives { group fa1Primitives { /** * @desc FA1 CAM Indication Primitive */ type record CamInd { CAM msgIn } with { encode (msgIn) "LibItsCam_asn1" } /** * @desc FA1 CAM Request Primitive */ type record CamReq { CAM msgOut } with { encode (msgOut) "LibItsCam_asn1" } } // end fa1Primitives } // End of group facilityPrimitives with { encode "LibIts_Interface" } // end interfacePrimitives } // End of module LibIts_TestSystem