anchor.diff:  				   first=13,
   				   second=true}},
   
  -    ?line {ok,Bytes3} = 
  -	asn1_wrapper:encode('RANAPextract1','InitiatingMessage2',Val3),
  +    roundtrip('RANAPextract1', 'InitiatingMessage2', Val3).
   
  -    
  -    ?line {ok,{'InitiatingMessage2',3,reject,{'Iu-ReleaseCommand',13,true}}}=
  -	asn1_wrapper:decode('RANAPextract1','InitiatingMessage2',Bytes3).
  -    
  +roundtrip(M, T, V) ->
  +    {ok,Enc} = M:encode(T, V),
  +    {ok,V} = M:decode(T, Enc),
  +    ok.
  
positive.code: 				value=#'Iu-ReleaseCommand'{
  				  first=13,
  				  second=true}},
      ?line {ok,Bytes1} = 
  	asn1_wrapper:encode('RANAPextract1','InitiatingMessage',Val1),
      
      ?line {ok,{'InitiatingMessage',1,ignore,{'Iu-ReleaseCommand',13,true}}}=
  	asn1_wrapper:decode('RANAPextract1','InitiatingMessage',Bytes1),
      
      ?line {ok,Bytes2} =
  	asn1_wrapper:encode('InfObj','InitiatingMessage',Val1),
      
      ?line {ok,Val1} =
  	asn1_wrapper:decode('InfObj','InitiatingMessage',Bytes2),
  
      Val2 = Val1#'InitiatingMessage'{procedureCode=2},
      
      ?line {error,_R1} =
  	asn1_wrapper:encode('InfObj','InitiatingMessage',Val2),
      
  
      %% Test case for OTP-4275
  
negative.code: 
  -export([main/1]).
  
  -record('InitiatingMessage',{procedureCode,criticality,value}).
  -record('InitiatingMessage2',{procedureCode,criticality,value}).
  -record('Iu-ReleaseCommand',{first,second}).
  