anchor.diff:      bs_roundtrip('BsExpPri', 45, [1,0,1,1,0,1]),
       bs_roundtrip('BsExpPri', 211, [1,1,0,0,1,0,1,1]),
       
  -    case asn1_wrapper:erule(Rules) of
  +    case Rules of
   	ber ->
   	    bs_decode('BsExpPri', <<255,61,6,3,4,5,75,226,96>>,
   		      [0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]);
  -	per ->
  +	_ ->
   	    ok
       end,
       
  
positive.code:     bs_roundtrip('Bs1', [1,0,0,0,0,0,0,0,0]),
      bs_roundtrip('Bs1', [0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]),
      
      case asn1_wrapper:erule(Rules) of
  	ber ->
  	    bs_decode('Bs1', <<35,8,3,2,0,73,3,2,4,32>>,
  		      [0,1,0,0,1,0,0,1,0,0,1,0]),
  
negative.code: 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) ->
  