LibItsDcc_TestSystem.ttcn 4.13 KB
Newer Older
schmitting's avatar
schmitting committed
/**
 *    @author     ETSI / STF421
filatov's avatar
filatov committed
 *  @version      $URL$
 *                $Id$
schmitting's avatar
schmitting committed
 *    @desc       Test System module for ITS
 *
 */
module LibItsDcc_TestSystem {

    // LibCommon
    import from LibCommon_Time {modulepar all;}
    import from LibCommon_Sync all;
    
    // LibIts
    import from LibItsCommon_TypesAndValues all;
    import from LibItsCommon_TestSystem all;
    
schmitting's avatar
schmitting committed
    import from LibItsDcc_TypesAndValues all;
schmitting's avatar
schmitting committed
    group portDefinitions {
schmitting's avatar
schmitting committed
        /**
         * @desc Upper Tester port
         */
        type port UpperTesterPort message {
            out 
                UtInitialize, UtTrigger;
            in 
                UtResult
        } // end UpperTesterPort
        
        /**
         * @desc IN Port used to trigger events at the access layer and to monitor the results
         */
        type port InPort message {
            in InSta;
            out InReq;
        } // End of port InPort

        /**
         * @desc RRX Port used to receive events at the radio access 
         */
        type port RrxPort message {
            in RrxInd;
        } // End of port InPort

tepelmann's avatar
tepelmann committed
        /**
         * @desc Check Port used for intercomponent exchange of data to check
         */
        type port CheckPort message {
            inout all;
        }
        
    } // end portDefinitions
schmitting's avatar
schmitting committed

    group componentDefinitions {

     /**
     * @desc ITS System Adapter
     */
    type component ItsDccSystem {
        
        port UpperTesterPort utPort;
        port InPort inPort;
schmitting's avatar
schmitting committed
        port RrxPort rrxPort;
schmitting's avatar
schmitting committed
        port SyncPort syncPort;
schmitting's avatar
schmitting committed
        
schmitting's avatar
schmitting committed
    } // End of component ItsDccSystem
    
schmitting's avatar
schmitting committed
    /**
     * @desc Test component for configuration of the channel traffic states 
     */
    type component UtComp extends ItsBaseComponent {

        port UpperTesterPort utPort;
        
        //timers
        
        //component variables

        //default
        var default vc_default := null;
        
        //global variables
        
    } // End of component UtComp

schmitting's avatar
schmitting committed
    /**
schmitting's avatar
schmitting committed
     * @desc Test component for ITS Access layer 
schmitting's avatar
schmitting committed
     */
schmitting's avatar
schmitting committed
    type component ItsInDcc extends ItsBaseComponent {
schmitting's avatar
schmitting committed

        // IN ports
        port InPort inPort;
tepelmann's avatar
tepelmann committed
        port CheckPort checkPort;
schmitting's avatar
schmitting committed

schmitting's avatar
schmitting committed
        //timers
        
        //component variables

        //default
        var default vc_default := null;
        
        //global variables
        
schmitting's avatar
schmitting committed
    } // End of component ItsInDcc
schmitting's avatar
schmitting committed
    
    /**
     * @desc Test component for ITS Access layer 
     */
schmitting's avatar
schmitting committed
    type component ItsRrxDcc extends ItsBaseComponent {

tepelmann's avatar
tepelmann committed
        // RRX ports
schmitting's avatar
schmitting committed
        port RrxPort rrxPort;
tepelmann's avatar
tepelmann committed
        port CheckPort checkPort;
schmitting's avatar
schmitting committed

        //timers
        
        //component variables

        //default
        var default vc_default := null;
        
        //global variables
        
schmitting's avatar
schmitting committed
    } // End of component ItsInDcc
    
tepelmann's avatar
tepelmann committed
    /**
     * @desc Test component for ITS DCC MTC
     */
    type component ItsDccMts extends ItsBaseMtc {

        // MTC ports
        port CheckPort checkPort;

        //timers
        
        //component variables
        var UtComp vc_utComp;
        var ItsInDcc vc_itsInDcc;
        var ItsRrxDcc vc_itsRrxDcc;

        //default
        var default vc_default := null;
        
        //global variables
        
    } // End of component ItsDccMts
    
schmitting's avatar
schmitting committed
    } // End of group componentDefinitions
     
    group upperTester {
        
        /**
         * @desc Upper Tester message to initialize IUT 
         */
        type union UtInitialize {
schmitting's avatar
schmitting committed
            UtRadioInitialize utRadioInitialize
schmitting's avatar
schmitting committed
        }

        /**
         * @desc Upper Tester message to trigger an action on IUT 
         */
        type record UtTrigger {
schmitting's avatar
schmitting committed
            UtRadioEvent utRadioEvent
schmitting's avatar
schmitting committed
        }

        /**
         * @desc Upper Tester response message  
         */    
        type boolean UtResult;
        
            
    } // End of group upper tester 
    with {
        encode "LibIts_Interface"
    } // End of group interfacePrimitives
tepelmann's avatar
tepelmann committed
} // End of module LibItsDcc_TestSystem