test_LibItsMapSpat_TypesAndValues.ttcn3 4 KB
Newer Older
garciay's avatar
garciay committed
module test_LibItsMapemSpatem_TypesAndValues {
    
    // LibCommon
    import from LibCommon_BasicTypesAndValues all;
    import from LibCommon_DataStrings all;

    // LibIts
    import from ITS_Container language "ASN.1:1997" all;
garciay's avatar
garciay committed
    import from MAPEM_PDU_Descriptions language "ASN.1:1997" all;
    import from SPATEM_PDU_Descriptions language "ASN.1:1997" all;
    import from DSRC language "ASN.1:1997" all;
    
    // LibItsCommon
    import from LibItsCommon_TypesAndValues all;
    
    // LibItsMapSpat
garciay's avatar
garciay committed
    import from LibItsMapemSpatem_TypesAndValues all;
    import from LibItsMapemSpatem_Templates all;
    import from LibItsMapemSpatem_TestSystem all;
    
    import from test_CommonCodec all;
    
garciay's avatar
garciay committed
    group LibItsMapemSpatem_testCases {
        
        group utPrimitives {
            
            testcase tc_UtInitialize() runs on TCType system TCType {
garciay's avatar
garciay committed
                test_PDU<UtInitialize>(m_mapemSpatemInitialize, false);
            }
            
            testcase tc_UtInitializeResult() runs on TCType system TCType {
                test_decodePDU<UtInitializeResult>(UtInitializeResult:true, '0101'O);
            }
            
            testcase tc_UtMapSpatTrigger_01() runs on TCType system TCType {
garciay's avatar
garciay committed
                test_PDU<UtMapemSpatemTrigger>(
garciay's avatar
garciay committed
                        startTLMService
                    ), 
                    false
                );
            }
            
            testcase tc_UtMapSpatTrigger_02() runs on TCType system TCType {
garciay's avatar
garciay committed
                test_PDU<UtMapemSpatemTrigger>(
garciay's avatar
garciay committed
                        spatemNewContent
                    ), 
                    false
                );
            }
            
            testcase tc_UtMapSpatTriggerResult() runs on TCType system TCType {
garciay's avatar
garciay committed
                test_decodePDU<UtMapemSpatemTriggerResult>(UtMapemSpatemTriggerResult:?, 'A10105'O);
            }
            
        } // End of group utPrimitives 
        
        group testMapSpatPrimitiveMessages {
            
            testcase tc_MapSpatReq_01() runs on TCType system TCType {
garciay's avatar
garciay committed
                var MapemReq v_mapReq;
garciay's avatar
garciay committed
                v_mapReq := valueof(m_mapemReq(m_mapemPdu(m_defaultMapem)));
                log("v_mapReq=", v_mapReq);
garciay's avatar
garciay committed
                test_PDU<MapemReq>(
garciay's avatar
garciay committed
                test_decodePDU<MapemReq>(
                    v_mapReq, 
                    '01050001B2074004800500FFFFFFFFFFFFFFFFFFFFFFFF'O
                )
            }
            
            testcase tc_MapSpatReq_02() runs on TCType system TCType {
garciay's avatar
garciay committed
                var SpatemReq v_spatReq;
garciay's avatar
garciay committed
                    m_spatemReq(
                        m_spatemPdu(
                            m_spatem(m_intersections)
                )));
                log("v_spatReq=", v_spatReq);
garciay's avatar
garciay committed
                test_PDU<SpatemReq>(
garciay's avatar
garciay committed
                test_decodePDU<SpatemReq>(
                    v_spatReq, 
                    '01040001B2074130000000BB8520000002000080FFFFFFFFFFFFFFFFFFFFFFFF'O
                )
            }
            
            testcase tc_MapSpatInd_01() runs on TCType system TCType {
                
garciay's avatar
garciay committed
                test_decodePDU<MapemInd>(
                    mw_mapemInd(mw_mapemPdu), 
                    '01050001B2074004800500FFFFFFFFFFFFFFFFFFFFFFFF'O
                );
            }
            
            testcase tc_MapSpatInd_02() runs on TCType system TCType {
                
garciay's avatar
garciay committed
                test_decodePDU<SpatemInd>(
                    mw_spatemInd(mw_spatemPdu), 
                    '01040001B2074130000000BB8520000002000080FFFFFFFFFFFFFFFFFFFFFFFF'O
                );
            }
            
        } // End of group testMapSpatPrimitiveMessages
        
garciay's avatar
garciay committed
    } // End of group LibItsMapemSpatem_testCases 
garciay's avatar
garciay committed
} // End of module test_LibItsMapemSpatem_TypesAndValues