diff options
Diffstat (limited to 'lib/asn1/test/test_compile_options.erl')
| -rw-r--r-- | lib/asn1/test/test_compile_options.erl | 169 |
1 files changed, 169 insertions, 0 deletions
diff --git a/lib/asn1/test/test_compile_options.erl b/lib/asn1/test/test_compile_options.erl new file mode 100644 index 0000000000..a6e0caa0f1 --- /dev/null +++ b/lib/asn1/test/test_compile_options.erl @@ -0,0 +1,169 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2005-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_compile_options). + +-include("test_server.hrl"). + + +-export([wrong_path/1,comp/2,path/1,ticket_6143/1,noobj/1, + record_name_prefix/1]). + +%% OTP-5689 +wrong_path(Config) -> + Pid=spawn(?MODULE,comp,[self(),Config]), + receive + _Err -> + ok + after 10000 -> + exit(Pid,failure), + error + end. + +comp(Parent,Config) -> + DataDir = ?config(data_dir,Config), + OutDir = ?config(priv_dir,Config), + %%?line true = code:add_patha(?config(priv_dir,Config)), + io:format("DataDir: ~p~n",[DataDir]), + ?line Err=asn1ct:compile(DataDir++"NoImport",[{i,OutDir},{i,filename:join([DataDir,"subdir"])},{outdir,OutDir}]), + io:format("compiling process terminated with value: ~p~n",[Err]), + Parent!Err. + +%% OTP-5701 + +path(Config) -> + DataDir = ?config(data_dir,Config), + OutDir = ?config(priv_dir,Config), + {ok,CWD} = file:get_cwd(), + ?line file:set_cwd(filename:join([DataDir,subdir])), + + %%?line ok=asn1ct:compile(filename:join([DataDir,"../MyMerge.set.asn"]),[{inline,mymerge},{outdir,OutDir}]), + ?line ok=asn1ct:compile("../MyMerge.set.asn",[{inline,mymerge},{outdir,OutDir}]), + + ?line ok=outfiles_check(OutDir), + ?line outfiles_remove(OutDir), + + file:set_cwd(filename:join([DataDir,subdir,subsubdir])), + ?line ok = asn1ct:compile('../../MyMerge.set.asn',[{inline,mymerge},{i,'..'},{outdir,OutDir}]), + + ?line ok=outfiles_check(OutDir,outfiles2()), + file:set_cwd(CWD), + ok. + +ticket_6143(Config) -> + DataDir = ?config(data_dir,Config), + OutDir = ?config(priv_dir,Config), + io:format("DataDir: ~p~n",[DataDir]), + + ?line ok=asn1ct:compile(filename:join([DataDir,"AA1"]),[{i,DataDir},{outdir,OutDir}]), + ok. + +noobj(Config) -> + DataDir = ?config(data_dir,Config), + OutDir = ?config(priv_dir,Config), + + code:purge('P-Record'), + file:delete(filename:join([OutDir,'P-Record.erl'])), + file:delete(filename:join([OutDir,'P-Record.beam'])), + ?line ok=asn1ct:compile(filename:join([DataDir,"P-Record"]), + [noobj,{outdir,OutDir}]), +% ?line false = code:is_loaded('P-Record'), + ?line {ok,_} = file:read_file_info(filename:join([OutDir, + "P-Record.erl"])), + ?line {error,enoent} = + file:read_file_info(filename:join([OutDir,"P-Record.beam"])), + ?line {ok,_} = c:c(filename:join([OutDir,'P-Record']), + [{i,OutDir},{outdir,OutDir}]), + ?line {file,_} = code:is_loaded('P-Record'), + + code:purge('P-Record'), + code:delete('P-Record'), + code:purge('p_record'), + code:delete('p_record'), + file:delete(filename:join([OutDir,'P-Record.erl'])), + file:delete(filename:join([OutDir,'P-Record.beam'])), + file:delete(filename:join([OutDir,'p_record.erl'])), + file:delete(filename:join([OutDir,'p_record.beam'])), + ?line ok=asn1ct:compile(filename:join([DataDir,"p_record.set.asn"]),[asn1config,ber_bin,optimize,noobj,{outdir,OutDir}]), +%% ?line false = code:is_loaded('P-Record'), +%% ?line false = code:is_loaded('p_record'), + ?line {error,enoent} = + file:read_file_info(filename:join([OutDir,"P-Record.beam"])), + ?line {error,enoent} = + file:read_file_info(filename:join([OutDir,"P-Record.erl"])), + ?line {error,enoent} = + file:read_file_info(filename:join([OutDir,"p_record.beam"])), + io:format("read_file_info: p_record.erl~n",[]), + ?line {ok,_} = + file:read_file_info(filename:join([OutDir,"p_record.erl"])), + io:format("c:c: p_record.erl~n",[]), + ?line {ok,_} = c:c(filename:join([OutDir,'p_record']), + [{i,OutDir},{outdir,OutDir}]), + io:format("code:is_loaded: p_record.erl~n",[]), + ?line {file,_} = code:is_loaded('p_record'), + io:format("file:delete: p_record.erl~n",[]), + file:delete(filename:join([OutDir,'p_record.erl'])), + file:delete(filename:join([OutDir,'p_record.beam'])). + +outfiles_check(OutDir) -> + outfiles_check(OutDir,outfiles1()). + + +outfiles_check(_OutDir,[])-> + ok; +outfiles_check(OutDir,[H|T]) -> + io:format("File: ~p~n",[filename:join([OutDir,H])]), + ?line {ok,_}=file:read_file_info(filename:join([OutDir,H])), + outfiles_check(OutDir,T). + +outfiles1() -> + ["mymerge.erl","mymerge.beam","MyMerge.asn1db","MyMerge.beam", + "MyMerge.erl","MyMerge.hrl"]. +outfiles2() -> + ["MyMerge.beam","mymerge.erl","MyMerge.asn1db","MyMerge.erl", + "mymerge.beam"]. + +outfiles_remove(OutDir) -> + lists:foreach(fun(F)-> file:delete(filename:join([OutDir,F])) end, + outfiles1()). + +record_name_prefix(Config) -> + DataDir = ?config(data_dir,Config), + OutDir = ?config(priv_dir,Config), + ok = b_SeqIn(DataDir,OutDir), + ok = a_SeqIn(DataDir,OutDir). + +b_SeqIn(DataDir,OutDir) -> + asn1ct:compile(filename:join([DataDir,'Seq']), + [{record_name_prefix,"b_"},{outdir,OutDir}]), + io:format("FileName: ~p~nOutDir:~p~n", + [filename:join([DataDir,'b_SeqIn']),OutDir]), + ?line {ok,_} = compile:file(filename:join([DataDir,'b_SeqIn']), + [{i,OutDir}]), + ?line 'b_SeqIn' = b_SeqIn:record_name(), + ok. + +a_SeqIn(DataDir,OutDir) -> + asn1ct:compile(filename:join([DataDir,'Seq']), + [{record_name_prefix,"a_"},{outdir,OutDir}]), + ?line {ok,_} = compile:file(filename:join([DataDir,'a_SeqIn']), + [{i,OutDir}]), + ?line 'a_SeqIn' = a_SeqIn:record_name(), + ok. |