module EtsiDnsTests
{
		
	type record DnsMsg // simplified message structure!
	{
		DnsMsgKind kind,
		charstring question,
		charstring answer optional
	}
	type enumerated DnsMsgKind {e_query, e_response};
	
	type port DnsPort message
	{
		inout DnsMsg //DNSMessage is allowed to move in and out through this
	} with {extension "internal"}
	// Note: port types may also allow multiple different message types or restrict the direction

	type component DnsClient
	{
		port DnsPort serverPort //component use only one port for in/out
	} 
	// Note: component types can also define multiple port instances of the same or different port type and declare timers, constants or variables
	
	//template defines the exact message that will be communicated
	template DnsMsg m_dnsQuestion( charstring p_question ):=
	{
		kind := e_query,
		question := p_question,
		answer := omit // no answer
	}
	
	 //template defines the exact message that will be communicated
	template DnsMsg mw_dnsAnswer( charstring p_answer ):=
	{
		kind := e_response,
		question := ?, // any question ok
		answer := p_answer
	}
	
	testcase TC_resolveEtsiWww() runs on DnsClient
	{
        map(self:serverPort, system:serverPort)
		timer t_ack;
		serverPort.send(m_dnsQuestion("www.etsi.org"));
		t_ack.start(1.0);
		alt {
			[] serverPort.receive(mw_dnsAnswer("172.26.1.17")) {
				setverdict (pass);
			}
			[] serverPort.receive { // any other message
				setverdict(fail);
			}
			[] t_ack.timeout {
				setverdict(inconc);
			}
		}
		 t_ack.stop;
	}
	control
	{
		// Test execution part (optional)
		execute(TC_resolveEtsiWww());
	}

}

/EtsiDnsTest 
TTCN-3 Test Executor (single mode), version CRL 113 200/6 R6A
Execution of control part in module EtsiDnsTests started.
Test case TC_resolveEtsiWww started.
Dynamic test case error: Message cannot be sent to system on internal port serverPort.
Test case TC_resolveEtsiWww finished. Verdict: error
Execution of control part in module EtsiDnsTests finished.
Verdict statistics: 0 none (0.00 %), 0 pass (0.00 %), 0 inconc (0.00 %), 0 fail (0.00 %), 1 error (100.00 %).
Test execution summary: 1 test case was executed. Overall verdict: error
seanwl@ubuntu:~/example2/bin$ 

Dynamic test case error: The host name ns1.al.sw.ericsson.se is not valid.

UDP_DNS_PCO.send(t_DNS_NAPTRquery("www.google.com", "6.1.4.6.5.0.5.1.3.4.e164.arpa" ));

12:13:11.980951 DNS_Demo.ttcn:1085 Sent on UDP_DNS_PCO to 3 @DNS_Mapping.ASP_UDP_DNS : { dnsMessage := { header := { id := 9999, qr := DNS_QUERY (0), opCode := 0, aa := false, tc := false, rd := false, ra := false, z := '000'B, rCode := 0, qdCount := 1, anCount := 0, nsCount := 0, arCount := 0 }, queries := { { qName := "", qType := 35, qClass := 1 } }, answers := { }, nameServerRecords := { }, additionalRecords := { } }, compressDomainNames := false, autoLengthCalc := true, udpAddress := "www.google.com", udpPort := 53 }
12:13:11.981056 DNS_Demo.ttcn:1089 Start timer Tl_idle: 30 s
12:13:42.002653 DNS_Demo.ttcn:1100 Timeout Tl_idle: 30 s
12:13:42.002857 DNS_Demo.ttcn:1101 ...Timeout...
12:13:42.002893 DNS_Demo.ttcn:1102 setverdict(fail): none -> fail
12:13:42.002969 DNS_Demo.ttcn:1106 Stopping PTC with component reference 3.