OTP-8463 Support for EXTENSIBILITY IMPLIED and SET/SEQ OF NamedType is

          added.

1 files changed, 936 insertions, 0 deletions

diff --git a/lib/asn1/test/testPrimStrings.erl b/lib/asn1/test/testPrimStrings.erl
new file mode 100644
index 0000000000..707ee375c1
--- /dev/null
+++ b/lib/asn1/test/testPrimStrings.erl
@@ -0,0 +1,936 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1997-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%
+%%
+-module(testPrimStrings).
+
+-export([compile/3]).
+-export([bit_string/1]).
+-export([bit_string_unnamed/1]).
+-export([octet_string/1]).
+-export([numeric_string/1]).
+-export([other_strings/1]).
+-export([more_strings/1]).
+-export([universal_string/1]).
+-export([bmp_string/1]).
+-export([times/1]).
+-export([utf8_string/1]).
+
+-include("test_server.hrl").
+
+
+compile(Config,Rules,Option) ->
+
+    ?line DataDir = ?config(data_dir,Config),
+    ?line OutDir = ?config(priv_dir,Config),
+    ?line true = code:add_patha(?config(priv_dir,Config)),
+    ?line ok = asn1ct:compile(DataDir ++ "PrimStrings",
+			      [Rules,{outdir,OutDir}]++Option),
+    ?line {ok,IO} = file:open(test_config,write),
+    io:format(IO,"~p.~n",[Config]),
+    file:close(IO),
+    ?line ok = asn1ct:compile(DataDir ++ "BitStr",
+			      [Rules, {outdir,OutDir}]++Option).
+
+
+
+bit_string(Rules) ->
+    
+    %%==========================================================
+    %% Bs1 ::= BIT STRING
+    %%==========================================================
+    
+    ?line {ok,Bytes1} = asn1_wrapper:encode('PrimStrings','Bs1',0),
+    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes1)),
+    
+    ?line {ok,Bytes2} = asn1_wrapper:encode('PrimStrings','Bs1',4),
+    ?line {ok,[0,0,1]} = asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes2)),
+    
+    ?line {ok,Bytes3} = asn1_wrapper:encode('PrimStrings','Bs1',15),
+    ?line {ok,[1,1,1,1]} = asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes3)),
+    
+    ?line {ok,Bytes4} = asn1_wrapper:encode('PrimStrings','Bs1',255),
+    ?line {ok,[1,1,1,1,1,1,1,1]} = asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes4)),
+    
+    ?line {ok,Bytes5} = asn1_wrapper:encode('PrimStrings','Bs1',256),
+    ?line {ok,[0,0,0,0,0,0,0,0,1]} = asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes5)),
+    
+    ?line {ok,Bytes6} = asn1_wrapper:encode('PrimStrings','Bs1',257),
+    ?line {ok,[1,0,0,0,0,0,0,0,1]} = asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes6)),
+    
+    ?line {ok,Bytes7} = asn1_wrapper:encode('PrimStrings','Bs1',444),
+    ?line {ok,[0,0,1,1,1,1,0,1,1]} = asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes7)),
+    
+    ?line {ok,Bytes8} = asn1_wrapper:encode('PrimStrings','Bs1',12345678901234567890),
+    ?line {ok,_} = asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes8)),
+    
+%% Removed due to beam cannot handle this big integers    
+%%    Bs1_1 = 123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890,
+%%    ?line {ok,Bytes9} = asn1_wrapper:encode('PrimStrings','Bs1',Bs1_1),
+%%    ?line {ok,_} = asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes9)),
+    
+%%    Bs1_2 = 12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890,
+%%    ?line {ok,Bytes10} = asn1_wrapper:encode('PrimStrings','Bs1',Bs1_2),
+%%    ?line {ok,_} = asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes10)),
+    
+    ?line {ok,Bytes11} = asn1_wrapper:encode('PrimStrings','Bs1',[1,1,1,1,1,1,1,1]),
+    ?line {ok,[1,1,1,1,1,1,1,1]} = asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes11)),
+    
+    ?line case asn1_wrapper:erule(Rules) of
+	      ber -> 
+		  ?line {ok,Bytes12} = asn1_wrapper:encode('PrimStrings','Bs1',[0,1,0,0,1,0]),
+		  ?line {ok,[0,1,0,0,1,0]} = 
+		      asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes12)),
+		  
+		  ?line {ok,Bytes13} = asn1_wrapper:encode('PrimStrings','Bs1',[1,0,0,0,0,0,0,0,0]),
+		  ?line {ok,[1,0,0,0,0,0,0,0,0]} = 
+		      asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes13)),
+		  ok;
+	      per ->
+		  ?line {ok,Bytes12} = asn1_wrapper:encode('PrimStrings','Bs1',[0,1,0,0,1,0]),
+		  ?line {ok,[0,1,0,0,1,0]} = 
+		      asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes12)),
+		  
+		  ?line {ok,Bytes13} = asn1_wrapper:encode('PrimStrings','Bs1',[1,0,0,0,0,0,0,0,0]),
+		  ?line {ok,[1,0,0,0,0,0,0,0,0]} = 
+		      asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes13)),
+		  ok
+	  end,
+    
+    ?line {ok,Bytes14} = 
+	asn1_wrapper:encode('PrimStrings','Bs1',[0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]),
+    ?line {ok,[0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]} = 
+	asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes14)),
+    
+    
+    ?line case asn1_wrapper:erule(Rules) of
+	      ber -> 
+		  ?line Bytes15 = [35,8,3,2,0,73,3,2,4,32],
+		  ?line {ok,[0,1,0,0,1,0,0,1,0,0,1,0]} = 
+		      asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes15)),
+		  
+		  ?line Bytes16 = [35,9,3,2,0,234,3,3,7,156,0],
+		  ?line {ok,[1,1,1,0,1,0,1,0,1,0,0,1,1,1,0,0,0]} = 
+		      asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes16)),
+		  
+		  ?line Bytes17 = [35,128,3,2,0,73,3,2,4,32,0,0],
+		  ?line {ok,[0,1,0,0,1,0,0,1,0,0,1,0]} = 
+		      asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes17)),
+		  
+		  ?line Bytes18 = [35,128,3,2,0,234,3,3,7,156,0,0,0],
+		  ?line {ok,[1,1,1,0,1,0,1,0,1,0,0,1,1,1,0,0,0]} = 
+		      asn1_wrapper:decode('PrimStrings','Bs1',lists:flatten(Bytes18)),
+		  ok;
+	      
+	      per ->
+		  ok
+	  end,
+    
+
+    
+    %%==========================================================
+    %% Bs2 ::= BIT STRING {su(0), mo(1), tu(2), we(3), th(4), fr(5), sa(6) } (SIZE (7))
+    %%==========================================================
+    
+    ?line {ok,Bytes21} = asn1_wrapper:encode('PrimStrings','Bs2',[mo,tu,fr]),
+    ?line {ok,[mo,tu,fr]} = asn1_wrapper:decode('PrimStrings','Bs2',lists:flatten(Bytes21)),
+    
+    ?line {ok,Bytes22} = asn1_wrapper:encode('PrimStrings','Bs2',[0,1,1,0,0,1,0]),
+    ?line {ok,[mo,tu,fr]} = asn1_wrapper:decode('PrimStrings','Bs2',lists:flatten(Bytes22)),
+    ok,
+%% skip this because it is wrong
+%     ?line case asn1_wrapper:erule(Rules) of
+% 	      ber -> 
+% 		  ?line {ok,[mo,tu,fr,su,mo,th]} = 
+% 		      asn1_wrapper:decode('PrimStrings','Bs2',[35,8,3,2,0,101,3,2,2,200]),
+		  
+% 		  ?line {ok,[mo,tu,fr,su,mo,th]} = 
+% 		      asn1_wrapper:decode('PrimStrings','Bs2',[35,128,3,2,1,100,3,2,2,200,0,0]),
+% 		  ok;
+	      
+% 	      per ->
+% 		  ok
+% 	  end,
+    
+    
+    
+    %%==========================================================
+    %% Bs3 ::= BIT STRING {su(0), mo(1), tu(2), we(3), th(4), fr(5), sa(6) } (SIZE (1..7))
+    %%==========================================================
+    
+    ?line {ok,Bytes31} = asn1_wrapper:encode('PrimStrings','Bs3',[mo,tu,fr]),
+    ?line {ok,[mo,tu,fr]} = asn1_wrapper:decode('PrimStrings','Bs3',lists:flatten(Bytes31)),
+    
+    ?line {ok,Bytes32} = asn1_wrapper:encode('PrimStrings','Bs3',[0,1,1,0,0,1,0]),
+    ?line {ok,[mo,tu,fr]} = asn1_wrapper:decode('PrimStrings','Bs3',lists:flatten(Bytes32)),
+    
+    
+    %%==========================================================
+    %% Bs7 ::= BIT STRING (SIZE (24))
+    %%==========================================================
+
+    ?line {ok,Bytes33} = asn1_wrapper:encode('PrimStrings','Bs7',53245),
+    ?line {ok,[1,0,1,1,1,1,1,1,1,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0]} =
+	asn1_wrapper:decode('PrimStrings','Bs7',Bytes33),
+
+    ?line {ok,Bytes34} = asn1_wrapper:encode('PrimStrings','Bs7',[1,0,1,0]),
+    ?line {ok,[1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]} =
+	asn1_wrapper:decode('PrimStrings','Bs7',Bytes34),
+    
+    %%==========================================================
+    %% BsPri ::= [PRIVATE 61] BIT STRING
+    %%==========================================================
+    
+    ?line {ok,Bytes41} = asn1_wrapper:encode('PrimStrings','BsPri',45),
+    ?line {ok,[1,0,1,1,0,1]} = asn1_wrapper:decode('PrimStrings','BsPri',lists:flatten(Bytes41)),
+    
+    ?line {ok,Bytes42} = asn1_wrapper:encode('PrimStrings','BsPri',211),
+    ?line {ok,[1,1,0,0,1,0,1,1]} = asn1_wrapper:decode('PrimStrings','BsPri',lists:flatten(Bytes42)),
+    
+    ?line case asn1_wrapper:erule(Rules) of
+	      ber -> 
+		  ?line {ok,[0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]} = 
+		      asn1_wrapper:decode('PrimStrings','BsPri',[223,61,4,5,75,226,96]),
+		  
+		  ?line {ok,[0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]} = 
+		      asn1_wrapper:decode('PrimStrings','BsPri',[255,61,128,3,4,5,75,226,96,0,0]),
+		  
+		  ?line {ok,[0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]} = 
+		      asn1_wrapper:decode('PrimStrings','BsPri',[255,61,9,3,2,0,75,3,3,5,226,96]),
+		  
+		  ?line {ok,[0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]} = 
+		      asn1_wrapper:decode('PrimStrings','BsPri',[255,61,128,3,2,0,75,3,3,5,226,96,0,0]),
+		  ok;
+	      
+	      per ->
+		  ok
+	  end,
+    
+    
+    
+    %%==========================================================
+    %% BsExpPri ::= [PRIVATE 61] EXPLICIT BIT STRING
+    %%==========================================================
+    
+    ?line {ok,Bytes51} = asn1_wrapper:encode('PrimStrings','BsExpPri',45),
+    ?line {ok,[1,0,1,1,0,1]} = 
+	asn1_wrapper:decode('PrimStrings','BsExpPri',lists:flatten(Bytes51)),
+    
+    ?line {ok,Bytes52} = asn1_wrapper:encode('PrimStrings','BsExpPri',211),
+    ?line {ok,[1,1,0,0,1,0,1,1]} = 
+	asn1_wrapper:decode('PrimStrings','BsExpPri',lists:flatten(Bytes52)),
+    
+    ?line case asn1_wrapper:erule(Rules) of
+	      ber -> 
+		  ?line {ok,[0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]} = 
+		      asn1_wrapper:decode('PrimStrings','BsExpPri',[255,61,6,3,4,5,75,226,96]),
+		  ok;
+	      
+	      per ->
+		  ok
+	  end,
+    
+    %%==========================================================
+    %% TestS ::= BIT STRING {a(0),b(1)} (SIZE (3..8)), test case for OTP-4353
+    %%==========================================================
+
+    ?line {ok,Bytes53} = asn1_wrapper:encode('PrimStrings','TestS',[a]),
+    ?line {ok,[a]} = 
+	asn1_wrapper:decode('PrimStrings','TestS',lists:flatten(Bytes53)),
+
+    %%==========================================================
+    %% PersonalStatus ::= BIT STRING {married(0),employed(1),
+    %%    veteran(2), collegeGraduate(3)}, test case for OTP-5710
+    %%==========================================================
+    
+    ?line {ok,Bytes54} = asn1_wrapper:encode('BitStr','PersonalStatus',[]),
+    ?line {ok,[]} = asn1_wrapper:decode('BitStr','PersonalStatus',Bytes54),
+    
+    %%==========================================================
+    %% BS5932 ::= BIT STRING (SIZE (5..MAX))
+    %% test case for OTP-5932
+    %%==========================================================
+    case asn1_wrapper:erule(Rules) of
+	ber ->
+	    ?line {error,_} = asn1_wrapper:encode('PrimStrings','BSMAX',
+						  [1,0,1]),
+	    ?line {ok,Bytes55} = 
+		asn1_wrapper:encode('PrimStrings','BSMAX',[1,0,1,0,1]),
+	    ?line {ok,[1,0,1,0,1]} = 
+		asn1_wrapper:decode('PrimStrings','BSMAX',Bytes55);
+	_ ->
+	    ok
+    end,
+    
+    %%==========================================================
+    %% BS255 ::= BIT STRING (SIZE (255))
+    %% BS256 ::= BIT STRING (SIZE (256))
+    %% BS1024 ::= BIT STRING (SIZE (1024))
+    %% test case for OTP-7602
+    %%==========================================================
+    BSmaker =
+	fun(_F,S,S,_,Acc) -> 
+		Acc;
+	   (F,Ix,S,{A,B},Acc) -> 
+		F(F,Ix+1,S,{B,A},[A|Acc]) 
+	end,
+    
+    BSList255 = BSmaker(BSmaker,0,255,{1,0},[]),
+    BSList256 = BSmaker(BSmaker,0,256,{1,0},[]),
+    BSList1024 = BSmaker(BSmaker,0,1024,{1,0},[]),
+    ?line {ok,Bytes56} = 
+	asn1_wrapper:encode('PrimStrings','BS255',BSList255),
+    ?line {ok,BSList255} = 
+	asn1_wrapper:decode('PrimStrings','BS255',Bytes56),
+    ?line {ok,Bytes57} = 
+	asn1_wrapper:encode('PrimStrings','BS256',BSList256),
+    ?line {ok,BSList256} = 
+	asn1_wrapper:decode('PrimStrings','BS256',Bytes57),
+    ?line {ok,Bytes58} = 
+	asn1_wrapper:encode('PrimStrings','BS1024',BSList1024),
+    ?line {ok,BSList1024} = 
+	asn1_wrapper:decode('PrimStrings','BS1024',Bytes58).
+    
+	    
+
+bit_string_unnamed(Rules) ->
+    case asn1_wrapper:erule(Rules) of
+	ber ->
+	    ok;
+	per ->
+	    ?line {ok,Bytes1} = 
+		case catch asn1_wrapper:encode('PrimStrings','TransportLayerAddress',[0,1,1,0]) of
+		    Ret = {ok,_} -> Ret;
+		    Err ->
+			Config = file:consult(test_config),
+			?line OutDir = ?config(priv_dir,Config),
+			MyOut = "/home/bertil/daily_build",
+			file:copy(filename:join([OutDir,"PrimStrings.erl"]),
+				  filename:join([MyOut,"PrimStrings.erl"])),
+			file:copy(filename:join([OutDir,"PrimStrings.beam"]),
+				  filename:join([MyOut,"PrimStrings.beam"])),
+			file:copy(code:which(asn1rt_per_v1),
+				  filename:join([MyOut,"asn1rt_per_v1.beam"])),
+			file:copy(filename:join([code:lib_dir(asn1),src,"asn1rt_per_v1.erl"]),filename:join([MyOut,"asn1rt_per_v1.erl"])),
+			io:format("Err: ~p~n",[Err]),
+			Err
+		end,
+	    ?line {ok,[0,1,1,0]} = asn1_wrapper:decode('PrimStrings','TransportLayerAddress',lists:flatten(Bytes1))
+    end.
+
+octet_string(Rules) ->
+
+    %%==========================================================
+    %% Os ::= OCTET STRING
+    %%==========================================================
+
+    ?line case asn1_wrapper:erule(Rules) of
+	      ber -> 
+		  ?line {ok,"Jones"} = 
+		      asn1_wrapper:decode('PrimStrings','Os',[4,5,16#4A,16#6F,16#6E,16#65,16#73]),
+
+		  ?line {ok,"Jones"} = 
+		      asn1_wrapper:decode('PrimStrings','Os',[36,9,4,3,16#4A,16#6F,16#6E,4,2,16#65,16#73]),
+		  
+		  ?line {ok,"Jones"} = 
+		      asn1_wrapper:decode('PrimStrings','Os',[36,128,4,3,16#4A,16#6F,16#6E,4,2,16#65,16#73,0,0]),
+		  ok;
+	      
+	      per ->
+		  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
+	      ber -> 
+		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','OsExpApp',[127,62,7,4,5,16#4A,16#6F,16#6E,16#65,16#73]),
+		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','OsExpApp',[127,62,11,36,9,4,3,16#4A,16#6F,16#6E,4,2,16#65,16#73]),
+		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','OsExpApp',[127,62,13,36,128,4,3,16#4A,16#6F,16#6E,4,2,16#65,16#73,0,0]),
+		  ?line {ok,"Jones"} = asn1_wrapper:decode('PrimStrings','OsExpApp',[127,62,128,36,128,4,3,16#4A,16#6F,16#6E,4,2,16#65,16#73,0,0,0,0]),
+		  ?line {ok,"JonesJones"} = asn1_wrapper:decode('PrimStrings','OsExpApp',[127,62,128,36,128,4,3,16#4A,16#6F,16#6E,4,2,16#65,16#73,0,0,36,128,4,3,16#4A,16#6F,16#6E,4,2,16#65,16#73,0,0,0,0]),
+		  ok;
+	      
+	      per ->
+		  ok
+	  end,
+
+
+    ok.
+    
+
+
+
+		       
+numeric_string(Rules) ->
+
+    %%==========================================================
+    %% Ns ::= NumericString
+    %%==========================================================
+
+    ?line {ok,BytesNs2} = asn1_wrapper:encode('PrimStrings','Ns',[]),
+    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','Ns',lists:flatten(BytesNs2)),
+
+    ?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,
+
+    
+
+		       
+    %%==========================================================
+    %% NsCon ::= [70] NumericString
+    %%==========================================================
+
+    ?line {ok,BytesNs12} = asn1_wrapper:encode('PrimStrings','NsCon',[]),
+    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','NsCon',lists:flatten(BytesNs12)),
+
+    
+
+    ?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,
+
+
+		       
+    %%==========================================================
+    %% NsExpCon ::= [71] EXPLICIT NumericString
+    %%==========================================================
+
+    ?line {ok,BytesNs22} = asn1_wrapper:encode('PrimStrings','NsExpCon',[]),
+    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','NsExpCon',lists:flatten(BytesNs22)),
+
+    
+
+    ?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.
+
+
+
+
+		       
+other_strings(_Rules) ->
+
+    %%==========================================================
+    %% 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.
+
+
+more_strings(_Rules) ->
+    %%==========================================================
+    %% Ts ::= TeletexString
+    %%==========================================================
+
+    ?line {ok,BytesTs1} = asn1_wrapper:encode('PrimStrings','Ts',[47,23,99,75,47]),
+    ?line {ok,[47,23,99,75,47]} = 
+	asn1_wrapper:decode('PrimStrings','Ts',lists:flatten(BytesTs1)),
+    
+    ?line {ok,BytesTs2} = asn1_wrapper:encode('PrimStrings','Ts',[]),
+    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','Ts',lists:flatten(BytesTs2)),
+
+
+		       
+    %%==========================================================
+    %% Vxs ::= VideotexString
+    %%==========================================================
+
+    ?line {ok,BytesVxs1} = asn1_wrapper:encode('PrimStrings','Vxs',[47,23,99,75,47]),
+    ?line {ok,[47,23,99,75,47]} = 
+	asn1_wrapper:decode('PrimStrings','Vxs',lists:flatten(BytesVxs1)),
+    
+    ?line {ok,BytesVxs2} = asn1_wrapper:encode('PrimStrings','Vxs',[]),
+    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','Vxs',lists:flatten(BytesVxs2)),
+
+
+    
+    %%==========================================================
+    %% Grs ::= GraphicString
+    %%==========================================================
+
+    ?line {ok,BytesGrs1} = asn1_wrapper:encode('PrimStrings','Grs',[47,23,99,75,47]),
+    ?line {ok,[47,23,99,75,47]} = 
+	asn1_wrapper:decode('PrimStrings','Grs',lists:flatten(BytesGrs1)),
+		  
+    ?line {ok,BytesGrs2} = asn1_wrapper:encode('PrimStrings','Grs',[]),
+    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','Grs',lists:flatten(BytesGrs2)),
+    
+
+    %%==========================================================
+    %% ODesc ::= ObjectDescriptor, test case for OTP-4161
+    %%==========================================================
+
+    ?line {ok,BytesODesc1} = asn1_wrapper:encode('PrimStrings','ODesc',[79,98,106,101,99,116,68,101,115,99,114,105,112,116,111,114]),
+    ?line {ok,[79,98,106,101,99,116,68,101,115,99,114,105,112,116,111,114]} = 
+	asn1_wrapper:decode('PrimStrings','ODesc',lists:flatten(BytesODesc1)),
+		  
+    ?line {ok,BytesODesc2} = asn1_wrapper:encode('PrimStrings','ODesc',[]),
+    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','ODesc',lists:flatten(BytesODesc2)),
+		       
+    %%==========================================================
+    %% Ges ::= GeneralString
+    %%==========================================================
+
+    ?line {ok,BytesGes1} = asn1_wrapper:encode('PrimStrings','Ges',[47,23,99,75,47]),
+    ?line {ok,[47,23,99,75,47]} = 
+	asn1_wrapper:decode('PrimStrings','Ges',lists:flatten(BytesGes1)),
+    
+    ?line {ok,BytesGes2} = asn1_wrapper:encode('PrimStrings','Ges',[]),
+    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','Ges',lists:flatten(BytesGes2)),
+    
+    ok.
+
+
+		       
+universal_string(Rules) ->
+    
+    
+    %%==========================================================
+    %% Us ::= UniversalString
+    %%==========================================================
+    
+    ?line {ok,Bytes1} = 
+	asn1_wrapper:encode('PrimStrings','Us',[{47,23,99,47},{0,0,55,66}]),
+    ?line {ok,[{47,23,99,47},{0,0,55,66}]} = 
+	asn1_wrapper:decode('PrimStrings','Us',lists:flatten(Bytes1)),
+    
+    ?line {ok,Bytes2} = 
+	asn1_wrapper:encode('PrimStrings','Us',[{47,23,99,255},{0,0,0,201}]),
+    ?line {ok,[{47,23,99,255},201]} = 
+	asn1_wrapper:decode('PrimStrings','Us',lists:flatten(Bytes2)),
+    
+    ?line {ok,Bytes3} = asn1_wrapper:encode('PrimStrings','Us',"Universal String"),
+    ?line {ok,"Universal String"} = 
+	asn1_wrapper:decode('PrimStrings','Us',lists:flatten(Bytes3)),
+    
+    ?line {ok,Bytes4} = asn1_wrapper:encode('PrimStrings','Us',[]),
+    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','Us',lists:flatten(Bytes4)),
+    
+    ?line {ok,Bytes5} = asn1_wrapper:encode('PrimStrings','Us',[{47,23,99,47}]),
+    ?line {ok,[{47,23,99,47}]} = 
+	asn1_wrapper:decode('PrimStrings','Us',lists:flatten(Bytes5)),
+
+    
+    ?line case asn1_wrapper:erule(Rules) of
+	      ber -> 
+    
+		  ?line {ok,[{47,23,99,255},{0,0,2,201}]} = 
+		      asn1_wrapper:decode('PrimStrings','Us',lists:flatten([16#3C,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','Us',lists:flatten([16#3C,16#80,28,4,47,23,99,255,28,4,0,0,2,201,0,0]));
+	      _ ->
+		  ok
+	  end,
+
+
+    Us1 = "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890",
+    ?line {ok,Bytes15} = asn1_wrapper:encode('PrimStrings','IA5',Us1),
+    ?line {ok,Us1r} = asn1_wrapper:decode('PrimStrings','IA5',lists:flatten(Bytes15)),
+    ?line Us1 = Us1r,
+
+
+
+%%==========================================================
+%% UsCon ::= [70] UniversalString
+%%==========================================================
+
+    ?line {ok,Bytes11} = 
+	asn1_wrapper:encode('PrimStrings','UsCon',[{47,23,99,255},{0,0,2,201}]),
+    ?line {ok,[{47,23,99,255},{0,0,2,201}]} = 
+	asn1_wrapper:decode('PrimStrings','UsCon',lists:flatten(Bytes11)),
+    
+    ?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)),
+    
+    ?line {ok,Bytes13} = asn1_wrapper:encode('PrimStrings','UsCon',"Universal String"),
+    ?line {ok,"Universal String"} = 
+	asn1_wrapper:decode('PrimStrings','UsCon',lists:flatten(Bytes13)),
+    
+    ?line {ok,Bytes14} = asn1_wrapper:encode('PrimStrings','UsCon',[]),
+    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','UsCon',lists:flatten(Bytes14)),
+    
+    ?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,
+
+
+
+%%==========================================================
+%% UsExpCon ::= [71] EXPLICIT UniversalString
+%%==========================================================
+
+    ?line {ok,Bytes21} = 
+	asn1_wrapper:encode('PrimStrings','UsExpCon',[{47,23,99,255},{0,0,2,201}]),
+    ?line {ok,[{47,23,99,255},{0,0,2,201}]} = 
+	asn1_wrapper:decode('PrimStrings','UsExpCon',lists:flatten(Bytes21)),
+    
+    ?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)),
+    
+    ?line {ok,Bytes23} = 
+	asn1_wrapper:encode('PrimStrings','UsExpCon',"Universal String"),
+    ?line {ok,"Universal String"} = 
+	asn1_wrapper:decode('PrimStrings','UsExpCon',lists:flatten(Bytes23)),
+    
+    ?line {ok,Bytes24} = 
+	asn1_wrapper:encode('PrimStrings','UsExpCon',[]),
+    ?line {ok,[]} = 
+	asn1_wrapper:decode('PrimStrings','UsExpCon',lists:flatten(Bytes24)),
+    
+    ?line case asn1_wrapper:erule(Rules) of
+	      ber ->     
+		  ?line {ok,[{47,23,99,255},{0,0,2,201}]} = 
+		      asn1_wrapper:decode('PrimStrings','UsExpCon',lists:flatten([16#BF,16#47,14,60,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','UsExpCon',lists:flatten([16#BF,16#47,16,60,16#80,28,4,47,23,99,255,28,4,0,0,2,201,0,0]));
+	      _ -> ok
+	  end,
+    
+
+ok.
+
+
+
+
+		       
+bmp_string(_Rules) ->
+		       
+    %%==========================================================
+    %% BMP ::= BMPString
+    %%==========================================================
+
+    ?line {ok,Bytes1} = 
+	asn1_wrapper:encode('PrimStrings','BMP',[{0,0,99,48},{0,0,2,201}]),
+    ?line {ok,[{0,0,99,48},{0,0,2,201}]} = 
+	asn1_wrapper:decode('PrimStrings','BMP',lists:flatten(Bytes1)),
+    
+    ?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)),
+    
+    ?line {ok,Bytes3} = asn1_wrapper:encode('PrimStrings','BMP',"BMP String"),
+    ?line {ok,"BMP String"} = 
+	asn1_wrapper:decode('PrimStrings','BMP',lists:flatten(Bytes3)),
+    
+    ?line {ok,Bytes4} = asn1_wrapper:encode('PrimStrings','BMP',[]),
+    ?line {ok,[]} = asn1_wrapper:decode('PrimStrings','BMP',lists:flatten(Bytes4)),
+
+
+    BMP1 = "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890",
+    ?line {ok,Bytes5} = asn1_wrapper:encode('PrimStrings','BMP',BMP1),
+    ?line {ok,BMP1r} = asn1_wrapper:decode('PrimStrings','BMP',lists:flatten(Bytes5)),
+    ?line BMP1 = BMP1r,
+		       
+		     
+    ok.
+
+
+
+
+		       
+times(_Rules) ->
+
+    %%==========================================================
+    %% 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)),
+
+
+    
+    
+
+		       
+
+    %%==========================================================
+    %% 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)),    
+
+    ok.
+
+
+utf8_string(_Rules) ->
+		       
+    %%==========================================================
+    %% UTF ::= UTF8String
+    %%==========================================================
+
+    %% test values in all ranges
+
+    ValLbR1 = [16#00],
+    ValUbR1 = [16#7f],
+    ValLbR2 = [16#80],
+    ValUbR2 = [16#7ff],
+    ValLbR3 = [16#800],
+    ValUbR3 = [16#ffff],
+    ValLbR4 = [16#10000],
+    ValUbR4 = [16#1fffff],
+    ValLbR5 = [16#200000],
+    ValUbR5 = [16#3ffffff],
+    ValLbR6 = [16#4000000],
+    ValUbR6 = [16#7fffffff],
+    
+    ?line {ok,UTF8L1} = asn1rt:utf8_list_to_binary(ValLbR1),
+    ?line {ok,Bytes1} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L1),
+    ?line {ok,Bin1} = asn1_wrapper:decode('PrimStrings','UTF',Bytes1),
+    ?line {ok,ValLbR1} = wrapper_utf8_binary_to_list(Bin1),
+    
+    ?line {ok,UTF8L2} = asn1rt:utf8_list_to_binary(ValUbR1),
+    ?line {ok,Bytes2} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L2),
+    ?line {ok,Bin2} = asn1_wrapper:decode('PrimStrings','UTF',Bytes2),
+    ?line {ok,ValUbR1} = wrapper_utf8_binary_to_list(Bin2),
+
+    ?line {ok,UTF8L3} = asn1rt:utf8_list_to_binary(ValLbR2),
+    ?line {ok,Bytes3} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L3),
+    ?line {ok,Bin3} = asn1_wrapper:decode('PrimStrings','UTF',Bytes3),
+    ?line {ok,ValLbR2} = wrapper_utf8_binary_to_list(Bin3),
+
+    ?line {ok,UTF8L4} = asn1rt:utf8_list_to_binary(ValUbR2),
+    ?line {ok,Bytes4} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L4),
+    ?line {ok,Bin4} = asn1_wrapper:decode('PrimStrings','UTF',Bytes4),
+    ?line {ok,ValUbR2} = wrapper_utf8_binary_to_list(Bin4),
+
+    ?line {ok,UTF8L5} = asn1rt:utf8_list_to_binary(ValLbR3),
+    ?line {ok,Bytes5} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L5),
+    ?line {ok,Bin5} = asn1_wrapper:decode('PrimStrings','UTF',Bytes5),
+    ?line {ok,ValLbR3} = wrapper_utf8_binary_to_list(Bin5),
+
+    ?line {ok,UTF8L6} = asn1rt:utf8_list_to_binary(ValUbR3),
+    ?line {ok,Bytes6} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L6),
+    ?line {ok,Bin6} = asn1_wrapper:decode('PrimStrings','UTF',Bytes6),
+    ?line {ok,ValUbR3} = wrapper_utf8_binary_to_list(Bin6),
+
+    ?line {ok,UTF8L7} = asn1rt:utf8_list_to_binary(ValLbR4),
+    ?line {ok,Bytes7} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L7),
+    ?line {ok,Bin7} = asn1_wrapper:decode('PrimStrings','UTF',Bytes7),
+    ?line {ok,ValLbR4} = wrapper_utf8_binary_to_list(Bin7),
+
+    ?line {ok,UTF8L8} = asn1rt:utf8_list_to_binary(ValUbR4),
+    ?line {ok,Bytes8} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L8),
+    ?line {ok,Bin8} = asn1_wrapper:decode('PrimStrings','UTF',Bytes8),
+    ?line {ok,ValUbR4} = wrapper_utf8_binary_to_list(Bin8),
+
+    ?line {ok,UTF8L9} = asn1rt:utf8_list_to_binary(ValLbR5),
+    ?line {ok,Bytes9} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L9),
+    ?line {ok,Bin9} = asn1_wrapper:decode('PrimStrings','UTF',Bytes9),
+    ?line {ok,ValLbR5} = wrapper_utf8_binary_to_list(Bin9),
+
+    ?line {ok,UTF8L10} = asn1rt:utf8_list_to_binary(ValUbR5),
+    ?line {ok,Bytes10} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L10),
+    ?line {ok,Bin10} = asn1_wrapper:decode('PrimStrings','UTF',Bytes10),
+    ?line {ok,ValUbR5} = wrapper_utf8_binary_to_list(Bin10),
+
+    ?line {ok,UTF8L11} = asn1rt:utf8_list_to_binary(ValLbR6),
+    ?line {ok,Bytes11} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L11),
+    ?line {ok,Bin11} = asn1_wrapper:decode('PrimStrings','UTF',Bytes11),
+    ?line {ok,ValLbR6} = wrapper_utf8_binary_to_list(Bin11),
+
+    ?line {ok,UTF8L12} = asn1rt:utf8_list_to_binary(ValUbR6),
+    ?line {ok,Bytes12} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L12),
+    ?line {ok,Bin12} = asn1_wrapper:decode('PrimStrings','UTF',Bytes12),
+    ?line {ok,ValUbR6} = wrapper_utf8_binary_to_list(Bin12),
+    
+    LVal = ValLbR1++ValUbR1++ValLbR2++ValUbR2++ValLbR3++ValUbR3++
+	ValLbR4++ValUbR4++ValLbR5++ValUbR5++ValLbR6++ValUbR6,
+    LongVal = LVal++LVal++LVal++LVal++LVal++LVal++LVal++"hello",
+    
+    ?line {ok,UTF8L13} = asn1rt:utf8_list_to_binary(LongVal),
+    ?line {ok,Bytes13} = asn1_wrapper:encode('PrimStrings','UTF',UTF8L13),
+    ?line {ok,Bin13} = asn1_wrapper:decode('PrimStrings','UTF',Bytes13),
+    ?line {ok,LongVal} = wrapper_utf8_binary_to_list(Bin13).
+
+wrapper_utf8_binary_to_list(L) when list(L) ->
+    asn1rt:utf8_binary_to_list(list_to_binary(L));
+wrapper_utf8_binary_to_list(B) ->
+    asn1rt:utf8_binary_to_list(B).