/*
   * Test decvalue for XML type  ResourceLists_Type
   */
  function f_test_decvalue_ResourceLists() {

    const charstring tsc_ResourceLists_1 := "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" &
  "<resource-lists xmlns=\"urn:ietf:params:xml:ns:resource-lists\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\">\n" &
"   <list>\n" &
"      <entry uri=\"org.3gpp.mcptt.ue-config/users/urn:uuid:e740ed78-ca4f-4435-8006-a4d97925a684\"/>\n" &
"   </list>\n" &
"</resource-lists>\n";

    var ResourceLists_Type v_DecodedResourceLists;
    var bitstring v_BitStr;

    
    v_BitStr := oct2bit(char2oct( tsc_ResourceLists_1));
    if (decvalue(v_BitStr, v_DecodedResourceLists) != 0) {
        log(v_DecodedResourceLists);
    	setverdict(fail);
      } else {
	setverdict(pass);
      }    
    }

 type Resource_lists ResourceLists_Type; 

  function f_StringTest(universal charstring p_UCharString) return charstring
  {
    var charstring v_CharString := p_UCharString;  
    return v_CharString;
  }

EXAMPLE 4: Compatibility of character and universal character strings:
 //Given
type charstring MyChar length (1);
 ...
 var MyChar v_myCharacter;
var charstring v_myCharString;
var universal charstring v_myUnivCharString;
 // Given
 v_myCharString := "abcd";

 // Then
 v_myUnivCharString := v_myCharString
 //is valid as charstring and universal charstring are compatible
 v_myCharacter := v_myUnivCharString [1];  //example 4.1
 // is valid as the r.h.s. notation addresses a single element of the string,
 // containing a character compatible with charstring
 // Given
 v_myUnivCharString := "bet" & char ( 0, 0, 1, 113);

 // Then
 v_myCharString := v_myUnivCharString;   //example 4.2
 // is invalid as v_myUnivCharString contains a character not in ISO 646.
 // Given
var charstring v_myCharacterArray [5] := {"A", "B", "C", "D", "E"}
 // Then
 v_myCharString := v_myCharacterArray[1];
 // is valid and assigns the value "B" to v_myCharString; 

function f_StringTest(universal charstring p_UCharString) return charstring
  {
    var charstring v_CharString := p_UCharString;  
    return v_CharString;
  }

   char2uni.ttcn:12.36-48: error: Type mismatch: a value of type `charstring' was expected instead of `universal charstring'

	-h:		allow unsafe universal charstring to charstring conversion

char2uni.ttcn:12 Dynamic test case error: Non-ASCII characters cannot be used to initialize a charstring, invalid character char(0, 0, 1, 113) at index 3.