LibItsGeoNetworking_Functions.ttcn 1.46 KB
Newer Older
berge's avatar
berge committed
/**
 *	@author 	ETSI / STF405
 *  @version 	$URL$
 *				$Id$
 *	@desc		Module containing functions for GeoNetworking
 *
 */
module LibItsGeoNetworking_Functions {
    
    // LibIts
    import from LibIts_TestSystem all;
    import from LibIts_Interface all; 
    
    /**
     * @desc 	Create Facility component and connects GeoNetworking port
     * @param	p_ptcDenm returned Facility component variable
     */    
    function f_cfGeoNetworkingUp(out ItsNt p_ptcGeoNetworking) {
berge's avatar
berge committed
        
        // Create Facility component
        p_ptcGeoNetworking := ItsNt.create("GeoNetworking Tester");
berge's avatar
berge committed
        
        // map ports
        map(p_ptcGeoNetworking:geoNetworkingPort, system:geoNetworkingPort);
        
    } // end f_cfGeoNetworkingUp       
    
    /**
     * @desc 	Wait for component to finish and unmap GeoNetworking ports
     * @param	p_camPtc Facility component variable
     */    
    function f_cfGeoNetworkingDown(in ItsNt p_ptcGeoNetworking) runs on ItsMtc {    
berge's avatar
berge committed
    	tc_guard.start;
        alt {
        	[] p_ptcGeoNetworking.done {
            	tc_guard.stop;
            }
            
            [] tc_guard.timeout {
             	log("*** f_cfGeoNetworkingDown: ERROR: Timeout while waiting for component ***");
             	setverdict(inconc);   
            }
        }
        unmap(p_ptcGeoNetworking:geoNetworkingPort);
        
    } // end f_cfGeoNetworkingDown
    
} // end LibItsGeoNetworking_Functions