anchor.diff:      %% NsCon ::= [70] NumericString
       %%==========================================================
   
  -    ?line {ok,BytesNs12} = asn1_wrapper:encode('PrimStrings','NsCon',[]),
  -    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','NsCon',lists:flatten(BytesNs12)),
  -
  -    
  +    roundtrip('NsCon', []),
   
       ?line case asn1_wrapper:erule(Rules) of
   	      ber -> 
  
positive.code:     %% Ps ::= PrintableString
      %%==========================================================
  
      ?line {ok,BytesPs1} = asn1_wrapper:encode('PrimStrings','Ps',[47,23,99,75,47]),
      ?line {ok,[47,23,99,75,47]} = 
  	asn1_wrapper:decode('PrimStrings','Ps',lists:flatten(BytesPs1)),
  
      ?line {ok,BytesPs2} = asn1_wrapper:encode('PrimStrings','Ps',[]),
      ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','Ps',lists:flatten(BytesPs2)),
  
      
  		       
      %%==========================================================
      %% Vis ::= VisibleString
      %%==========================================================
  
      ?line {ok,BytesVis1} = asn1_wrapper:encode('PrimStrings','Vis',[47,23,99,75,47]),
      ?line {ok,[47,23,99,75,47]} = 
  	asn1_wrapper:decode('PrimStrings','Vis',lists:flatten(BytesVis1)),
  
      ?line {ok,BytesVis2} = asn1_wrapper:encode('PrimStrings','Vis',[]),
      ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','Vis',lists:flatten(BytesVis2)),
      
  
  		       
      %%==========================================================
      %% IA5 ::= IA5String
      %%==========================================================
  
      ?line {ok,BytesIA51} = asn1_wrapper:encode('PrimStrings','IA5',[47,23,99,75,47]),
      ?line {ok,[47,23,99,75,47]} = 
  	asn1_wrapper:decode('PrimStrings','IA5',lists:flatten(BytesIA51)),
  
      ?line {ok,BytesIA52} = asn1_wrapper:encode('PrimStrings','IA5',[]),
      ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','IA5',lists:flatten(BytesIA52)),
  
      
      IA5_1 = "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890",
  
      ?line {ok,BytesIA53} = asn1_wrapper:encode('PrimStrings','IA5',IA5_1),
      ?line {ok,IA5_1r} = asn1_wrapper:decode('PrimStrings','IA5',lists:flatten(BytesIA53)),
      ?line IA5_1 = IA5_1r,
  
  		       
      
  
      ok.
  
  
  
negative.code: %% UsExpCon ::= [71] EXPLICIT UniversalString
  %%==========================================================
  
      roundtrip('UsExpCon', [{47,23,99,255},{0,0,2,201}]),
      
      ?line {ok,Bytes22} = 
  	asn1_wrapper:encode('PrimStrings','UsExpCon',[{47,23,99,255},{0,0,0,201}]),
      ?line {ok,[{47,23,99,255},201]} = 
  	asn1_wrapper:decode('PrimStrings','UsExpCon',lists:flatten(Bytes22)),
      
      roundtrip('UsExpCon', "Universal String"),
      roundtrip('UsExpCon', []),
      
      ?line case asn1_wrapper:erule(Rules) of
  	      ber ->     
  