<p>lynxis lazus would like laforge to <strong>review</strong> this change.</p><p><a href="https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/20673">View Change</a></p><pre style="font-family: monospace,monospace; white-space: pre-wrap;">FR/FRNET: add Frame Relay emulation<br><br>Add frame relay testcase for BSS and SGSN side.<br>The test cases require hdlc interfaces (based on<br>dadhi with super channels and no lmi).<br><br>Change-Id: I95d64dc26a8d2ff02d6cf2bfcd22a97e5481f957<br>---<br>M deps/Makefile<br>A fr-net/FRNET_Tests.cfg<br>A fr-net/FRNET_Tests.default<br>A fr-net/FRNET_Tests.ttcn<br>A fr-net/gen_links.sh<br>A fr-net/regen_makefile.sh<br>A fr/FR_Tests.cfg<br>A fr/FR_Tests.default<br>A fr/FR_Tests.ttcn<br>A fr/gen_links.sh<br>A fr/regen_makefile.sh<br>11 files changed, 356 insertions(+), 0 deletions(-)<br><br></pre><pre style="font-family: monospace,monospace; white-space: pre-wrap;">git pull ssh://gerrit.osmocom.org:29418/osmo-ttcn3-hacks refs/changes/73/20673/1</pre><pre style="font-family: monospace,monospace; white-space: pre-wrap;"><span>diff --git a/deps/Makefile b/deps/Makefile</span><br><span>index 77e469d..a67c4f8 100644</span><br><span>--- a/deps/Makefile</span><br><span>+++ b/deps/Makefile</span><br><span>@@ -70,6 +70,7 @@</span><br><span> OSMOGIT_REPOS= titan.ProtocolModules.MAP \</span><br><span> titan.ProtocolModules.BSSMAP \</span><br><span> titan.TestPorts.USB \</span><br><span style="color: hsl(120, 100%, 40%);">+ titan.TestPorts.AF_PACKET \</span><br><span> osmo-uecups</span><br><span> </span><br><span> ALL_REPOS=$(ECLIPSEGITHUB_REPOS) $(ECLIPSEGIT2_REPOS) $(OSMOGITHUB_REPOS) $(OSMOGIT_REPOS)</span><br><span>@@ -111,6 +112,7 @@</span><br><span> titan.ProtocolModules.SUA_commit= R.5.A-5-gcf1137a</span><br><span> titan.ProtocolModules.TCP_commit= R.3.A-5-g39e5f45</span><br><span> titan.ProtocolModules.UDP_commit= R.4.A-5-geea8aa3</span><br><span style="color: hsl(120, 100%, 40%);">+titan.TestPorts.AF_PACKET_commit= master</span><br><span> titan.TestPorts.Common_Components.Socket-API_commit= R.6.A-6-gf4380d0</span><br><span> titan.TestPorts.Common_Components.Abstract_Socket_commit= R.9.B-4-gbd41994</span><br><span> titan.TestPorts.HTTPmsg_commit= R.9.B-4-g9a0dfde</span><br><span>diff --git a/fr-net/FRNET_Tests.cfg b/fr-net/FRNET_Tests.cfg</span><br><span>new file mode 100644</span><br><span>index 0000000..dedd828</span><br><span>--- /dev/null</span><br><span>+++ b/fr-net/FRNET_Tests.cfg</span><br><span>@@ -0,0 +1,16 @@</span><br><span style="color: hsl(120, 100%, 40%);">+[ORDERED_INCLUDE]</span><br><span style="color: hsl(120, 100%, 40%);">+# Common configuration, shared between test suites</span><br><span style="color: hsl(120, 100%, 40%);">+"../Common.cfg"</span><br><span style="color: hsl(120, 100%, 40%);">+# testsuite specific configuration, not expected to change</span><br><span style="color: hsl(120, 100%, 40%);">+"./FRNET_Tests.default"</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[LOGGING]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[MODULE_PARAMETERS]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[TESTPORT_PARAMETERS]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[MAIN_CONTROLLER]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[EXECUTE]</span><br><span style="color: hsl(120, 100%, 40%);">+FRNET_Tests.control</span><br><span>diff --git a/fr-net/FRNET_Tests.default b/fr-net/FRNET_Tests.default</span><br><span>new file mode 100644</span><br><span>index 0000000..e2fe60d</span><br><span>--- /dev/null</span><br><span>+++ b/fr-net/FRNET_Tests.default</span><br><span>@@ -0,0 +1,15 @@</span><br><span style="color: hsl(120, 100%, 40%);">+[ORDERED_INCLUDE]</span><br><span style="color: hsl(120, 100%, 40%);">+# Common configuration, shared between test suites</span><br><span style="color: hsl(120, 100%, 40%);">+"../Common.cfg"</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[LOGGING]</span><br><span style="color: hsl(120, 100%, 40%);">+#*.FileMask := LOG_ALL</span><br><span style="color: hsl(120, 100%, 40%);">+ConsoleMask := ERROR | WARNING | TESTCASE | TIMEROP_START | DEBUG_ENCDEC | USER</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[MODULE_PARAMETERS]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[TESTPORT_PARAMETERS]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[MAIN_CONTROLLER]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[EXECUTE]</span><br><span>diff --git a/fr-net/FRNET_Tests.ttcn b/fr-net/FRNET_Tests.ttcn</span><br><span>new file mode 100644</span><br><span>index 0000000..c2994f6</span><br><span>--- /dev/null</span><br><span>+++ b/fr-net/FRNET_Tests.ttcn</span><br><span>@@ -0,0 +1,80 @@</span><br><span style="color: hsl(120, 100%, 40%);">+module FRNET_Tests {</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+import from General_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from Osmocom_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from Osmocom_Gb_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+import from NS_Emulation all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from BSSGP_Emulation all;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+modulepar {</span><br><span style="color: hsl(120, 100%, 40%);">+ NSConfigurations mp_nsconfig := {</span><br><span style="color: hsl(120, 100%, 40%);">+ {</span><br><span style="color: hsl(120, 100%, 40%);">+ provider := {</span><br><span style="color: hsl(120, 100%, 40%);">+ fr := {</span><br><span style="color: hsl(120, 100%, 40%);">+ netdev := "hdlc2",</span><br><span style="color: hsl(120, 100%, 40%);">+ dlci := 123</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ },</span><br><span style="color: hsl(120, 100%, 40%);">+ nsvci := 123,</span><br><span style="color: hsl(120, 100%, 40%);">+ nsei := 123,</span><br><span style="color: hsl(120, 100%, 40%);">+ role_sgsn := true,</span><br><span style="color: hsl(120, 100%, 40%);">+ handle_sns := false</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ };</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type record GbInstance {</span><br><span style="color: hsl(120, 100%, 40%);">+ NS_CT vc_NS,</span><br><span style="color: hsl(120, 100%, 40%);">+ BSSGP_CT vc_BSSGP,</span><br><span style="color: hsl(120, 100%, 40%);">+ BssgpConfig cfg</span><br><span style="color: hsl(120, 100%, 40%);">+};</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+const integer NUM_GB := 1;</span><br><span style="color: hsl(120, 100%, 40%);">+type record length(NUM_GB) of GbInstance GbInstances;</span><br><span style="color: hsl(120, 100%, 40%);">+type record length(NUM_GB) of NSConfiguration NSConfigurations;</span><br><span style="color: hsl(120, 100%, 40%);">+type record length(NUM_GB) of BssgpCellId BssgpCellIds;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type component test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ var GbInstances g_gb;</span><br><span style="color: hsl(120, 100%, 40%);">+};</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_init_gb(inout GbInstance gb, charstring id, integer offset) runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ var charstring id_idx := id & int2str(offset);</span><br><span style="color: hsl(120, 100%, 40%);">+ gb.vc_NS := NS_CT.create(id_idx & "-NSemu");</span><br><span style="color: hsl(120, 100%, 40%);">+ gb.vc_BSSGP := BSSGP_CT.create(id_idx & "-BSSGPemu");</span><br><span style="color: hsl(120, 100%, 40%);">+ connect(gb.vc_BSSGP:BSCP, gb.vc_NS:NS_SP);</span><br><span style="color: hsl(120, 100%, 40%);">+ gb.vc_NS.start(NSStart(mp_nsconfig[offset], id_idx));</span><br><span style="color: hsl(120, 100%, 40%);">+ gb.vc_BSSGP.start(BssgpStart(gb.cfg, testcasename()));</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+testcase TC_foo() runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ g_gb[0].cfg := {</span><br><span style="color: hsl(120, 100%, 40%);">+ nsei := 123,</span><br><span style="color: hsl(120, 100%, 40%);">+ sgsn_role := true,</span><br><span style="color: hsl(120, 100%, 40%);">+ bvc := {</span><br><span style="color: hsl(120, 100%, 40%);">+ {</span><br><span style="color: hsl(120, 100%, 40%);">+ bvci := 1123,</span><br><span style="color: hsl(120, 100%, 40%);">+ cell_id := {</span><br><span style="color: hsl(120, 100%, 40%);">+ ra_id := {</span><br><span style="color: hsl(120, 100%, 40%);">+ lai := {</span><br><span style="color: hsl(120, 100%, 40%);">+ mcc_mnc := '262F42'H,</span><br><span style="color: hsl(120, 100%, 40%);">+ lac := 11123</span><br><span style="color: hsl(120, 100%, 40%);">+ },</span><br><span style="color: hsl(120, 100%, 40%);">+ rac := 1</span><br><span style="color: hsl(120, 100%, 40%);">+ },</span><br><span style="color: hsl(120, 100%, 40%);">+ cell_id := 31123</span><br><span style="color: hsl(120, 100%, 40%);">+ },</span><br><span style="color: hsl(120, 100%, 40%);">+ depth := BSSGP_DECODE_DEPTH_LLC</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ };</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init_gb(g_gb[0], "gb", 0);</span><br><span style="color: hsl(120, 100%, 40%);">+ while (true) {</span><br><span style="color: hsl(120, 100%, 40%);">+ f_sleep(100.0);</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span>diff --git a/fr-net/gen_links.sh b/fr-net/gen_links.sh</span><br><span>new file mode 100755</span><br><span>index 0000000..4ab3ed0</span><br><span>--- /dev/null</span><br><span>+++ b/fr-net/gen_links.sh</span><br><span>@@ -0,0 +1,55 @@</span><br><span style="color: hsl(120, 100%, 40%);">+#!/bin/bash</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+BASEDIR=../deps</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+. ../gen_links.sh.inc</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+#DIR=$BASEDIR/titan.TestPorts.UNIX_DOMAIN_SOCKETasp/src</span><br><span style="color: hsl(120, 100%, 40%);">+#FILES="UD_PT.cc UD_PT.hh UD_PortType.ttcn UD_Types.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+#gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.Libraries.TCCUsefulFunctions/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="TCCInterface_Functions.ttcn TCCConversion_Functions.ttcn TCCConversion.cc TCCInterface.cc TCCInterface_ip.h"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.TestPorts.Common_Components.Socket-API/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="Socket_API_Definitions.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.TestPorts.IPL4asp/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="IPL4asp_Functions.ttcn IPL4asp_PT.cc IPL4asp_PT.hh IPL4asp_PortType.ttcn IPL4asp_Types.ttcn IPL4asp_discovery.cc IPL4asp_protocol_L234.hh"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.ProtocolModules.NS_v7.3.0/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="NS_Types.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.ProtocolModules.BSSGP_v13.0.0/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="BSSGP_EncDec.cc BSSGP_Types.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.ProtocolModules.LLC_v7.1.0/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="LLC_EncDec.cc LLC_Types.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.ProtocolModules.SNDCP_v7.0.0/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="SNDCP_Types.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.TestPorts.TELNETasp/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="TELNETasp_PT.cc TELNETasp_PT.hh TELNETasp_PortType.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.TestPorts.AF_PACKET/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="AF_PACKET_PT.cc AF_PACKET_PT.hh AF_PACKET_PortType.ttcn AF_PACKET_PortTypes.ttcn "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="FrameRelay_Types.ttcn FrameRelay_CodecPort.ttcn FrameRelay_Emulation.ttcn Q931_Types.ttcn Q933_Types.ttcn "</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=../library</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="Misc_Helpers.ttcn General_Types.ttcn Osmocom_VTY_Functions.ttcn Native_Functions.ttcn Native_FunctionDefs.cc GSM_Types.ttcn Osmocom_Types.ttcn "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="NS_Provider_IPL4.ttcn NS_Provider_FR.ttcn NS_Emulation.ttcnpp NS_CodecPort.ttcn NS_CodecPort_CtrlFunct.ttcn NS_CodecPort_CtrlFunctDef.cc "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="BSSGP_Emulation.ttcnpp Osmocom_Gb_Types.ttcn "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="LLC_Templates.ttcn "</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ignore_pp_results</span><br><span>diff --git a/fr-net/regen_makefile.sh b/fr-net/regen_makefile.sh</span><br><span>new file mode 100755</span><br><span>index 0000000..0a05f6c</span><br><span>--- /dev/null</span><br><span>+++ b/fr-net/regen_makefile.sh</span><br><span>@@ -0,0 +1,10 @@</span><br><span style="color: hsl(120, 100%, 40%);">+#!/bin/bash</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="*.ttcn *.ttcnpp BSSGP_EncDec.cc IPL4asp_PT.cc IPL4asp_discovery.cc TCCConversion.cc TCCInterface.cc "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="AF_PACKET_PT.cc "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="Native_FunctionDefs.cc "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="NS_CodecPort_CtrlFunctDef.cc LLC_EncDec.cc LLC_Types.cc TELNETasp_PT.cc "</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+export CPPFLAGS_TTCN3="-DNS_EMULATION_FR"</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+../regen-makefile.sh FRNET_Tests.ttcn $FILES</span><br><span>diff --git a/fr/FR_Tests.cfg b/fr/FR_Tests.cfg</span><br><span>new file mode 100644</span><br><span>index 0000000..9a97c3a</span><br><span>--- /dev/null</span><br><span>+++ b/fr/FR_Tests.cfg</span><br><span>@@ -0,0 +1,16 @@</span><br><span style="color: hsl(120, 100%, 40%);">+[ORDERED_INCLUDE]</span><br><span style="color: hsl(120, 100%, 40%);">+# Common configuration, shared between test suites</span><br><span style="color: hsl(120, 100%, 40%);">+"../Common.cfg"</span><br><span style="color: hsl(120, 100%, 40%);">+# testsuite specific configuration, not expected to change</span><br><span style="color: hsl(120, 100%, 40%);">+"./FR_Tests.default"</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[LOGGING]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[MODULE_PARAMETERS]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[TESTPORT_PARAMETERS]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[MAIN_CONTROLLER]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[EXECUTE]</span><br><span style="color: hsl(120, 100%, 40%);">+FR_Tests.control</span><br><span>diff --git a/fr/FR_Tests.default b/fr/FR_Tests.default</span><br><span>new file mode 100644</span><br><span>index 0000000..e2fe60d</span><br><span>--- /dev/null</span><br><span>+++ b/fr/FR_Tests.default</span><br><span>@@ -0,0 +1,15 @@</span><br><span style="color: hsl(120, 100%, 40%);">+[ORDERED_INCLUDE]</span><br><span style="color: hsl(120, 100%, 40%);">+# Common configuration, shared between test suites</span><br><span style="color: hsl(120, 100%, 40%);">+"../Common.cfg"</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[LOGGING]</span><br><span style="color: hsl(120, 100%, 40%);">+#*.FileMask := LOG_ALL</span><br><span style="color: hsl(120, 100%, 40%);">+ConsoleMask := ERROR | WARNING | TESTCASE | TIMEROP_START | DEBUG_ENCDEC | USER</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[MODULE_PARAMETERS]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[TESTPORT_PARAMETERS]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[MAIN_CONTROLLER]</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+[EXECUTE]</span><br><span>diff --git a/fr/FR_Tests.ttcn b/fr/FR_Tests.ttcn</span><br><span>new file mode 100644</span><br><span>index 0000000..a7b8a97</span><br><span>--- /dev/null</span><br><span>+++ b/fr/FR_Tests.ttcn</span><br><span>@@ -0,0 +1,83 @@</span><br><span style="color: hsl(120, 100%, 40%);">+module FR_Tests {</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+import from General_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from Osmocom_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from Osmocom_Gb_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+import from NS_Emulation all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from BSSGP_Emulation all;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+modulepar {</span><br><span style="color: hsl(120, 100%, 40%);">+ NSConfigurations mp_nsconfig := {</span><br><span style="color: hsl(120, 100%, 40%);">+ {</span><br><span style="color: hsl(120, 100%, 40%);">+ provider := {</span><br><span style="color: hsl(120, 100%, 40%);">+ fr := {</span><br><span style="color: hsl(120, 100%, 40%);">+ netdev := "hdlc1",</span><br><span style="color: hsl(120, 100%, 40%);">+ dlci := 123</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ },</span><br><span style="color: hsl(120, 100%, 40%);">+ nsvci := 123,</span><br><span style="color: hsl(120, 100%, 40%);">+ nsei := 123,</span><br><span style="color: hsl(120, 100%, 40%);">+ role_sgsn := false,</span><br><span style="color: hsl(120, 100%, 40%);">+ handle_sns := false</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ };</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type record GbInstance {</span><br><span style="color: hsl(120, 100%, 40%);">+ NS_CT vc_NS,</span><br><span style="color: hsl(120, 100%, 40%);">+ BSSGP_CT vc_BSSGP,</span><br><span style="color: hsl(120, 100%, 40%);">+ BssgpConfig cfg</span><br><span style="color: hsl(120, 100%, 40%);">+};</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+const integer NUM_GB := 1;</span><br><span style="color: hsl(120, 100%, 40%);">+type record length(NUM_GB) of GbInstance GbInstances;</span><br><span style="color: hsl(120, 100%, 40%);">+type record length(NUM_GB) of NSConfiguration NSConfigurations;</span><br><span style="color: hsl(120, 100%, 40%);">+type record length(NUM_GB) of BssgpCellId BssgpCellIds;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type component test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ var GbInstances g_gb;</span><br><span style="color: hsl(120, 100%, 40%);">+};</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_init_gb(inout GbInstance gb, charstring id, integer offset) runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ var charstring id_idx := id & int2str(offset);</span><br><span style="color: hsl(120, 100%, 40%);">+ gb.vc_NS := NS_CT.create(id_idx & "-NSemu");</span><br><span style="color: hsl(120, 100%, 40%);">+ gb.vc_BSSGP := BSSGP_CT.create(id_idx & "-BSSGPemu");</span><br><span style="color: hsl(120, 100%, 40%);">+ connect(gb.vc_BSSGP:BSCP, gb.vc_NS:NS_SP);</span><br><span style="color: hsl(120, 100%, 40%);">+ gb.vc_NS.start(NSStart(mp_nsconfig[offset], id_idx));</span><br><span style="color: hsl(120, 100%, 40%);">+ gb.vc_BSSGP.start(BssgpStart(gb.cfg, testcasename()));</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+testcase TC_foo() runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ g_gb[0].cfg := {</span><br><span style="color: hsl(120, 100%, 40%);">+ nsei := 123,</span><br><span style="color: hsl(120, 100%, 40%);">+ sgsn_role := false,</span><br><span style="color: hsl(120, 100%, 40%);">+ bvc := {</span><br><span style="color: hsl(120, 100%, 40%);">+ {</span><br><span style="color: hsl(120, 100%, 40%);">+ bvci := 1123,</span><br><span style="color: hsl(120, 100%, 40%);">+ cell_id := {</span><br><span style="color: hsl(120, 100%, 40%);">+ ra_id := {</span><br><span style="color: hsl(120, 100%, 40%);">+ lai := {</span><br><span style="color: hsl(120, 100%, 40%);">+ mcc_mnc := '262F42'H,</span><br><span style="color: hsl(120, 100%, 40%);">+ lac := 11123</span><br><span style="color: hsl(120, 100%, 40%);">+ },</span><br><span style="color: hsl(120, 100%, 40%);">+ rac := 1</span><br><span style="color: hsl(120, 100%, 40%);">+ },</span><br><span style="color: hsl(120, 100%, 40%);">+ cell_id := 31123</span><br><span style="color: hsl(120, 100%, 40%);">+ },</span><br><span style="color: hsl(120, 100%, 40%);">+ depth := BSSGP_DECODE_DEPTH_LLC</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ };</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init_gb(g_gb[0], "gb", 0);</span><br><span style="color: hsl(120, 100%, 40%);">+ while (true) {</span><br><span style="color: hsl(120, 100%, 40%);">+ f_sleep(100.0);</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+control {</span><br><span style="color: hsl(120, 100%, 40%);">+ execute( TC_foo() );</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span>diff --git a/fr/gen_links.sh b/fr/gen_links.sh</span><br><span>new file mode 100755</span><br><span>index 0000000..4ab3ed0</span><br><span>--- /dev/null</span><br><span>+++ b/fr/gen_links.sh</span><br><span>@@ -0,0 +1,55 @@</span><br><span style="color: hsl(120, 100%, 40%);">+#!/bin/bash</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+BASEDIR=../deps</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+. ../gen_links.sh.inc</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+#DIR=$BASEDIR/titan.TestPorts.UNIX_DOMAIN_SOCKETasp/src</span><br><span style="color: hsl(120, 100%, 40%);">+#FILES="UD_PT.cc UD_PT.hh UD_PortType.ttcn UD_Types.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+#gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.Libraries.TCCUsefulFunctions/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="TCCInterface_Functions.ttcn TCCConversion_Functions.ttcn TCCConversion.cc TCCInterface.cc TCCInterface_ip.h"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.TestPorts.Common_Components.Socket-API/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="Socket_API_Definitions.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.TestPorts.IPL4asp/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="IPL4asp_Functions.ttcn IPL4asp_PT.cc IPL4asp_PT.hh IPL4asp_PortType.ttcn IPL4asp_Types.ttcn IPL4asp_discovery.cc IPL4asp_protocol_L234.hh"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.ProtocolModules.NS_v7.3.0/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="NS_Types.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.ProtocolModules.BSSGP_v13.0.0/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="BSSGP_EncDec.cc BSSGP_Types.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.ProtocolModules.LLC_v7.1.0/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="LLC_EncDec.cc LLC_Types.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.ProtocolModules.SNDCP_v7.0.0/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="SNDCP_Types.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.TestPorts.TELNETasp/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="TELNETasp_PT.cc TELNETasp_PT.hh TELNETasp_PortType.ttcn"</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=$BASEDIR/titan.TestPorts.AF_PACKET/src</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="AF_PACKET_PT.cc AF_PACKET_PT.hh AF_PACKET_PortType.ttcn AF_PACKET_PortTypes.ttcn "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="FrameRelay_Types.ttcn FrameRelay_CodecPort.ttcn FrameRelay_Emulation.ttcn Q931_Types.ttcn Q933_Types.ttcn "</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+DIR=../library</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="Misc_Helpers.ttcn General_Types.ttcn Osmocom_VTY_Functions.ttcn Native_Functions.ttcn Native_FunctionDefs.cc GSM_Types.ttcn Osmocom_Types.ttcn "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="NS_Provider_IPL4.ttcn NS_Provider_FR.ttcn NS_Emulation.ttcnpp NS_CodecPort.ttcn NS_CodecPort_CtrlFunct.ttcn NS_CodecPort_CtrlFunctDef.cc "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="BSSGP_Emulation.ttcnpp Osmocom_Gb_Types.ttcn "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="LLC_Templates.ttcn "</span><br><span style="color: hsl(120, 100%, 40%);">+gen_links $DIR $FILES</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ignore_pp_results</span><br><span>diff --git a/fr/regen_makefile.sh b/fr/regen_makefile.sh</span><br><span>new file mode 100755</span><br><span>index 0000000..c38fed4</span><br><span>--- /dev/null</span><br><span>+++ b/fr/regen_makefile.sh</span><br><span>@@ -0,0 +1,9 @@</span><br><span style="color: hsl(120, 100%, 40%);">+#!/bin/bash</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="*.ttcn *.ttcnpp IPL4asp_PT.cc IPL4asp_discovery.cc TCCConversion.cc TCCInterface.cc Native_FunctionDefs.cc "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="BSSGP_EncDec.cc NS_CodecPort_CtrlFunctDef.cc LLC_EncDec.cc TELNETasp_PT.cc "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES+="AF_PACKET_PT.cc AF_PACKET_PT.hh "</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+export CPPFLAGS_TTCN3="-DNS_EMULATION_FR"</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+../regen-makefile.sh FR_Tests.ttcn $FILES</span><br><span></span><br></pre><p>To view, visit <a href="https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/20673">change 20673</a>. To unsubscribe, or for help writing mail filters, visit <a href="https://gerrit.osmocom.org/settings">settings</a>.</p><div itemscope itemtype="http://schema.org/EmailMessage"><div itemscope itemprop="action" itemtype="http://schema.org/ViewAction"><link itemprop="url" href="https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/20673"/><meta itemprop="name" content="View Change"/></div></div>
<div style="display:none"> Gerrit-Project: osmo-ttcn3-hacks </div>
<div style="display:none"> Gerrit-Branch: master </div>
<div style="display:none"> Gerrit-Change-Id: I95d64dc26a8d2ff02d6cf2bfcd22a97e5481f957 </div>
<div style="display:none"> Gerrit-Change-Number: 20673 </div>
<div style="display:none"> Gerrit-PatchSet: 1 </div>
<div style="display:none"> Gerrit-Owner: lynxis lazus <lynxis@fe80.eu> </div>
<div style="display:none"> Gerrit-Reviewer: laforge <laforge@osmocom.org> </div>
<div style="display:none"> Gerrit-MessageType: newchange </div>