Commit 744d0c7c authored by ulrichst's avatar ulrichst
Browse files

merge SN TCFunctions into Develop branch

parent bf2e6148
Loading
Loading
Loading
Loading
+312 −13
Original line number Diff line number Diff line
@@ -1726,7 +1726,30 @@ module DiameterShDh_TCFunctions {
                    f_selfOrClientSyncAndVerdict(c_prDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Preamble done. ***");

                    //TODO TestBody
                    // TestBody
                    f_send_SNR(
                              md_sNR(
                                      vc_sessionId,
                                      md_snrBodyAvps(
                                                     vc_originHost,                 // containing an Origin-Host AVP
                                                     vc_originRealm,                // containing an Origin-Realm AVP
                                                     vc_destinationRealm,           // containing a Destination-Realm AVP
                                                     m_msisdn_user_Identity (
                                                             m_MSISDN_user_identity(char2oct(PX_NotRelatedPrivateIdentity))
                                                     ),
                                                     m_subs_Req_Type(SUBSCRIBE_E),
                                                     m_data_Reference(LOCATION_INFORMATION_E)
                               ))
                    );

                    f_awaiting_SNA(
                              mdw_sNA( 
                                      vc_sessionId,                       // containing a Session-ID AVP
                                      mdw_snaBodyAvps_experimental_result(
					                                mw_experimentalResult(DIAMETER_ERROR_USER_DATA_CANNOT_BE_NOTIFIED_E)
		                      ))
	 
                    );

                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

@@ -1744,7 +1767,29 @@ module DiameterShDh_TCFunctions {
                    f_selfOrClientSyncAndVerdict(c_prDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Preamble done. ***");

                    //TODO TestBody
                    // TestBody
                    f_send_SNR(
                              md_sNR(
                                      vc_sessionId,
                                      md_snrBodyAvps(
                                                     vc_originHost,                 // containing an Origin-Host AVP
                                                     vc_originRealm,                // containing an Origin-Realm AVP
                                                     vc_destinationRealm,           // containing a Destination-Realm AVP
                                                     m_msisdn_user_Identity (
                                                             m_MSISDN_user_identity(char2oct(PX_NotExistingUserIdentity))
                                                     )
                               ))
                    );

                    f_awaiting_SNA(
                              mdw_sNA( 
                                      vc_sessionId,                       // containing a Session-ID AVP
                                      mdw_snaBodyAvps_experimental_result(
                                                    mw_experimentalResult(DIAMETER_ERROR_USER_UNKNOWN_E)
                              ))
	 
                    );


                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

@@ -1762,7 +1807,31 @@ module DiameterShDh_TCFunctions {
                    f_selfOrClientSyncAndVerdict(c_prDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Preamble done. ***");

                    //TODO TestBody
                    // TestBody
                    f_send_SNR(
                              md_sNR(
                                      vc_sessionId,
                                      md_snrBodyAvps(
                                                     vc_originHost,                 // containing an Origin-Host AVP
                                                     vc_originRealm,                // containing an Origin-Realm AVP
                                                     vc_destinationRealm,           // containing a Destination-Realm AVP
                                                     m_msisdn_user_Identity (
                                                             m_MSISDN_user_identity(char2oct(PX_PublicUser_MSISDN))
                                                     ),
                                                     -,
                                                     -,
                                                     m_userName(PX_Private_Identity)
                               ))
                    );

                    f_awaiting_SNA(
                              mdw_sNA( 
                                      vc_sessionId,                       // containing a Session-ID AVP
                                      mdw_snaBodyAvps_experimental_result(
                                                    mw_experimentalResult(DIAMETER_ERROR_IDENTITIES_DONT_MATCH_E)
                              ))
	 
                    );

                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

@@ -1780,7 +1849,30 @@ module DiameterShDh_TCFunctions {
                    f_selfOrClientSyncAndVerdict(c_prDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Preamble done. ***");

                    //TODO TestBody
                    // TestBody
                    f_send_SNR(
                              md_sNR(
                                      vc_sessionId,
                                      md_snrBodyAvps(
                                                     vc_originHost,                 // containing an Origin-Host AVP
                                                     vc_originRealm,                // containing an Origin-Realm AVP
                                                     vc_destinationRealm,           // containing a Destination-Realm AVP
                                                     m_msisdn_user_Identity (
                                                             m_MSISDN_user_identity(char2oct(PX_PublicUser_MSISDN))
                                                     ),
                                                     m_subs_Req_Type(SUBSCRIBE_E),
                                                     m_data_Reference(REPOSITORY_DATA_E)
                               ))
                    );

                    f_awaiting_SNA(
                              mdw_sNA( 
                                      vc_sessionId,                       // containing a Session-ID AVP
                                      mdw_snaBodyAvps_experimental_result(
                                                    mw_experimentalResult(DIAMETER_ERROR_OPERATION_NOT_ALLOWED_E)
                              ))
	 
                    );
                    
                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

@@ -1798,7 +1890,31 @@ module DiameterShDh_TCFunctions {
                    f_selfOrClientSyncAndVerdict(c_prDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Preamble done. ***");

                    //TODO TestBody
                    // TestBody
                    f_send_SNR(
                              md_sNR(
                                      vc_sessionId,
                    						md_snrBodyAvps_DSAI_Tag(
                                                     vc_originHost,                 // containing an Origin-Host AVP
                                                     vc_originRealm,                // containing an Origin-Realm AVP
                                                     vc_destinationRealm,           // containing a Destination-Realm AVP
                                                     m_msisdn_user_Identity (
                                                             m_MSISDN_user_identity(char2oct(PX_PublicUserIdentity))
                                                     ),
                                                     m_data_Reference(DSAI_E),     // containing a Data-Reference AVP
                                                     m_dSAI_Tag_AVP('01'O)         // indicating not matching DSAI
                                                     
                               ))
                    );

                    f_awaiting_SNA(
                              mdw_sNA( 
                                      vc_sessionId,                       // containing a Session-ID AVP
                                      mdw_snaBodyAvps_experimental_result(
                                                    mw_experimentalResult(DIAMETER_ERROR_DSAI_NOT_AVAILABLE_E)
                              ))
	 
                    );

                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

@@ -1816,7 +1932,45 @@ module DiameterShDh_TCFunctions {
                    f_selfOrClientSyncAndVerdict(c_prDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Preamble done. ***");

                    //TODO TestBody
                    timer t1;
                    f_send_SNR(
                              md_sNR(
                                      vc_sessionId,
                                                md_snrBodyAvps_Expiry_Time(
                                                     vc_originHost,                 // containing an Origin-Host AVP
                                                     vc_originRealm,                // containing an Origin-Realm AVP
                                                     vc_destinationRealm,           // containing a Destination-Realm AVP
                                                     m_msisdn_user_Identity (
                                                             m_MSISDN_user_identity(char2oct(PX_PublicUserIdentity))
                                                     ),
                                                     m_data_Reference(DSAI_E),     // containing a Data-Reference AVP
                                                     m_expiry_Time_AVP(120)         // indicating not matching DSAI
                                                     
                               ))
                    );

					t1.start (120.0);
					
                    f_awaiting_SNA(
                              mdw_sNA( 
                                      vc_sessionId,                       // containing a Session-ID AVP
                                      mdw_snaBodyExpiryTimeAvps(
                                          mw_resultCode(DIAMETER_SUCCESS_E),
                                          vc_originHost_IUT,              // containing an Origin-Host AVP
                                          vc_originRealm_IUT,
                                          mw_expiry_Time_AVP(120) 
                              ))
	 
                    );
                    
                    t1.timeout;

                    // f_awaiting_PNA(mdw_pNR(vc_sessionId, mdw_pnrBodyAvps(?,?,?)));
				    alt{
                    	[] DIAMP.receive(DIAMETER_MSG:{pNR_MSG:=mdw_pNR(vc_sessionId, mdw_pnrBodyAvps(?,?,?) )})
                    		{ setverdict(fail) }
				    }


                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

@@ -1834,7 +1988,29 @@ module DiameterShDh_TCFunctions {
                    f_selfOrClientSyncAndVerdict(c_prDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Preamble done. ***");

                    //TODO TestBody
                    // TestBody
                    f_send_SNR(
                               md_sNR(
                                      vc_sessionId,
                                       md_snrBodyAvps_service_Indication(
                                            vc_originHost,                 // containing an Origin-Host AVP
                                            vc_originRealm,                // containing an Origin-Realm AVP
                                            vc_destinationRealm,           // containing a Destination-Realm AVP
                                            m_msisdn_user_Identity (
                                                 m_MSISDN_user_identity(char2oct(PX_PublicUserIdentity))
                                            ),
                                            m_data_Reference(REPOSITORY_DATA_E),
                                            m_service_Indication('00'O)
                               ))
                    );

                    f_awaiting_SNA(
                                   mdw_sNA( 
                                           vc_sessionId,                       // containing a Session-ID AVP
                                           mdw_snaBodyAvps_experimental_result(
                                                mw_experimentalResult(DIAMETER_ERROR_SUBS_DATA_ABSENT)
                        ))
                    );

                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

@@ -1852,7 +2028,30 @@ module DiameterShDh_TCFunctions {
                    f_selfOrClientSyncAndVerdict(c_prDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Preamble done. ***");

                    //TODO TestBody
                    // TestBody
                    f_send_SNR(
                               md_sNR(
                                      vc_sessionId,
                                      md_snrBodyAvps(
                                                     vc_originHost,                 // containing an Origin-Host AVP
                                                     vc_originRealm,                // containing an Origin-Realm AVP
                                                     vc_destinationRealm,           // containing a Destination-Realm AVP
                                                     m_msisdn_user_Identity (
                                                                             m_MSISDN_user_identity(char2oct(PX_NotRelatedPrivateIdentity))
                                                     ),
                                                     m_subs_Req_Type(SUBSCRIBE_E)
                                     ))
                    );

                    f_awaiting_SNA(
                                   mdw_sNA( 
                                           vc_sessionId,                       // containing a Session-ID AVP
                                           mdw_snaBodyAvps(
                                                           mw_resultCode(DIAMETER_SUCCESS_E),
                                                           vc_originHost_IUT,              // containing an Origin-Host AVP
                                                           vc_originRealm_IUT
                        ))
                    );

                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

@@ -1870,7 +2069,30 @@ module DiameterShDh_TCFunctions {
                    f_selfOrClientSyncAndVerdict(c_prDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Preamble done. ***");

                    //TODO TestBody
                    // TestBody
                    f_send_SNR(
                               md_sNR(
                                      vc_sessionId,
                                      md_snrBodyAvps(
                                                     vc_originHost,                 // containing an Origin-Host AVP
                                                     vc_originRealm,                // containing an Origin-Realm AVP
                                                     vc_destinationRealm,           // containing a Destination-Realm AVP
                                                     m_msisdn_user_Identity (
                                                                             m_MSISDN_user_identity(char2oct(PX_NotRelatedPrivateIdentity))
                                                     ),
                                                     m_subs_Req_Type(UNSUBSCRIBE_E)
                                     ))
                    );

                    f_awaiting_SNA(
                                   mdw_sNA( 
                                           vc_sessionId,                       // containing a Session-ID AVP
                                           mdw_snaBodyAvps(
                                                           mw_resultCode(DIAMETER_SUCCESS_E),
                                                           vc_originHost_IUT,              // containing an Origin-Host AVP
                                                           vc_originRealm_IUT
                        ))
                    );

                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

@@ -1880,6 +2102,7 @@ module DiameterShDh_TCFunctions {

                } // End of function f_TC_SH_HSS_SN_10()

                
                function f_TC_SH_HSS_SN_11() runs on DiameterShDh { 
                    // Local variables
                    var TSh_Data v_TSh_Data;
@@ -2481,16 +2704,38 @@ module DiameterShDh_TCFunctions {
                    f_selfOrClientSyncAndVerdict(c_prDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Preamble done. ***");

                    //TODO TestBody
                    f_awaiting_SNR(
                                    mdw_sNR(
                                            ?,                                  // containing a Session-ID AVP
                                            mdw_snrBodyAvps(
                                                              ?,
                                                              ?,
                                                              vc_originHost_IUT,              // containing an Origin-Host AVP
                                                              vc_originRealm_IUT,             // containing an Origin-Realm AVP
                                                              vc_destinationRealm_IUT ,                      
                                                              ?,
                                                              ?,
                                                              ?
                    )));

                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

                    f_send_SNA(
                               md_sNA(
                                      vc_sessionId,                                           // Set in f_awaiting_PUR
                                       md_snaBodyAvps(
                                                     m_resultCode(DIAMETER_SUCCESS_E),
                                                     vc_originHost,
                                                     vc_originRealm
                              )));

                    f_postamble_Sh_HSS();
                    f_selfOrClientSyncAndVerdict(c_poDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Postamble done. ***");

                } // End of function f_TC_SH_AS_SN_01()  
            
                
            } // End of group TP_ASRole_SubscriptionNotification
            
            group TP_ASRole_PushNotification{
@@ -2667,7 +2912,32 @@ module DiameterShDh_TCFunctions {
                    f_selfOrClientSyncAndVerdict(c_prDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Preamble done. ***");

                    //TODO TestBody
                    //TestBody
                    f_send_SNR(
                               md_sNR(
                                      vc_sessionId,
                                      md_snrBodyAvps(
                                          vc_originHost,                 // containing an Origin-Host AVP
                                          vc_originRealm,                // containing an Origin-Realm AVP
                                          vc_destinationRealm,           // containing a Destination-Realm AVP
                                          m_specific_user_Identity (
                                                 m_public_user_identity(PX_PublicUserIdentity)
                                          ),
                                          -,
                                          -,
                                          m_userName(PX_Private_Identity)
                                      )
                    ));

                    f_awaiting_SNA(
                                   mdw_sNA(
                                           ?,                                  // containing a Session-ID AVP
                                           mdw_snaBodyAvps_redirect_Host(
                                                                        mw_redirect_host(PX_HSS_IDENTITY),
                                                                        mw_resultCode(DIAMETER_REDIRECT_INDICATION_E)
                     )));

                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

@@ -2677,6 +2947,7 @@ module DiameterShDh_TCFunctions {

                } // End of function f_TC_DH_SLF_SN_01()

                
            } // End of group TP_SLFRole_SubscriptionNotification
            
        } // End of group TP_SLFRole
@@ -2873,7 +3144,34 @@ module DiameterShDh_TCFunctions {
                    f_selfOrClientSyncAndVerdict(c_prDone, f_getVerdict()); 
                    log("*** " & __SCOPE__ & ": INFO: Preamble done. ***");

                    //TODO TestBody
                    f_selfOrClientSyncAndVerdict(c_sync1, f_getVerdict());

                    f_awaiting_SNR(
                                    mdw_sNR(
                                            ?,                                  // containing a Session-ID AVP
                                            mdw_snrBodyAvps(
                                                              ?,
                                                              ?,
                                                              vc_originHost_IUT,              // containing an Origin-Host AVP
                                                              vc_originRealm_IUT,             // containing an Origin-Realm AVP
                                                              vc_destinationRealm_IUT ,                      
                                                              ?,
                                                              ?,
                                                              ?
                    )));

                    f_send_SNA(
                                          md_sNA(
                                                           vc_sessionId,                                          
                                                           md_snaBodyAvps_redirect(
                                                                        m_resultCode(DIAMETER_REDIRECT_INDICATION_E ),
                                                                        vc_originHost,
                                                                        vc_originRealm,
                                                                        m_redirect_host(               // containing a Redirect-Host AVP
                                                                            PX_HSS_IDENTITY//     indicating the HSS identity to be used
                                                                        )
                              ))); 

                 
                    f_selfOrClientSyncAndVerdict(c_tbDone, f_getVerdict()); 

@@ -2883,6 +3181,7 @@ module DiameterShDh_TCFunctions {

                } // End of function f_TC_DH_AS_SN_01()

                
            } // End of group TP_ASRole_SubscriptionNotification
            
        } // End of group TP_DH_ASRole