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

          added.

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.