anchor.diff:  roundtrip(Type, Value) ->
       {ok,Encoded} = 'PrimStrings':encode(Type, Value),
       {ok,Value} = 'PrimStrings':decode(Type, Encoded),
  +    ok.
  +
  +roundtrip(Type, Value, Expected) ->
  +    {ok,Encoded} = 'PrimStrings':encode(Type, Value),
  +    {ok,Expected} = 'PrimStrings':decode(Type, Encoded),
       ok.
   
   bs_roundtrip(Type, Value) ->
  
positive.code: %%==========================================================
  
      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 -> 
  		  ?line {ok,[{47,23,99,255},{0,0,2,201}]} = 
  		      asn1_wrapper:decode('PrimStrings','UsCon',lists:flatten([16#BF,16#46,12,28,4,47,23,99,255,28,4,0,0,2,201])),
  		  ?line {ok,[{47,23,99,255},{0,0,2,201}]} = 
  		      asn1_wrapper:decode('PrimStrings','UsCon',lists:flatten([16#BF,16#46,16#80,28,4,47,23,99,255,28,4,0,0,2,201,0,0]));
  	      _ -> ok
  	  end,
  
  
  
  %%==========================================================
  
negative.code:     %%==========================================================
      
      bs_roundtrip('BsPri', 45, [1,0,1,1,0,1]),
      bs_roundtrip('BsPri', 211, [1,1,0,0,1,0,1,1]),
      
      case Rules of
  	ber ->
  	    bs_decode('BsPri', <<223,61,4,5,75,226,96>>,
  		      [0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]),
  