anchor.diff:      %% BMP ::= BMPString
       %%==========================================================
   
  -    ?line {ok,Bytes1} = 
  -	asn1_wrapper:encode('PrimStrings','BMP',[{0,0,99,48},{0,0,2,201}]),
  -    ?line {ok,[{0,0,99,48},{0,0,2,201}]} = 
  -	asn1_wrapper:decode('PrimStrings','BMP',lists:flatten(Bytes1)),
  +    roundtrip('BMP', [{0,0,99,48},{0,0,2,201}]),
       
       ?line {ok,Bytes2} = 
   	asn1_wrapper:encode('PrimStrings','BMP',[{0,0,0,48},{0,0,2,201}]),
       ?line {ok,[48,{0,0,2,201}]} = 
   	asn1_wrapper:decode('PrimStrings','BMP',lists:flatten(Bytes2)),
  -    
  -    ?line {ok,Bytes3} = asn1_wrapper:encode('PrimStrings','BMP',"BMP String"),
  -    ?line {ok,"BMP String"} = 
  -	asn1_wrapper:decode('PrimStrings','BMP',lists:flatten(Bytes3)),
  -    
  -    ?line {ok,Bytes4} = asn1_wrapper:encode('PrimStrings','BMP',[]),
  -    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','BMP',lists:flatten(Bytes4)),
  -
  +
  +    roundtrip('BMP', "BMP String"),
  +    roundtrip('BMP', []),
   
       BMP1 = "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890",
  -    ?line {ok,Bytes5} = asn1_wrapper:encode('PrimStrings','BMP',BMP1),
  -    ?line {ok,BMP1r} = asn1_wrapper:decode('PrimStrings','BMP',lists:flatten(Bytes5)),
  -    ?line BMP1 = BMP1r,
  -		       
  +    roundtrip('BMP', BMP1),
   		     
       ok.
   
  
positive.code:     %% Ns ::= NumericString
      %%==========================================================
  
      ?line {ok,BytesNs2} = asn1_wrapper:encode('PrimStrings','Ns',[]),
      ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','Ns',lists:flatten(BytesNs2)),
  
      ?line case asn1_wrapper:erule(Rules) of
  	      ber -> 
  
negative.code: 
  
      Us1 = "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890",
      roundtrip('IA5', Us1),
  
  
  %%==========================================================
  %% UsCon ::= [70] UniversalString
  %%==========================================================
  
      roundtrip('UsCon', [{47,23,99,255},{0,0,2,201}]),
      
      ?line {ok,Bytes12} = 
  	asn1_wrapper:encode('PrimStrings','UsCon',[{47,23,99,255},{0,0,0,201}]),
      ?line {ok,[{47,23,99,255},201]} = 
  	asn1_wrapper:decode('PrimStrings','UsCon',lists:flatten(Bytes12)),
      
      roundtrip('UsCon', "Universal String"),
      roundtrip('UsCon', []),
      
      ?line case asn1_wrapper:erule(Rules) of
  	      ber -> 
  