. (0f3cb1b8) · Commits · Olaf Bergengruen / SCTPTest

Client.cfg

+11 −10

Original line number	Diff line number	Diff line
		@@ -13,19 +13,20 @@ LogSourceInfo := Yes

		[MODULE_PARAMETERS]

		TCPTest.px_ClientAddr := "192.168.178.35"; // "127.0.0.1"; //"10.0.2.15"; // VM
		TCPTest.px_ServerAddr := "192.168.178.35";
		TCPTest.px_ClientPort := 50060;
		TCPTest.px_ServerPort := 5060;
		SCTPTest.px_ClientAddr := "192.168.178.42";
		SCTPTest.px_ServerAddr := "192.168.178.42";
		SCTPTest.px_ClientPort := 50031;
		SCTPTest.px_ServerPort := 50030;



		[TESTPORT_PARAMETERS]
		*.tcpPort.mode := "advanced"
		//*.tcpPort.mode := "basic"
		*.tcpPort.debugging := "yes"
		*.tcpPort.use_connection_ASPs := "yes"
		*.clientPort.simple_mode := "yes"
		*.clientPort.server_mode := "no"
		*.clientPort.peer_IP_address := "192.168.178.42"
		*.clientPort.peer_port := "50030"



		[EXECUTE]
		TCPTest.TC_Client
		//TCPTest.TC_Server
		SCTPTest.TC_Client

SCTPTest.ttcn

+41 −13

Original line number	Diff line number	Diff line
		@@ -72,6 +72,20 @@ module SCTPTest
		error_message := omit
		};

		template ASP_SCTP_RESULT cr_SCTP_Connect_resultany :=
		{
		client_id := ?,
		error_status := ?,
		error_message := *
		};

		template ASP_SCTP_ASSOC_CHANGE cr_SCTP_Assoc_Change_Up :=
		{
		client_id := ?,
		sac_state := SCTP_COMM_UP
		};



		template (value) ASP_SCTP_Close cs_SCTP_Close (integer p_Id) :=
		{
		@@ -108,9 +122,10 @@ module SCTPTest
		var ASP_SCTP v_SCTP;
		var ASP_SCTP_SHUTDOWN_EVENT v_SCTP_Shutdown;
		var boolean b_SCTPConnected := false;
		var ASP_SCTP_ASSOC_CHANGE v_SCTP_AssocChangeUp;
		var octetstring v_Oct;
		timer t1;
		timer tc_timer := 2.0;
		timer tc_timer := 3.0;

		map(mtc:clientPort, system:clientPort);

		@@ -125,6 +140,13 @@ module SCTPTest
		b_SCTPConnected := true;
		setverdict(pass);
		}
		[] clientPort.receive( cr_SCTP_Connect_resultany) -> value v_ConnectResult
		{
		log(v_ConnectResult);
		log("*** error Connecting");
		setverdict(fail);
		testcase.stop;
		}
		[] tc_timer.timeout
		{
		log("*** timeout");
		@@ -133,6 +155,13 @@ module SCTPTest
		}

		clientPort.send(cs_SCTP(omit, 0, 0, tsc_HelloServer));
		alt {
		[] clientPort.receive( cr_SCTP_Assoc_Change_Up) -> value v_SCTP_AssocChangeUp
		{
		log(v_SCTP_AssocChangeUp);
		}
		}

		log ("Msg sent to server, waiting for response...");
		alt {
		[] clientPort.receive( cr_SCTP) -> value v_SCTP
		@@ -165,24 +194,23 @@ module SCTPTest
		testcase TC_Server() runs on TestComponent
		{
		var ASP_SCTP v_SCTP;
		var ASP_SCTP_Connected v_SCTP_Connection;
		//var ASP_SCTP_Connected v_SCTP_Connection;
		//var ASP_TCP_Listen_result v_ListenResult;
		var ASP_SCTP_ASSOC_CHANGE v_SCTP_AssocChangeUp;
		timer t1 := 1.0;
		var octetstring v_Oct;

		map(mtc:serverPort, system:serverPort);

		log("@@@1");

		// Listen on server port
		serverPort.send(cs_SCTP_Listen(px_ServerAddr, px_ServerPort));

		log("I am the SCTP server listening at " & px_ServerAddr & " at port " & int2str(px_ServerPort));

		alt {
		[] serverPort.receive( cr_SCTP_Connected) -> value v_SCTP_Connection
		[] serverPort.receive( cr_SCTP_Assoc_Change_Up) -> value v_SCTP_AssocChangeUp
		{
		log(v_SCTP_Connection);
		log(v_SCTP_AssocChangeUp);
		}
		}

		@@ -190,17 +218,17 @@ module SCTPTest
		[] serverPort.receive( cr_SCTP) -> value v_SCTP
		{
		setverdict(pass);
		log("Received from Client " & oct2char(v_SCTP.data));
		log("Received from Client: " & oct2char(v_SCTP.data));
		}
		}

		serverPort.send(cs_SCTP(v_SCTP_Connection.client_id, 0, 0, tsc_HelloServer));
		serverPort.send(cs_SCTP(v_SCTP_AssocChangeUp.client_id, 0, 0, tsc_HelloFromServer));

		// Finally close the connection
		t1.start;
		t1.timeout;

		serverPort.send(cs_SCTP_Close(v_SCTP_Connection.client_id));
		serverPort.send(cs_SCTP_Close(v_SCTP_AssocChangeUp.client_id));

		if (getverdict == pass) {
		log("TC_Server: PASS");