diff --git a/regression_test/ucharstrOper/cstr_content.ttcn b/regression_test/ucharstrOper/cstr_content.ttcn index 4e5dc8d6ea44e3c4b60c6981e4e52a5dff9d1374..946d334f409e5980fbbd51ab5f6368853c4d7d7f 100644 --- a/regression_test/ucharstrOper/cstr_content.ttcn +++ b/regression_test/ucharstrOper/cstr_content.ttcn @@ -410,6 +410,16 @@ testcase tc_indexing_HT70680() runs on empty } +function f_ucs(in universal charstring ucs) return universal charstring { + return ucs; +} + +testcase tc_ucs() runs on empty { + var universal charstring vl_ucs1 := char(0,0,0,1) & char(0,0,0,20), vl_ucs2 + vl_ucs2 := f_ucs(vl_ucs1[1]); + if( vl_ucs2 == char(0,0,0,20)) {setverdict(pass)} else { setverdict(fail)} +} + control { execute(tc_charstring_content()); execute(tc_cpp_test()); @@ -417,10 +427,11 @@ control { execute(tc_unichar_utf8_const());//fail execute(tc_unichar_utf8_var()); execute(tc_unichar_utf8_var_hungarian_text()); - //execute(tc_unichar_utf8_mp1()); - //execute(tc_unichar_utf8_mp2()); + execute(tc_unichar_utf8_mp1()); + execute(tc_unichar_utf8_mp2()); execute(tc_unichar_utf8_template()); execute(tc_indexing_HT70680()); + execute(tc_ucs()); } }