anchor.diff:      %%==========================================================
   
       roundtrip('Ns', []),
  -
  -    ?line case asn1_wrapper:erule(Rules) of
  -	      ber -> 
  -		  ?line {ok,BytesNs1} = asn1_wrapper:encode('PrimStrings','Ns',[48,49,32,51,52]),
  -		  ?line {ok,[48,49,32,51,52]} = asn1_wrapper:decode('PrimStrings','Ns',lists:flatten(BytesNs1)),
  -
  -		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','Ns',[16#12,5,16#4A,16#6F,16#6E,16#65,16#73]),
  -		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','Ns',[16#32,9,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73]),
  -		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','Ns',[16#32,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0]),
  -		  ok;
  -	      
  -	      per ->
  -		  ?line {ok,BytesNs1} = asn1_wrapper:encode('PrimStrings','Ns',[48,49,32,51,52]),
  -		  ?line {ok,"01 34"} = asn1_wrapper:decode('PrimStrings','Ns',lists:flatten(BytesNs1)),
  -		  ok
  -	  end,
  -
  -    
  -
  -		       
  +    roundtrip('Ns', "01 34"),
  +    case Rules of
  +	ber ->
  +	    {ok,"Jones"} = 'PrimStrings':decode('Ns',
  +						<<16#12,5,16#4A,16#6F,
  +						 16#6E,16#65,16#73>>),
  +	    {ok,"Jones"} = 'PrimStrings':decode('Ns',
  +						<<16#32,9,18,3,16#4A,16#6F,
  +						 16#6E,18,2,16#65,16#73>>),
  +	    {ok,"Jones"} = 'PrimStrings':decode('Ns',
  +						<<16#32,128,18,3,16#4A,16#6F,
  +						 16#6E,18,2,16#65,16#73,0,0>>),
  +	    ok;
  +	_ ->
  +	    ok
  +    end,
  +
       %%==========================================================
       %% NsCon ::= [70] NumericString
       %%==========================================================
   
       roundtrip('NsCon', []),
  -
  -    ?line case asn1_wrapper:erule(Rules) of
  -	      ber -> 
  -		  ?line {ok,BytesNs11} = asn1_wrapper:encode('PrimStrings','NsCon',[48,49,32,51,52]),
  -		  ?line {ok,[48,49,32,51,52]} = asn1_wrapper:decode('PrimStrings','NsCon',lists:flatten(BytesNs11)),
  -
  -		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','NsCon',[16#9F,16#46,5,16#4A,16#6F,16#6E,16#65,16#73]),
  -		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','NsCon',[16#BF,16#46,9,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73]),
  -		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','NsCon',[16#BF,16#46,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0]),
  -		  ok;
  -	      
  -	      per ->
  -		  ?line {ok,BytesNs11} = asn1_wrapper:encode('PrimStrings','NsCon',[48,49,32,51,52]),
  -		  ?line {ok,"01 34"} = asn1_wrapper:decode('PrimStrings','NsCon',lists:flatten(BytesNs11)),
  -		  ok
  -	  end,
  -
  -
  -		       
  +    roundtrip('NsCon', "01 34"),
  +
  +    case Rules of
  +	ber ->
  +	    {ok,"Jones"} = 'PrimStrings':decode('NsCon', <<16#9F,16#46,5,16#4A,16#6F,16#6E,16#65,16#73>>),
  +	    {ok,"Jones"} = 'PrimStrings':decode('NsCon', <<16#BF,16#46,9,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73>>),
  +	    {ok,"Jones"} = 'PrimStrings':decode('NsCon', <<16#BF,16#46,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0>>),
  +	    ok;
  +	_ ->
  +	    ok
  +    end,
  +
       %%==========================================================
       %% NsExpCon ::= [71] EXPLICIT NumericString
       %%==========================================================
   
       roundtrip('NsExpCon', []),
  -
  -    ?line case asn1_wrapper:erule(Rules) of
  -	      ber -> 
  -		  ?line {ok,BytesNs21} = asn1_wrapper:encode('PrimStrings','NsExpCon',[48,49,32,51,52]),
  -		  ?line {ok,[48,49,32,51,52]} = asn1_wrapper:decode('PrimStrings','NsExpCon',lists:flatten(BytesNs21)),
  -
  -		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','NsExpCon',[16#BF,16#47,16#07,16#12,16#05,16#4A,16#6F,16#6E,16#65,16#73]),
  -		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','NsExpCon',[16#BF,16#47,11,16#32,9,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73]),
  -		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','NsExpCon',[16#BF,16#47,128,16#32,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0,0,0]),
  -		  ?line {ok,"JonesJones"} = asn1_wrapper:decode('PrimStrings','NsExpCon',[16#BF,16#47,26,16#32,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0,16#32,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0]),
  -		  ?line {ok,"JonesJones"} = asn1_wrapper:decode('PrimStrings','NsExpCon',[16#BF,16#47,128,16#32,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0,16#32,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0,0,0]),
  -		  ok;
  -	      
  -	      per ->
  -		  ?line {ok,BytesNs21} = asn1_wrapper:encode('PrimStrings','NsExpCon',[48,49,32,51,52]),
  -		  ?line {ok,"01 34"} = asn1_wrapper:decode('PrimStrings','NsExpCon',lists:flatten(BytesNs21)),
  -		  ok
  -	  end,
  -
  -    ok.
  +    roundtrip('NsExpCon', "01 34"),
  +
  +    case Rules of
  +	ber ->
  +	    {ok,"Jones"} = 'PrimStrings':decode('NsExpCon', <<16#BF,16#47,16#07,16#12,16#05,16#4A,16#6F,16#6E,16#65,16#73>>),
  +	    {ok,"Jones"} = 'PrimStrings':decode('NsExpCon', <<16#BF,16#47,11,16#32,9,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73>>),
  +	    {ok,"Jones"} = 'PrimStrings':decode('NsExpCon', <<16#BF,16#47,128,16#32,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0,0,0>>),
  +	    {ok,"JonesJones"} = 'PrimStrings':decode('NsExpCon', <<16#BF,16#47,26,16#32,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0,16#32,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0>>),
  +	    {ok,"JonesJones"} = 'PrimStrings':decode('NsExpCon', <<16#BF,16#47,128,16#32,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0,16#32,128,18,3,16#4A,16#6F,16#6E,18,2,16#65,16#73,0,0,0,0>>),
  +	    ok;
  +	_ ->
  +	    ok
  +    end.
   
   		       
   other_strings(_Rules) ->
  
positive.code: roundtrip(Type, Value) ->
      {ok,Encoded} = 'PrimStrings':encode(Type, Value),
      {ok,Value} = 'PrimStrings':decode(Type, Encoded),
      ok.
  
  bs_roundtrip(Type, Value) ->
  
negative.code: 		      [1,1,1,0,1,0,1,0,1,0,0,1,1,1,0,0,0]),
  	    bs_decode('Bs1', <<35,128,3,2,0,234,3,3,7,156,0,0,0>>,
  		      [1,1,1,0,1,0,1,0,1,0,0,1,1,1,0,0,0]);
  	_ ->
  	    ok
      end,
  
  