From de895ae4dbee0d14dbd391c46d2fe59585ff7527 Mon Sep 17 00:00:00 2001
From: Harald Welte <laforge@gnumonks.org>
Date: Sun, 27 May 2018 16:58:15 +0200
Subject: WIP: SCCPlite-wrapped CTRL testing

Change-Id: I8388dd6d2701fb0af41fa6a4cd047669ac84d293
---
 bsc/BSC_Tests.ttcn | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/bsc/BSC_Tests.ttcn b/bsc/BSC_Tests.ttcn
index b62dea6e..73a9fcd0 100644
--- a/bsc/BSC_Tests.ttcn
+++ b/bsc/BSC_Tests.ttcn
@@ -86,6 +86,8 @@ type component test_CT extends CTRL_Adapter_CT {
 	/* global test case guard timer */
 	timer T_guard := 30.0;
 
+	/* access of MSC to BSC CTRL interface via SCCPlite */
+	port IPA_CTRL_PT SCCPLITE_CTRL;
 }
 
 modulepar {
@@ -314,6 +316,10 @@ function f_init(integer nr_bts := NUM_BTS, boolean handler_mode := false) runs o
 		connect(self:BSSAP, g_bssap.vc_SCCP:SCCP_SP_PORT);
 		f_bssap_start(g_bssap);
 		f_legacy_bssap_reset();
+		if (mp_bssap_cfg.transport != BSSAP_TRANSPORT_AoIP) {
+			/* access of MSC to BSC CTRL interface via SCCPlite */
+			connect(self:SCCPLITE_CTRL, g_bssap.vc_IPA:IPA_CTRL_PORT);
+		}
 	}
 
 	f_ipa_ctrl_start(mp_bsc_ip, mp_bsc_ctrl_port);
@@ -2460,6 +2466,16 @@ testcase TC_mgcp() runs on test_CT {
 	vc_conn.done;
 }
 
+testcase TC_sccplite_ctrl() runs on test_CT {
+	var MSC_ConnHdlr vc_conn;
+
+	f_init(1);
+	f_sleep(1.0);
+
+	f_ctrl_get_exp(SCCPLITE_CTRL, "msc_connection_status", "connected");
+	f_ctrl_get_exp(SCCPLITE_CTRL, "foo_nonexistant", "connected");
+}
+
 
 control {
 	/* CTRL interface testing */
-- 
cgit v1.2.3