aboutsummaryrefslogblamecommitdiffstats
path: root/lib/asn1/test/asn1_test_lib.erl
blob: 60b2b2b42ee27f9566c2f706abc3652e89760d2f (plain) (tree)
1
2
3
4


                   
                                                        
















                                                                         

                         
                            
                        
 
                                                                 
                                                       
 
                                                    
 




                                                                       

                                                                         
       
 

                              
                                                                




                                          

                                                          


                       
                                                       







                                                                            
                                                                          
 






                                                  
                             





                                                                           










                                                                              



                                                





                                                              
                                                               





                                                            
                                                               


























































                                                                                                                            
                                                               











                                                            
                                                       



                                                                            
                                                                         































                                                                                                                                                                                                                                   
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2008-2013. 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(asn1_test_lib).

-export([compile/3]).
-export([compile_all/3]).
-export([compile_erlang/3]).
-export([hex_to_bin/1]).

-export([ticket_7407_compile/2,ticket_7407_code/1, ticket_7678/2,
         ticket_7708/2, ticket_7763/1, ticket_7876/3]).

-include_lib("test_server/include/test_server.hrl").

compile(File, Config, Options) -> compile_all([File], Config, Options).

compile_all(Files, Config, Options) ->
    DataDir = ?config(data_dir, Config),
    CaseDir = ?config(case_dir, Config),
    [compile_file(filename:join(DataDir, F), [{outdir, CaseDir}|Options])
         || F <- Files],
    ok.

compile_file(File, Options) ->
    try
        ok = asn1ct:compile(File, [warnings_as_errors|Options]),
        case should_load(File, Options) of
            false ->
                ok;
            {module, Module} ->
                code:purge(Module),
                {module, Module} = code:load_file(Module),
		code:purge(Module)
        end
    catch
        Class:Reason ->
	    ct:print("Failed to compile ~s\n", [File]),
            erlang:error({compile_failed, {File, Options}, {Class, Reason}})
    end.

compile_erlang(Mod, Config, Options) ->
    DataDir = ?config(data_dir, Config),
    CaseDir = ?config(case_dir, Config),
    M = list_to_atom(Mod),
    {ok, M} = compile:file(filename:join(DataDir, Mod),
                           [report,{i,CaseDir},{outdir,CaseDir}|Options]).

hex_to_bin(S) ->
    << <<(hex2num(C)):4>> || C <- S, C =/= $\s >>.

%%%
%%% Internal functions.
%%%

should_load(File, Options) ->
    case lists:member(abs, Options) of
	true ->
	    false;
	false ->
	    {module,list_to_atom(strip_extension(filename:basename(File)))}
    end.

strip_extension(File) ->
    strip_extension(File, filename:extension(File)).

strip_extension(File, "") ->
    File;
strip_extension(File, Ext) when Ext == ".asn"; Ext == ".set"; Ext == ".asn1"->
    strip_extension(filename:rootname(File));
strip_extension(File, _Ext) ->
    File.

hex2num(C) when $0 =< C, C =< $9 -> C - $0;
hex2num(C) when $A =< C, C =< $F -> C - $A + 10;
hex2num(C) when $a =< C, C =< $f -> C - $a + 10.

ticket_7407_compile(Config,Option) ->

    ?line DataDir = ?config(data_dir,Config),
    ?line OutDir = ?config(priv_dir,Config),

    ?line ok = asn1ct:compile(DataDir ++ "EUTRA-extract-7407",
			      [uper, {outdir,OutDir}]++Option).

ticket_7708(Config,Option) ->
    ?line DataDir = ?config(data_dir,Config),
    ?line OutDir = ?config(priv_dir,Config),
    
    ?line ok = asn1ct:compile(DataDir ++ "EUTRA-extract-55",
			      [uper, {outdir,OutDir}]++Option).
    

ticket_7407_code(FinalPadding) ->
    Msg1 = {Type1,_} = eutra1(msg),
    ?line {ok,B1} = 'EUTRA-extract-7407':encode(Type1,Msg1),
    ?line B1 = eutra1(result,FinalPadding),
    
    Msg2 = {Type2,_} = eutra2(msg),
    ?line {ok,B2} = 'EUTRA-extract-7407':encode(Type2,Msg2),
    ?line B2 = eutra2(result,FinalPadding),
    ok.

eutra1(msg) ->
    {'BCCH-BCH-Message',{'MasterInformationBlock',[0,1,0,1],[1,0,1,0],{'PHICH-Configuration',short,ffs},[1,0,1,0,0,0,0,0]}}.
eutra1(result,true) ->
    <<90,80,0>>;
eutra1(result,false) ->
    <<90,80,0:1>>.

eutra2(msg) ->
    {'BCCH-DL-SCH-Message',
     {c1,
      {systemInformation1,
       {'SystemInformationBlockType1',
	{'SystemInformationBlockType1_cellAccessRelatedInformation',
	 [{'SystemInformationBlockType1_cellAccessRelatedInformation_plmn-IdentityList_SEQOF',{'PLMN-Identity'},true},
	  {'SystemInformationBlockType1_cellAccessRelatedInformation_plmn-IdentityList_SEQOF',{'PLMN-Identity'},false},
	  {'SystemInformationBlockType1_cellAccessRelatedInformation_plmn-IdentityList_SEQOF',{'PLMN-Identity'},true}],
	 {'TrackingAreaCode'},
	 {'CellIdentity'},
	 false,
	 true,
	 true,
	 true
	},
	{'SystemInformationBlockType1_cellSelectionInfo',-50},
	24,
	[{'SystemInformationBlockType1_schedulinInformation_SEQOF',
	  {'SystemInformationBlockType1_schedulinInformation_SEQOF_si-MessageType'},
	  ms320,
	  {'SystemInformationBlockType1_schedulinInformation_SEQOF_sib-MappingInfo'}}],
	0
       }
      }
     }
    }.
eutra2(result,true) ->
%% 55 5C A5 E0
    <<85,92,165,224>>;
eutra2(result,false) ->
    <<85,92,165,14:4>>.



ticket_7678(Config, Option) ->
    ?line DataDir = ?config(data_dir,Config),
    ?line OutDir = ?config(priv_dir,Config),

    ?line ok = asn1ct:compile(DataDir ++ "UPERDefault",
			      [uper, {outdir,OutDir}]++Option),
    
    ?line Val = 'UPERDefault':seq(),
    ?line {ok,<<0,6,0>>} = 'UPERDefault':encode('Seq',Val),
    ?line {ok,Val} = 'UPERDefault':decode('Seq',<<0,6,0>>),
    ok.


ticket_7763(Config) ->
    ?line DataDir = ?config(data_dir,Config),
    ?line OutDir = ?config(priv_dir,Config),

    ?line ok = asn1ct:compile(DataDir ++ "EUTRA-extract-55",
			      [uper, {outdir,OutDir}]),
    Val = {'Seq',15,lists:duplicate(8,0),[0],lists:duplicate(28,0),15,true},
    ?line {ok,Bin} = 'EUTRA-extract-55':encode('Seq',Val),

    ?line ok = asn1ct:compile(DataDir ++ "EUTRA-extract-55",
			      [uper,compact_bit_string,{outdir,OutDir}]),
    CompactVal = {'Seq',15,{0,<<0>>},{7,<<0>>},{4,<<0,0,0,0>>},15,true},
    {ok,CompactBin} = 'EUTRA-extract-55':encode('Seq',CompactVal),

    ?line Bin = CompactBin,

    io:format("CompactBin:~n~p~nBin:~n~p~nCompactBin == Bin is ~p~n",[CompactBin,Bin,CompactBin == Bin]).
    

ticket_7876(Config,Erule,Options) ->
    ?line DataDir = ?config(data_dir,Config),
    ?line OutDir = ?config(priv_dir,Config),

    ?line ok = asn1ct:compile(DataDir ++ "S1AP-CommonDataTypes",
			      [Erule,{outdir,OutDir}|Options]),
    ?line ok = asn1ct:compile(DataDir ++ "S1AP-Constants",
			      [Erule,{outdir,OutDir}|Options]),
?line ok = asn1ct:compile(DataDir ++ "S1AP-Containers",
			      [Erule,{outdir,OutDir}|Options]),
?line ok = asn1ct:compile(DataDir ++ "S1AP-IEs",
			      [Erule,{outdir,OutDir}|Options]),
?line ok = asn1ct:compile(DataDir ++ "S1AP-PDU-Contents",
			      [Erule,{outdir,OutDir}|Options]),
?line ok = asn1ct:compile(DataDir ++ "S1AP-PDU-Descriptions",
			      [Erule,{outdir,OutDir}|Options]),

    ticket_7876_encdec(Erule),
    ok.

ticket_7876_encdec(per) ->
    ?line {ok,{initiatingMessage,_}} = 'S1AP-PDU-Descriptions':decode('S1AP-PDU', [0,2,64,49,0,0,5,0,0,0,4,128,106,56,197,0,8,0,3,64,2,134,0,100,64,8,0,66,240,153,0,7,192,16,0,67,64,6,0,66,240,153,70,1,0,107,64,5,0,0,0,0,0]);
ticket_7876_encdec(_) ->
    ?line {ok,{initiatingMessage,_}} = 'S1AP-PDU-Descriptions':decode('S1AP-PDU', <<0,2,64,49,0,0,5,0,0,0,4,128,106,56,197,0,8,0,3,64,2,134,0,100,64,8,0,66,240,153,0,7,192,16,0,67,64,6,0,66,240,153,70,1,0,107,64,5,0,0,0,0,0>>).