diff options
author | Kenneth Lundin <[email protected]> | 2010-02-19 14:01:57 +0000 |
---|---|---|
committer | Erlang/OTP <[email protected]> | 2010-02-19 14:01:57 +0000 |
commit | 18bd1239bee04427340a44f57f993ea92c264e41 (patch) | |
tree | dbb3031dcd2e446eb457ff7ac5229949517d7557 /lib/asn1/test/test_driver_load.erl | |
parent | 729565dc3f8bcf8829508136498aef6a542840f4 (diff) | |
download | otp-18bd1239bee04427340a44f57f993ea92c264e41.tar.gz otp-18bd1239bee04427340a44f57f993ea92c264e41.tar.bz2 otp-18bd1239bee04427340a44f57f993ea92c264e41.zip |
OTP-8463 Support for EXTENSIBILITY IMPLIED and SET/SEQ OF NamedType is
added.
Diffstat (limited to 'lib/asn1/test/test_driver_load.erl')
-rw-r--r-- | lib/asn1/test/test_driver_load.erl | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/lib/asn1/test/test_driver_load.erl b/lib/asn1/test/test_driver_load.erl new file mode 100644 index 0000000000..37a7e36a45 --- /dev/null +++ b/lib/asn1/test/test_driver_load.erl @@ -0,0 +1,58 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2003-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(test_driver_load). + +-export([compile/2,test/2,encode/0]). + +-include("test_server.hrl"). + + +test(per_bin,0) -> + ok; +test(per_bin,N) -> + spawn(?MODULE,encode,[]), + test(per_bin,N-1); +test(_,_) -> + ok. + +compile(Config,per_bin) -> + ?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 ++ "P-Record", + [per_bin,optimize,{outdir,OutDir}]); +compile(_,Erule) -> + {skip,lists:concat(["not implemented for version: ",Erule])}. + + +encode() -> + ?line Msg = msg(), + ?line {ok,_}=asn1_wrapper:encode('P-Record','PersonnelRecord',Msg), + ok. + +msg() -> + {'PersonnelRecord',{'Name',"John","P","Smith"}, + "Director", + 51, + "19710917", + {'Name',"Mary","T","Smith"}, + [{'ChildInformation',{'Name',"Ralph","T","Smith"},"19571111"},{'ChildInformation',{'Name',"Susan","B","Jones"},"19590717"}]}. + |