anchor.diff:      %% Gt ::= GeneralizedTime
       %%==========================================================
   
  -    ?line {ok,Bytes1} = asn1_wrapper:encode('PrimStrings','Gt',"19970923110723.2"),
  -    ?line {ok,"19970923110723.2"} = 
  -	asn1_wrapper:decode('PrimStrings','Gt',lists:flatten(Bytes1)),
  -
  -    ?line {ok,Bytes2} = asn1_wrapper:encode('PrimStrings','Gt',"19970923110723.2Z"),
  -    ?line {ok,"19970923110723.2Z"} = 
  -	asn1_wrapper:decode('PrimStrings','Gt',lists:flatten(Bytes2)),
  -
  -    ?line {ok,Bytes3} = asn1_wrapper:encode('PrimStrings','Gt',"19970923110723.2-0500"),
  -    ?line {ok,"19970923110723.2-0500"} = 
  -	asn1_wrapper:decode('PrimStrings','Gt',lists:flatten(Bytes3)),
  -
  -
  -    
  -    
  -
  -		       
  +    roundtrip('Gt', "19970923110723.2"),
  +    roundtrip('Gt', "19970923110723.2Z"),
  +    roundtrip('Gt', "19970923110723.2-0500"),
  +
   
       %%==========================================================
       %% UTC ::= UTCTime
       %%==========================================================
   
  -    ?line {ok,Bytes11} = asn1_wrapper:encode('PrimStrings','UTC',"9709211107Z"),
  -    ?line {ok,"9709211107Z"} = 
  -	asn1_wrapper:decode('PrimStrings','UTC',lists:flatten(Bytes11)),
  -
  -    ?line {ok,Bytes12} = asn1_wrapper:encode('PrimStrings','UTC',"9709211107-0500"),
  -    ?line {ok,"9709211107-0500"} = 
  -	asn1_wrapper:decode('PrimStrings','UTC',lists:flatten(Bytes12)),    
  +    roundtrip('UTC', "9709211107Z"),
  +    roundtrip('UTC', "9709211107-0500"),
   
       ok.
   
  
positive.code: 		  ok
  	  end,
  
  
      
      ?line {ok,Bytes4} = 
  	asn1_wrapper:encode('PrimStrings','Os',[47,23,99,255,1]),
      ?line {ok,[47,23,99,255,1]} = asn1_wrapper:decode('PrimStrings','Os',lists:flatten(Bytes4)),
  
      ?line {ok,Bytes5} = 
  	asn1_wrapper:encode('PrimStrings','OsCon',[47,23,99,255,1]),
      ?line {ok,[47,23,99,255,1]} = asn1_wrapper:decode('PrimStrings','OsCon',lists:flatten(Bytes5)),
  
      ?line {ok,Bytes6} = 
  	asn1_wrapper:encode('PrimStrings','OsPri',[47,23,99,255,1]),
      ?line {ok,[47,23,99,255,1]} = asn1_wrapper:decode('PrimStrings','OsPri',lists:flatten(Bytes6)),
  
      ?line {ok,Bytes7} = 
  	asn1_wrapper:encode('PrimStrings','OsApp',[47,23,99,255,1]),
      ?line {ok,[47,23,99,255,1]} = asn1_wrapper:decode('PrimStrings','OsApp',lists:flatten(Bytes7)),
  
      ?line {ok,Bytes8} = 
  	asn1_wrapper:encode('PrimStrings','OsExpCon',[47,23,99,255,1]),
      ?line {ok,[47,23,99,255,1]} = asn1_wrapper:decode('PrimStrings','OsExpCon',lists:flatten(Bytes8)),
  
      ?line {ok,Bytes9} = 
  	asn1_wrapper:encode('PrimStrings','OsExpPri',[47,23,99,255,1]),
      ?line {ok,[47,23,99,255,1]} = asn1_wrapper:decode('PrimStrings','OsExpPri',lists:flatten(Bytes9)),
  
      ?line {ok,Bytes10} = 
  	asn1_wrapper:encode('PrimStrings','OsExpApp',[47,23,99,255,1]),
      ?line {ok,[47,23,99,255,1]} = asn1_wrapper:decode('PrimStrings','OsExpApp',lists:flatten(Bytes10)),
  
      ?line {ok,Bytes11} = 
  	asn1_wrapper:encode('PrimStrings','Os',[]),
      ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','Os',lists:flatten(Bytes11)),
  
      ?line {ok,Bytes12} = 
  	asn1_wrapper:encode('PrimStrings','OsApp',[]),
      ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','OsApp',lists:flatten(Bytes12)),
  
      ?line {ok,Bytes13} = 
  	asn1_wrapper:encode('PrimStrings','OsExpApp',[]),
      ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','OsExpApp',lists:flatten(Bytes13)),
  
  
  
  
  
  
      
      OsR = "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890",
  
      ?line {ok,Bytes21} = 
  	asn1_wrapper:encode('PrimStrings','Os',OsR),
      ?line {ok,Os1} = asn1_wrapper:decode('PrimStrings','Os',lists:flatten(Bytes21)),
      ?line Os1 = OsR,
      ?line {ok,Bytes22} = 
  	asn1_wrapper:encode('PrimStrings','OsCon',OsR),
      ?line {ok,Os2} = asn1_wrapper:decode('PrimStrings','OsCon',lists:flatten(Bytes22)),
      ?line Os2 = OsR,
      ?line {ok,Bytes23} = 
  	asn1_wrapper:encode('PrimStrings','OsExpApp',OsR),
      ?line {ok,Os3} = asn1_wrapper:decode('PrimStrings','OsExpApp',lists:flatten(Bytes23)),
      ?line Os3 = OsR,
      
  
  
      ?line case asn1_wrapper:erule(Rules) of
  
negative.code:     %% BMP ::= BMPString
      %%==========================================================
  
      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)),
  
      roundtrip('BMP', "BMP String"),
      roundtrip('BMP', []),
  
      BMP1 = "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890",
      roundtrip('BMP', BMP1),
  		     
      ok.
  
  