123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172 |
- // package module_.lib;
- import inet.transportlayer.contract.ITCP;
- network TcpTestNet1
- {
- parameters:
- bool testing;
- string tcpType = default(firstAvailable("TCP", "TCP_lwIP", "TCP_NSC")); // tcp implementation (e.g. ~TCP, ~TCP_lwIP, ~TCP_NSC) or ~TCPSpoof
- submodules:
- cli_app: TcpTestClient {
- @display("p=95,95");
- }
- cli_tcp: <tcpType> like ITCP {
- @display("p=95,178");
- }
- srv_tcp: <tcpType> like ITCP {
- @display("p=302,178");
- }
- srv_app: TcpTestClient {
- @display("p=303,96");
- }
- tcptester: TCPScriptableTester {
- @display("p=198,178");
- }
- connections allowunconnected:
- cli_app.tcpOut --> cli_tcp.appIn++;
- cli_app.tcpIn <-- cli_tcp.appOut++;
- srv_app.tcpOut --> srv_tcp.appIn++;
- srv_app.tcpIn <-- srv_tcp.appOut++;
- cli_tcp.ipOut --> { delay = 1ms; } --> tcptester.in1;
- cli_tcp.ipIn <-- { delay = 1ms; } <-- tcptester.out1;
- tcptester.out2 --> { delay = 1ms; } --> srv_tcp.ipIn;
- tcptester.in2 <-- { delay = 1ms; } <-- srv_tcp.ipOut;
- }
- network TcpTestNet2
- {
- parameters:
- bool testing;
- string tcpType = default(firstAvailable("TCP", "TCP_lwIP", "TCP_NSC")); // tcp implementation (e.g. ~TCP, ~TCP_lwIP, ~TCP_NSC) or ~TCPSpoof
- submodules:
- cli_app: TcpTestClient {
- @display("p=95,95");
- }
- cli_tcp: <tcpType> like ITCP {
- @display("p=95,178");
- }
- srv_tcp: <tcpType> like ITCP {
- @display("p=302,178");
- }
- srv_app: TcpTestClient {
- @display("p=303,96");
- }
- tcptester: TCPRandomTester {
- @display("p=198,178");
- }
- connections allowunconnected:
- cli_app.tcpOut --> cli_tcp.appIn++;
- cli_app.tcpIn <-- cli_tcp.appOut++;
- srv_app.tcpOut --> srv_tcp.appIn++;
- srv_app.tcpIn <-- srv_tcp.appOut++;
- cli_tcp.ipOut --> tcptester.in1;
- cli_tcp.ipIn <-- tcptester.out1;
- tcptester.out2 --> { delay = 1ms; } --> srv_tcp.ipIn;
- tcptester.in2 <-- { delay = 1ms; } <-- srv_tcp.ipOut;
- }
|