Implement TC_attach_auth_sai_reject

Change-Id: I8a27c26bb2b6372faccd34c48a597a57783a924f
diff --git a/sgsn/SGSN_Tests.ttcn b/sgsn/SGSN_Tests.ttcn
index 7e1c48e..bb97c64 100644
--- a/sgsn/SGSN_Tests.ttcn
+++ b/sgsn/SGSN_Tests.ttcn
@@ -399,6 +399,34 @@
 	vc_conn.done;
 }
 
+/* HLR rejects SAI, expect ATTACH REJECT */
+private function f_TC_attach_auth_sai_reject(charstring id) runs on BSSGP_ConnHdlr {
+	var MobileIdentityLV mi;
+	var RoutingAreaIdentificationV old_ra := f_random_RAI();
+
+	if (ispresent(g_pars.p_tmsi)) {
+		mi := valueof(ts_MI_TMSI_LV(g_pars.p_tmsi));
+	} else {
+		mi := valueof(ts_MI_IMSI_LV(g_pars.imsi));
+	}
+
+	BSSGP.send(ts_GMM_ATTACH_REQ(mi, old_ra, false, false, omit, omit));
+	alt {
+	[] as_mm_identity();
+	[] GSUP.receive(tr_GSUP_SAI_REQ(g_pars.imsi)); {
+		GSUP.send(ts_GSUP_SAI_ERR(g_pars.imsi, 23));
+		}
+	}
+	BSSGP.receive(tr_BD_L3_MT(tr_GMM_ATTACH_REJECT(?)));
+	setverdict(pass);
+}
+testcase TC_attach_auth_sai_reject() runs on test_CT {
+	var BSSGP_ConnHdlr vc_conn;
+	f_init();
+	vc_conn := f_start_handler(refers(f_TC_attach_auth_sai_reject), testcasename(), g_gb[0], 3);
+	vc_conn.done;
+}
+
 /* HLR never responds to UL REQ, expect ATTACH REJECT */
 private function f_TC_attach_gsup_lu_timeout(charstring id) runs on BSSGP_ConnHdlr {
 	var BssgpDecoded bd;
@@ -574,6 +602,7 @@
 	execute( TC_attach() );
 	execute( TC_attach_auth_id_timeout() );
 	execute( TC_attach_auth_sai_timeout() );
+	execute( TC_attach_auth_sai_reject() );
 	execute( TC_attach_gsup_lu_timeout() );
 	execute( TC_attach_combined() );
 	execute( TC_attach_accept_all() );