Add minimal MGCP parser/encoder based on TEXT codec
diff --git a/mgw/MGCP_Test.ttcn b/mgw/MGCP_Test.ttcn
new file mode 100644
index 0000000..53cc94c
--- /dev/null
+++ b/mgw/MGCP_Test.ttcn
@@ -0,0 +1,51 @@
+module MGCP_Test {
+ import from MGCP_Types all;
+
+ type component dummy_CT {
+ };
+
+ testcase TC_selftest() runs on dummy_CT {
+ const charstring c_auep := "AUEP 158663169 ds/e1-1/2@172.16.6.66 MGCP 1.0\r\n";
+ const charstring c_mdcx3 := "MDCX 18983215 1@mgw MGCP 1.0\r\n";
+ const charstring c_mdcx3_ret := "200 18983215 OK\r\n" &
+ "I: 1\n" &
+ "\n" &
+ "v=0\r\n" &
+ "o=- 1 23 IN IP4 0.0.0.0\r\n" &
+ "s=-\r\n" &
+ "c=IN IP4 0.0.0.0\r\n" &
+ "t=0 0\r\n" &
+ "m=audio 0 RTP/AVP 126\r\n" &
+ "a=rtpmap:126 AMR/8000\r\n" &
+ "a=ptime:20\r\n";
+ const charstring c_mdcx4 := "MDCX 18983216 1@mgw MGCP 1.0\r\n" &
+ "M: sendrecv\r" &
+ "C: 2\r\n" &
+ "I: 1\r\n" &
+ "L: p:20, a:AMR, nt:IN\r\n" &
+ "\n" &
+ "v=0\r\n" &
+ "o=- 1 23 IN IP4 0.0.0.0\r\n" &
+ "c=IN IP4 0.0.0.0\r\n" &
+ "t=0 0\r\n" &
+ "m=audio 4441 RTP/AVP 99\r\n" &
+ "a=rtpmap:99 AMR/8000\r\n" &
+ "a=ptime:40\r\n";
+
+ log(c_auep);
+ log(dec_MgcpCommand(c_auep));
+
+ log(c_mdcx3);
+ log(dec_MgcpCommand(c_mdcx3));
+
+ log(c_mdcx3_ret);
+ log(dec_MgcpResponse(c_mdcx3_ret));
+
+ log(c_mdcx4);
+ log(dec_MgcpCommand(c_mdcx4));
+ }
+
+ control {
+ execute(TC_selftest());
+ }
+}