/*************************************************** ** @author STF 487 ** @version 0.0.1 ** @purpose 1:16.1.2, Ensure that predefined decvalue_unichar function works properly ** @verdict pass accept, ttcn3verdict:pass ***************************************************/ /* The following requirements are tested: * this test focuses on the predefined functions decvalue_unichar (utf-32 big endian)*/ module Sem_160102_predefined_functions_079 { type component GeneralComp { } testcase TC_Sem_160102_predefined_functions_079 () runs on GeneralComp { //encoded text: var universal charstring v_enc := encvalue_unichar(123,"UTF-32BE"); //decode: var integer v_test_dec; var integer v_res:= decvalue_unichar(v_enc,v_test_dec,"UTF-32BE"); //decode (UTF-32 big endian) if (v_res == 0) { setverdict(pass, "Decoded ", v_enc , " with result ", v_res); } else { setverdict(fail, "Unexpected decoding result: Decoded ", v_enc , " with result ", v_res); } } control{ execute(TC_Sem_160102_predefined_functions_079()); } }