diff options
Diffstat (limited to 'lib/asn1/test/asn1_test_lib.erl')
| -rw-r--r-- | lib/asn1/test/asn1_test_lib.erl | 151 |
1 files changed, 151 insertions, 0 deletions
diff --git a/lib/asn1/test/asn1_test_lib.erl b/lib/asn1/test/asn1_test_lib.erl new file mode 100644 index 0000000000..2884c79216 --- /dev/null +++ b/lib/asn1/test/asn1_test_lib.erl @@ -0,0 +1,151 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2008-2010. 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([ticket_7407_compile/2,ticket_7407_code/1, ticket_7678/2, + ticket_7708/2, ticket_7763/1, ticket_7876/3]). + +-include("test_server.hrl"). + + +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_bin, {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_bin, {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_bin, {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_bin, {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_bin,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>>). |