aboutsummaryrefslogblamecommitdiffstats
path: root/erts/emulator/test/ddll_SUITE.erl
blob: 5ef751a4cd47b15b709b3862597974f56c66f1ed (plain) (tree)
1
2
3
4
5


                   
                                                        
   










                                                                           
















                                                                     

                                                  

















                                                                              
                                           
 


                                 
 
         











                                                            
 




                                                          
                                                       























                                                                                






                                                                       
                                                       









                                                                                              
                                                                   
                                                  


                                                                                               






                                                                     
                                                       























                                                                                                     






                                                                                                  
                                                       


























                                                                                                     






                                                                                               
                                                       


























                                                                                                     






                                                     
                                                       


































                                                                                                   






                                                       
                                                       

































                                                                                                                         






                                                       
                                                       



































                                                                                                                                                    




                                                                     
                                                       











































                                                                                                     




                                                                       

                                                              

















                                                                                  





                                                                                    

                                                              


















































                                                                                                                         





                                                                      
                                                 
                                                       



















































































                                                                                                                

















                                                                  
                                                       

























                                                                                              






                                                           
                                                       






























                                                                                                     






                                                 
                                                       







                                                               






                                                      
                                                       




















                                                                                               






                                                  
                                                       




















































                                                                                                     





                                         
                                                       



























                                                                        




                                              
                                                       



















                                                                                 






                                                                   
                                                       





                                                                   
                                                         






                                                               


























                                                               
                                                       








                                                                   
                                                               















                                                                 
                                                         
        





                                                                    
                                                       








                                                                   
                                                               



















                                                                        
                                                         
        




                                                                
                                                       




                                                         
                                                         








                                                                 
                                                                 




                                                          



                                                                            
                                                       









                                                                      






                                                   
                                                       





                                                          












































                                                                                           
%%
%% %CopyrightBegin%
%% 
%% Copyright Ericsson AB 1997-2013. All Rights Reserved.
%% 
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%%     http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
%% 
%% %CopyrightEnd%
%%

-module(ddll_SUITE).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% Checks if the dynamic driver and linker loader works.
%%%
%%% These tests can only be run installed (outside clearcase).
%%%
%%% XXX In this suite is missing test cases for reference counts
%%% and that drivers are unloaded when their processes die.
%%% (For me to add :-)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


-export([all/0, suite/0,
         ddll_test/1, errors/1, reference_count/1,
	 kill_port/1, dont_kill_port/1]).
-export([unload_on_process_exit/1, delayed_unload_with_ports/1, 
	 unload_due_to_process_exit/1,
	 no_unload_due_to_process_exit/1, no_unload_due_to_process_exit_2/1,
	 unload_reload_thingie/1, unload_reload_thingie_2/1,
	 unload_reload_thingie_3/1, reload_pending/1, reload_pending_kill/1,
	 load_fail_init/1,
	 reload_pending_fail_init/1,
	 more_error_codes/1, forced_port_killing/1, 
	 no_trap_exit_and_kill_ports/1,
	 monitor_demonitor/1, monitor_demonitor_load/1, new_interface/1, 
	 lock_driver/1]).

% Private exports
-export([echo_loader/2, nice_echo_loader/2 ,properties/1, load_and_unload/1]).

-import(ordsets, [subtract/2]).

-include_lib("common_test/include/ct.hrl").

suite() ->
    [{ct_hooks,[ts_install_cth]},
     {timetrap, {seconds, 10}}].

all() -> 
    [ddll_test, errors, reference_count, kill_port,
     dont_kill_port, properties, load_and_unload,
     unload_on_process_exit, delayed_unload_with_ports,
     unload_due_to_process_exit,
     no_unload_due_to_process_exit,
     no_unload_due_to_process_exit_2, unload_reload_thingie,
     unload_reload_thingie_2, unload_reload_thingie_3,
     reload_pending, load_fail_init,
     reload_pending_fail_init, reload_pending_kill,
     more_error_codes, forced_port_killing,
     no_trap_exit_and_kill_ports, monitor_demonitor,
     monitor_demonitor_load, new_interface, lock_driver].

unload_on_process_exit(suite) ->
    [];
unload_on_process_exit(doc) ->
    ["Check that the driver is unloaded on process exit"];
unload_on_process_exit(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line false = lists:member("echo_drv",element(2,erl_ddll:loaded_drivers())),
    Parent = self(),
    ?line Pid = spawn(fun() ->
			      receive go -> ok end,
			      erl_ddll:try_load(Path, echo_drv, []),
			      Parent ! gone,
			      receive go -> ok end,
			      erl_ddll:loaded_drivers(),
			      exit(banan)
		      end),
    ?line Ref = erlang:monitor(process,Pid),
    ?line false = lists:member("echo_drv",element(2,erl_ddll:loaded_drivers())),
    Pid ! go,
    ?line receive
	gone -> ok
    end,
    ?line true = lists:member("echo_drv",element(2,erl_ddll:loaded_drivers())),
    Pid ! go,
    ?line receive
	{'DOWN', Ref, process, Pid, banan} ->
	    ok
    end,
    receive after 500 -> ok end,
    ?line false = lists:member("echo_drv",element(2,erl_ddll:loaded_drivers())),
    ok.

delayed_unload_with_ports(suite) ->
    [];
delayed_unload_with_ports(doc) ->
    ["Check that the driver is unloaded when the last port is closed"];
delayed_unload_with_ports(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line erl_ddll:try_load(Path, echo_drv, []),
    ?line erl_ddll:try_load(Path, echo_drv, []),
    ?line Port = open_port({spawn, echo_drv}, [eof]),
    ?line 1 = erl_ddll:info(echo_drv, port_count),
    ?line Port2 = open_port({spawn, echo_drv}, [eof]),
    ?line 2 = erl_ddll:info(echo_drv, port_count),
    ?line {ok,pending_process} = erl_ddll:try_unload(echo_drv,[{monitor, pending_driver}]),
    ?line {ok,pending_driver,Ref} = erl_ddll:try_unload(echo_drv,[{monitor, pending_driver}]),
    ?line ok = receive _ -> false after 0 -> ok end,
    ?line Port ! {self(), close},
    ?line ok = receive {Port,closed} -> ok after 1000 -> false end,
    ?line 1 = erl_ddll:info(echo_drv, port_count),
    ?line Port2 ! {self(), close},
    ?line ok = receive {Port2,closed} -> ok after 1000 -> false end,
    ?line ok = receive {'DOWN', Ref, driver, echo_drv, unloaded} -> ok after 1000 -> false end,
    ok.

unload_due_to_process_exit(suite) ->
    [];
unload_due_to_process_exit(doc) ->
    ["Check that the driver with ports is unloaded on process exit"];
unload_due_to_process_exit(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line Parent = self(),
    ?line F3 = fun() -> 
		       Parent ! erl_ddll:monitor(driver,{echo_drv,unloaded}), 
		       receive X -> Parent ! {got,X} end 
	       end,
    ?line Pid = spawn(fun() ->
			      receive go -> ok end,
			      {ok, loaded} = erl_ddll:try_load(Path, echo_drv, []),
			      spawn(F3),
			      receive go -> ok end,
			      _Port = open_port({spawn, echo_drv}, [eof]),
			      _Port2 = open_port({spawn, echo_drv}, [eof]),
			      exit(banan)
		      end),
    ?line Ref = erlang:monitor(process,Pid),
    Pid ! go,
    ?line {ok,Ref2} = receive 
			  R when is_reference(R) -> {ok,R}; 
			  Other -> {error, Other} 
		      after 500 -> {error, timeout} 
		      end,
    Pid ! go,
    ?line ok = receive {'DOWN', Ref, process, Pid, banan} -> ok after 300 -> error end,
    ?line ok = receive {got,{'DOWN', Ref2, driver, echo_drv, unloaded}} -> ok after 300 -> error end,
    ok.

no_unload_due_to_process_exit(suite) ->
    [];
no_unload_due_to_process_exit(doc) ->
    ["Check that a driver with driver loaded in another process is not unloaded on process exit"];
no_unload_due_to_process_exit(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line Parent = self(),
    ?line F3 = fun() -> 
		       Parent ! erl_ddll:monitor(driver,{echo_drv,unloaded}), 
		       receive X -> Parent ! {got,X} end 
	       end,
    ?line Pid = spawn(fun() ->
			      receive go -> ok end,
			      {ok, loaded} = erl_ddll:try_load(Path, echo_drv, []),
			      spawn(F3),
			      receive go -> ok end,
			      _Port = open_port({spawn, echo_drv}, [eof]),
			      _Port2 = open_port({spawn, echo_drv}, [eof]),
			      exit(banan)
		      end),
    ?line Ref = erlang:monitor(process,Pid),
    Pid ! go,
    ?line {ok,Ref2} = receive 
			  R when is_reference(R) -> {ok,R}; 
			  Other -> {error, Other} 
		      after 500 -> {error, timeout} 
		      end,
    ?line {ok, already_loaded} = erl_ddll:try_load(Path, echo_drv, []),
    Pid ! go,
    ?line ok = receive {'DOWN', Ref, process, Pid, banan} -> ok after 300 -> error end,
    ?line ok = receive X -> {error, X} after 300 -> ok end,
    ?line ok = unload_expect_fast(echo_drv,[]),
    ?line ok = receive {got,{'DOWN', Ref2, driver, echo_drv, unloaded}} -> ok after 300 -> error end,
    ok.

no_unload_due_to_process_exit_2(suite) ->
    [];
no_unload_due_to_process_exit_2(doc) ->
    ["Check that a driver with open ports in another process is not unloaded on process exit"];
no_unload_due_to_process_exit_2(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line Parent = self(),
    ?line F3 = fun() -> 
		       Parent ! erl_ddll:monitor(driver,{echo_drv,unloaded}), 
		       receive X -> Parent ! {got,X} end 
	       end,
    ?line Pid = spawn(fun() ->
			      receive go -> ok end,
			      {ok, loaded} = erl_ddll:try_load(Path, echo_drv, []),
			      spawn(F3),
			      receive go -> ok end,
			      _Port = open_port({spawn, echo_drv}, [eof]),
			      _Port2 = open_port({spawn, echo_drv}, [eof]),
			      exit(banan)
		      end),
    ?line Ref = erlang:monitor(process,Pid),
    Pid ! go,
    ?line {ok,Ref2} = receive 
			  R when is_reference(R) -> {ok,R}; 
			  Other -> {error, Other} 
		      after 500 -> {error, timeout} 
		      end,
    ?line Port = open_port({spawn, echo_drv}, [eof]),
    Pid ! go,
    ?line ok = receive {'DOWN', Ref, process, Pid, banan} -> ok after 300 -> error end,
    ?line ok = receive X -> {error, X} after 300 -> ok end,
    ?line erlang:port_close(Port),
    ?line ok = receive {got,{'DOWN', Ref2, driver, echo_drv, unloaded}} -> ok after 300 -> error end,
    ok.

unload_reload_thingie(suite) ->
    [];
unload_reload_thingie(doc) ->
    ["Check delayed unload and reload"];
unload_reload_thingie(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line Parent = self(),
    ?line {ok, loaded} = erl_ddll:try_load(Path, echo_drv, []),
    ?line F3 = fun() -> 
		       Parent ! erl_ddll:monitor(driver,{echo_drv,unloaded_only}), 
		       receive X -> Parent ! {got,X} end 
	       end,
    ?line Pid = spawn(fun() ->
			      receive go -> ok end,
			      _Port = open_port({spawn, echo_drv}, [eof]),
			      spawn(F3),
			      receive go -> ok end,
			      exit(banan)
		      end),
    ?line Ref = erlang:monitor(process,Pid),
    Pid ! go,
    ?line {ok,Ref2} = receive 
			  R when is_reference(R) -> {ok,R}; 
			  Other -> {error, Other} 
		      after 500 -> {error, timeout} 
		      end,
    ?line {ok,pending_driver,Ref3} = erl_ddll:try_unload(echo_drv,[{monitor,pending}]),
    ?line Ref4 = erl_ddll:monitor(driver,{echo_drv,loaded}),
    ?line ok = receive {'DOWN',Ref4, driver,echo_drv,load_cancelled} -> ok after 1000 -> false end,
    ?line {ok,already_loaded} = erl_ddll:try_load(Path, echo_drv, []),
    ?line ok = receive {'UP',Ref3, driver,echo_drv,unload_cancelled} -> ok after 1000 -> false end,
    ?line Pid ! go,
    ?line ok = receive {'DOWN', Ref, process, Pid, banan} -> ok after 300 -> error end,
    ?line [{Parent,1}] = erl_ddll:info(echo_drv, processes),
    ?line 0 = erl_ddll:info(echo_drv, port_count),
    ?line ok = unload_expect_fast(echo_drv,[{monitor,pending}]),
    ?line ok = receive 
		   {got,{'DOWN', Ref2, driver, echo_drv, unloaded}} -> ok 
	       after 300 -> error 
	       end,
    ?line ok = receive X -> {error, X} after 300 -> ok end,
    ok.

unload_reload_thingie_2(suite) ->
    [];
unload_reload_thingie_2(doc) ->
    ["Check delayed unload and reload"];
unload_reload_thingie_2(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line Parent = self(),
    ?line {ok, loaded} = erl_ddll:try_load(Path, echo_drv, []),
    ?line F3 = fun() -> 
		       Parent ! erl_ddll:monitor(driver,{echo_drv,unloaded_only}), 
		       receive X -> Parent ! {got,X} end 
	       end,
    ?line Pid = spawn(fun() ->
			      receive go -> ok end,
			      _Port = open_port({spawn, echo_drv}, [eof]),
			      spawn(F3),
			      receive go -> ok end,
			      exit(banan)
		      end),
    ?line Ref = erlang:monitor(process,Pid),
    Pid ! go,
    ?line {ok,Ref2} = receive 
			  R when is_reference(R) -> {ok,R}; 
			  Other -> {error, Other} 
		      after 500 -> {error, timeout} 
		      end,
    ?line {ok,pending_driver,Ref3} = erl_ddll:try_load(Path,echo_drv,[{monitor,pending_driver},{reload,pending_driver}]),
    ?line Ref4 = erl_ddll:monitor(driver,{echo_drv,unloaded}),
    ?line Pid ! go,
    ?line ok = receive {'DOWN', Ref, process, Pid, banan} -> ok after 300 -> error end,
    ?line ok = receive {'DOWN',Ref4, driver,echo_drv,unloaded} -> ok after 1000 -> false end,
    ?line ok = receive {'UP',Ref3, driver,echo_drv,loaded} -> ok after 1000 -> false end,
    ?line [{Parent,1}] = erl_ddll:info(echo_drv, processes),
    ?line 0 = erl_ddll:info(echo_drv, port_count),
    ?line ok = receive 
		   {got,{'DOWN', Ref2, driver, echo_drv, unloaded}} -> ok 
	       after 300 -> error 
	       end,
    ?line ok = unload_expect_fast(echo_drv,[{monitor,pending}]),
    ?line ok = receive X -> {error, X} after 300 -> ok end,
    ok.

unload_reload_thingie_3(suite) ->
    [];
unload_reload_thingie_3(doc) ->
    ["Check delayed unload and reload failure"];
unload_reload_thingie_3(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line Parent = self(),
    ?line {ok, loaded} = erl_ddll:try_load(Path, echo_drv, []),
    ?line F3 = fun() -> 
		       Parent ! erl_ddll:monitor(driver,{echo_drv,unloaded}), 
		       receive X -> Parent ! {got,X} end 
	       end,
    ?line Pid = spawn(fun() ->
			      receive go -> ok end,
			      _Port = open_port({spawn, echo_drv}, [eof]),
			      spawn(F3),
			      receive go -> ok end,
			      exit(banan)
		      end),
    ?line Ref = erlang:monitor(process,Pid),
    Pid ! go,
    ?line {ok,Ref2} = receive 
			  R when is_reference(R) -> {ok,R}; 
			  Other -> {error, Other} 
		      after 500 -> {error, timeout} 
		      end,
    ?line {ok,pending_driver,Ref3} = erl_ddll:try_load(filename:join([Path,"skrumpf"]),echo_drv,[{monitor,pending_driver},{reload,pending_driver}]),
    ?line Ref4 = erl_ddll:monitor(driver,{echo_drv,unloaded}),
    ?line Pid ! go,
    ?line ok = receive {'DOWN', Ref, process, Pid, banan} -> ok after 300 -> error end,
    ?line ok = receive 
		   {got,{'DOWN', Ref2, driver, echo_drv, unloaded}} -> ok 
	       after 300 -> error 
	       end,
    ?line ok = receive {'DOWN',Ref4,driver,echo_drv,unloaded} -> ok after 300 -> false end,
    ?line ok = receive 
		   {'DOWN',Ref3, driver,echo_drv,{load_failure,_}} -> ok 
	       after 1000 -> false 
	       end,
    ?line {'EXIT',_} = (catch erl_ddll:info(echo_drv, port_count)),
    ?line {error, not_loaded} = erl_ddll:try_unload(echo_drv,[{monitor,pending}]),
    ?line ok = receive X -> {error, X} after 300 -> ok end,
    ok.

reload_pending(suite) -> [];
reload_pending(doc) -> ["Reload a driver that is pending on a user"];
reload_pending(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line Parent = self(),
    ?line F3 = fun() -> 
		       Parent ! erl_ddll:monitor(driver,{echo_drv,unloaded}), 
		       receive X -> Parent ! {got,X} end 
	       end,
    ?line Pid = spawn(fun() ->
			      receive go -> ok end,
			      {ok, loaded} = erl_ddll:try_load(Path, echo_drv, []),
			      spawn(F3),
			      receive go -> ok end,
			      _Port = open_port({spawn, echo_drv}, [eof]),
			      _Port2 = open_port({spawn, echo_drv}, [eof]),
			      Parent ! opened,
			      receive go -> ok end,
			      exit(banan)
		      end),
    ?line Ref = erlang:monitor(process,Pid),
    Pid ! go,
    ?line {ok,Ref2} = receive 
			  R when is_reference(R) -> {ok,R}; 
			  Other -> {error, Other} 
		      after 500 -> {error, timeout} 
		      end,
    ?line {ok, already_loaded} = erl_ddll:try_load(Path, echo_drv, []),
    ?line Port = open_port({spawn, echo_drv}, [eof]),
    Pid ! go,
    ?line receive opened -> ok end,
    ?line {error, pending_process} = 
	erl_ddll:try_load(Path, echo_drv,
			  [{reload,pending_driver},
			   {monitor,pending_driver}]),
    ?line {ok, pending_process, Ref3} = 
	erl_ddll:try_load(Path, echo_drv,
			  [{reload,pending},
			   {monitor,pending}]),
    ?line ok = receive X -> {error, X} after 300 -> ok end,
    Pid ! go,
    ?line ok = receive {'DOWN', Ref, process, Pid, banan} -> ok after 300 -> error end,
    ?line ok = receive Y -> {error, Y} after 300 -> ok end,
    ?line erlang:port_close(Port),
    ?line ok = receive {got,{'DOWN', Ref2, driver, echo_drv, unloaded}} -> ok after 300 -> error end,
    ?line ok = receive {'UP', Ref3, driver, echo_drv, loaded} -> ok after 300 -> error end,
    [{Parent,1}] = erl_ddll:info(echo_drv,processes),
    ?line ok = receive Z -> {error, Z} after 300 -> ok end,
    ok.

load_fail_init(suite) -> [];
load_fail_init(doc) -> ["Tests failure in the init in driver struct."];
load_fail_init(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line PathFailing = proplists:get_value(priv_dir, Config),
    ?line [_|_] = AllFailInits = filelib:wildcard("echo_drv_fail_init.*",Path),
    ?line lists:foreach(fun(Name) ->
				Src = filename:join([Path,Name]),
				Ext = filename:extension(Name),
				Dst =filename:join([PathFailing,"echo_drv"++Ext]),
				file:delete(Dst),
				{ok,_} = file:copy(Src,Dst)
			end,
			AllFailInits),
    ?line [_|_] = filelib:wildcard("echo_drv.*",PathFailing),
    ?line {error, driver_init_failed} = erl_ddll:try_load(PathFailing, 
							  echo_drv,
							  [{monitor,pending}]),
    ?line ok = receive XX ->
		       {unexpected,XX}
	       after 300 ->
		       ok
	       end,
    ok.


reload_pending_fail_init(suite) -> [];
reload_pending_fail_init(doc) -> ["Reload a driver that is pending but init fails"];
reload_pending_fail_init(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line PathFailing = proplists:get_value(priv_dir, Config),
    ?line [_|_] = AllFailInits = filelib:wildcard("echo_drv_fail_init.*",Path),
    ?line lists:foreach(fun(Name) ->
				Src = filename:join([Path,Name]),
				Ext = filename:extension(Name),
				Dst =filename:join([PathFailing,"echo_drv"++Ext]),
				file:delete(Dst),
				{ok,_} = file:copy(Src,Dst)
			end,
			AllFailInits),
    ?line [_|_] = filelib:wildcard("echo_drv.*",PathFailing),
    ?line Parent = self(),
    ?line F3 = fun() -> 
		       Parent ! erl_ddll:monitor(driver,{echo_drv,unloaded}), 
		       receive X -> Parent ! {got,X} end 
	       end,
    ?line Pid = spawn(fun() ->
			      receive go -> ok end,
			      {ok, loaded} = erl_ddll:try_load(Path, echo_drv, []),
			      spawn(F3),
			      receive go -> ok end,
			      _Port = open_port({spawn, echo_drv}, [eof]),
			      _Port2 = open_port({spawn, echo_drv}, [eof]),
			      Parent ! opened,
			      receive go -> ok end,
			      exit(banan)
		      end),
    ?line Ref = erlang:monitor(process,Pid),
    Pid ! go,
    ?line {ok,Ref2} = receive 
			  R when is_reference(R) -> {ok,R}; 
			  Other -> {error, Other} 
		      after 500 -> {error, timeout} 
		      end,
    ?line {ok, already_loaded} = erl_ddll:try_load(Path, echo_drv, []),
    ?line Port = open_port({spawn, echo_drv}, [eof]),
    Pid ! go,
    ?line receive opened -> ok end,
    ?line {ok, pending_process, Ref3} = 
	erl_ddll:try_load(PathFailing, echo_drv,
			  [{reload,pending},
			   {monitor,pending}]),
    ?line ok = receive X -> {error, X} after 300 -> ok end,
    Pid ! go,
    ?line ok = receive {'DOWN', Ref, process, Pid, banan} -> ok after 300 -> error end,
    ?line ok = receive Y -> {error, Y} after 300 -> ok end,
    ?line erlang:port_close(Port),
    ?line ok = receive {got,{'DOWN', Ref2, driver, echo_drv, unloaded}} -> ok after 300 -> error end,
    ?line ok = receive {'DOWN', Ref3, driver, echo_drv, {load_failure,driver_init_failed}} -> ok  after 300 -> error end,
    ?line {'EXIT',{badarg,_}} = (catch erl_ddll:info(echo_drv,processes)),

    ?line ok = receive Z -> {error, Z} after 300 -> ok end,
    ok.

reload_pending_kill(suite) -> [];
reload_pending_kill(doc) -> ["Reload a driver with kill_ports option "
			     "that is pending on a user"];
reload_pending_kill(Config) when is_list(Config) ->
    ?line OldFlag = process_flag(trap_exit,true),
    ?line Path = proplists:get_value(data_dir, Config),
    ?line Parent = self(),
    ?line F3 = fun() -> 
		       Parent ! erl_ddll:monitor(driver,{echo_drv,unloaded}), 
		       receive X -> Parent ! {got,X} end 
	       end,
    ?line Pid = spawn(fun() ->
			      process_flag(trap_exit,true),
			      receive go -> ok end,
			      {ok, loaded} = erl_ddll:try_load(Path, echo_drv, [{driver_options,[kill_ports]}]),
			      spawn(F3),
			      receive go -> ok end,
			      Port = open_port({spawn, echo_drv}, [eof]),
			      Port2 = open_port({spawn, echo_drv}, [eof]),
			      Parent ! opened,
			      receive go -> ok end,
			      receive 
				  {'EXIT', Port2, driver_unloaded} ->
				      Parent ! first_exit 
			      end,
			      receive 
				  {'EXIT', Port, driver_unloaded} ->
				      Parent ! second_exit 
			      end,
			      receive go -> ok end,
			      exit(banan)
		      end),
    ?line Ref = erlang:monitor(process,Pid),
    Pid ! go,
    ?line {ok,Ref2} = receive 
			  R when is_reference(R) -> {ok,R}; 
			  Other -> {error, Other} 
		      after 500 -> {error, timeout} 
		      end,
    ?line {ok, already_loaded} = erl_ddll:try_load(Path, echo_drv, [{driver_options,[kill_ports]}]),
    ?line {error,inconsistent} = erl_ddll:try_load(Path, echo_drv, []),
    ?line Port = open_port({spawn, echo_drv}, [eof]),
    Pid ! go,
    ?line receive opened -> ok end,
    ?line {error, pending_process} = 
	erl_ddll:try_load(Path, echo_drv,
			  [{driver_options,[kill_ports]},
			   {reload,pending_driver},
			   {monitor,pending_driver}]),
    ?line {ok, pending_process, Ref3} = 
	erl_ddll:try_load(Path, echo_drv,
			  [{driver_options,[kill_ports]},
			   {reload,pending},
			   {monitor,pending}]),
    ?line ok =  receive 
		    {'EXIT', Port, driver_unloaded} ->
			ok 
		after 300 -> error
		end,
    Pid ! go,
    ?line ok = receive {got,{'DOWN', Ref2, driver, echo_drv, unloaded}} -> ok after 300 -> error end,
    ?line ok = receive {'UP', Ref3, driver, echo_drv, loaded} -> ok after 300 -> error end,
    ?line [_,_] = erl_ddll:info(echo_drv,processes),
    ?line ok = receive first_exit -> ok after 300 -> error end,
    ?line ok = receive second_exit -> ok after 300 -> error end,
    ?line 0 = erl_ddll:info(echo_drv,port_count), 
    ?line ok = receive X -> {error, X} after 300 -> ok end,
    Pid ! go,
    ?line ok = receive {'DOWN', Ref, process, Pid, banan} -> ok after 300 -> error end,
    ?line ok = receive Y -> {error, Y} after 300 -> ok end,
    ?line Port2 = open_port({spawn, echo_drv}, [eof]),
    ?line true = is_port(Port2),
    [{Parent,1}] = erl_ddll:info(echo_drv,processes),
    ?line 1 = erl_ddll:info(echo_drv,port_count), 
    ?line erlang:port_close(Port2),
    ?line ok = receive {'EXIT', Port2, normal} -> ok after 300 -> error end,
    ?line 0 = erl_ddll:info(echo_drv,port_count), 
    ?line [{Parent,1}] = erl_ddll:info(echo_drv,processes),
    ?line Port3 = open_port({spawn, echo_drv}, [eof]),
    ?line {ok, pending_driver, Ref4} = 
	erl_ddll:try_unload(echo_drv,[{monitor,pending_driver}]),
    ?line ok =  receive 
		    {'EXIT', Port3, driver_unloaded} ->
			ok 
		after 300 -> error
		end,
    ?line ok = receive {'DOWN', Ref4, driver, echo_drv, unloaded} -> ok after 300 -> error end,
    io:format("Port = ~w, Port2 = ~w, Port3 = ~w~n",[Port,Port2,Port3]),
    ?line ok = receive Z -> {error, Z} after 300 -> ok end,
    ?line process_flag(trap_exit,OldFlag),
    ok.


more_error_codes(suite) ->
    [];
more_error_codes(doc) ->
    ["Some more error code checking"];
more_error_codes(Config) when is_list(Config) ->
    ?line {error,Err} = erl_ddll:try_load("./echo_dr",echo_dr,[]),
    ?line true = is_list(erl_ddll:format_error(Err)),
    ?line true = is_list(erl_ddll:format_error(not_loaded)),
    ok.

forced_port_killing(suite) ->
    [];
forced_port_killing(doc) ->
    ["Check kill_ports option to try_unload "];
forced_port_killing(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line OldFlag=process_flag(trap_exit,true),
    ?line Parent = self(),
    ?line F3 = fun() -> 
		       Parent ! erl_ddll:monitor(driver,{echo_drv,unloaded}), 
		       receive X -> Parent ! {got,X} end 
	       end,
    ?line {ok, loaded} = erl_ddll:try_load(Path, echo_drv, []),
    ?line spawn(F3),
    ?line {ok,Ref2} = receive 
			  R when is_reference(R) -> {ok,R}; 
			  Other -> {error, Other} 
		      after 500 -> {error, timeout} 
		      end,
    ?line Port = open_port({spawn, echo_drv}, [eof]),
    ?line Port2 = open_port({spawn, echo_drv}, [eof]),
    ?line {ok, pending_driver, Ref1} = 
	erl_ddll:try_unload(echo_drv,[{monitor,pending_driver},kill_ports]),
    ?line ok = receive 
		   {got,{'DOWN', Ref2, driver, echo_drv, unloaded}} -> ok 
	       after 300 -> error 
	       end,
    ?line ok = receive {'EXIT',Port,driver_unloaded} -> ok after 300 -> false end,
    ?line ok = receive {'EXIT',Port2,driver_unloaded} -> ok after 300 -> false end,
    ?line ok = receive {'DOWN',Ref1, driver, echo_drv, unloaded} -> ok after 300 -> false end,
    ?line process_flag(trap_exit,OldFlag),
    ?line ok = receive X -> {error, X} after 300 -> ok end,
    ok.

no_trap_exit_and_kill_ports(suite) ->
    [];
no_trap_exit_and_kill_ports(doc) ->
    ["Check delayed unload and reload with no trap_exit"];
no_trap_exit_and_kill_ports(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line Parent = self(),
    ?line OldFlag=process_flag(trap_exit,true),
    ?line F3 = fun() -> 
		       Parent ! erl_ddll:monitor(driver,{echo_drv,unloaded}), 
		       receive X -> Parent ! {got,X} end 
	       end,
    ?line Pid = spawn(fun() ->
			      process_flag(trap_exit,false),
			      receive go -> ok end,
			      {ok, loaded} = erl_ddll:try_load(Path, echo_drv, 
							       [{driver_options,[kill_ports]}]),
			      spawn(F3),
			      receive go -> ok end,
			      _Port = open_port({spawn, echo_drv}, [eof]),
			      _Port2 = open_port({spawn, echo_drv}, [eof]),
			      exit(banan)
		      end),
    ?line Ref = erlang:monitor(process,Pid),
    Pid ! go,
    ?line {ok,Ref2} = receive 
			  R when is_reference(R) -> {ok,R}; 
			  Other -> {error, Other} 
		      after 500 -> {error, timeout} 
		      end,
    ?line {error, inconsistent} = erl_ddll:try_load(Path, echo_drv, []),
    ?line MyPort = open_port({spawn, echo_drv}, [eof]),
    Pid ! go,
    ?line ok = receive {'DOWN', Ref, process, Pid, banan} -> ok after 300 -> error end,
    ?line ok = receive {got,{'DOWN', Ref2, driver, echo_drv, unloaded}} -> ok after 300 -> error end,
    ?line ok = receive {'EXIT',MyPort,driver_unloaded} -> ok after 300 -> error end,
    ?line process_flag(trap_exit,OldFlag),
    ok.

monitor_demonitor(suite) ->
    [];
monitor_demonitor(doc) ->
    ["Check monitor and demonitor of drivers"];
monitor_demonitor(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line erl_ddll:try_load(Path, echo_drv, []),
    ?line Ref = erl_ddll:monitor(driver,{echo_drv,unloaded}),
    ?line Self = self(),
    ?line [{Self,1}] = erl_ddll:info(echo_drv,awaiting_unload),
    ?line true = erl_ddll:demonitor(Ref),
    ?line [] = erl_ddll:info(echo_drv,awaiting_unload),
    ?line erl_ddll:try_unload(echo_drv,[]),
    ?line ok = receive _ -> error after 300 -> ok end,
    ok.

monitor_demonitor_load(suite) ->
    [];
monitor_demonitor_load(doc) ->
    ["Check monitor/demonitor of driver loading"];
monitor_demonitor_load(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line {ok,loaded} = erl_ddll:try_load(Path, echo_drv, []),
    ?line Port = open_port({spawn, echo_drv}, [eof]),
    ?line Ref = erl_ddll:monitor(driver,{echo_drv,loaded}),
    ?line ok = receive {'UP',Ref,driver,echo_drv,loaded} -> ok after 500 -> error end,
    ?line {ok, pending_driver} = erl_ddll:try_unload(echo_drv,[]),
    ?line Ref2 = erl_ddll:monitor(driver,{echo_drv,loaded}),
    ?line ok = receive {'DOWN',Ref2,driver,echo_drv,load_cancelled} -> ok after 0 -> error end,
    ?line {ok,already_loaded} = erl_ddll:try_load(Path, echo_drv, []),
    ?line {ok, pending_driver} = 
	erl_ddll:try_load(Path, echo_drv, [{reload,pending_driver}]),
    ?line Ref3 = erl_ddll:monitor(driver,{echo_drv,loaded}),
    ?line Ref4 = erl_ddll:monitor(driver,{echo_drv,unloaded}),
    ?line ok = receive _ -> error after 300 -> ok end,
    ?line Self = self(),
    ?line [{Self,1}] = erl_ddll:info(echo_drv,awaiting_load),
    ?line true = erl_ddll:demonitor(Ref3),
    ?line [] = erl_ddll:info(echo_drv,awaiting_load),
    ?line erlang:port_close(Port),
    ?line ok = receive {'DOWN',Ref4,driver,echo_drv,unloaded} -> ok after 300 -> error end,
    ?line ok = receive _ -> error after 300 -> ok end,
    ?line ok = unload_expect_fast(echo_drv,[]),
    ok.

new_interface(suite) ->
    [];
new_interface(doc) ->
    ["Test the new load/unload/reload interface"];
new_interface(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    % Typical scenario
    ?line ok = erl_ddll:load(Path, echo_drv),
    ?line Port = open_port({spawn, echo_drv}, [eof]),
    ?line ok = erl_ddll:unload(echo_drv),
    ?line Port ! {self(), {command, "text"}},
    ?line ok = receive 
		   {Port, {data, "text"}} -> ok;
		   _ -> error
	       after 
		   1000 -> error
	       end,
    ?line Ref = erl_ddll:monitor(driver,{echo_drv,unloaded}),
    ?line ok = receive X -> {error, X} after 300 -> ok end,
    ?line erlang:port_close(Port),
    ?line ok = receive {'DOWN', Ref, driver, echo_drv, unloaded} -> ok after 300 -> error end,
    % More than one user
    ?line ok = erl_ddll:load(Path, echo_drv),
    ?line Ref2 = erl_ddll:monitor(driver,{echo_drv,unloaded}),
    ?line ok = erl_ddll:load(Path, echo_drv),
    ?line ok = erl_ddll:load(Path, echo_drv),
    ?line Port2 = open_port({spawn, echo_drv}, [eof]),
    ?line ok = erl_ddll:unload(echo_drv),
    ?line Port2 ! {self(), {command, "text"}},
    ?line ok = receive 
		   {Port2, {data, "text"}} -> ok;
		   _ -> error
	       after 
		   1000 -> error
	       end,
    ?line ok = erl_ddll:unload(echo_drv),
    ?line Port2 ! {self(), {command, "text"}},
    ?line ok = receive 
		   {Port2, {data, "text"}} -> ok;
		   _ -> error
	       after 
		   1000 -> error
	       end,
    ?line ok = erl_ddll:unload(echo_drv),
    ?line Port2 ! {self(), {command, "text"}},
    ?line ok = receive 
		   {Port2, {data, "text"}} -> ok;
		   _ -> error
	       after 
		   1000 -> error
	       end,
    ?line ok = receive X2 -> {error, X2} after 300 -> ok end,
    ?line ok = erl_ddll:load(Path, echo_drv),
    ?line ok = receive {'UP', Ref2, driver, echo_drv, unload_cancelled} -> ok after 300 -> error end,
    ?line Ref3 = erl_ddll:monitor(driver,{echo_drv,unloaded_only}),
    ?line erlang:port_close(Port2),
    ?line ok = receive X3 -> {error, X3} after 300 -> ok end,
    ?line ok = erl_ddll:unload(echo_drv),
    ?line ok = receive {'DOWN', Ref3, driver, echo_drv, unloaded} -> ok after 300 -> error end,
    ok.
    
    


ddll_test(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),

    %?line {error,{already_started,ErlDdllPid}} = erl_ddll:start(),
    %?line ErlDdllPid = whereis(ddll_server),

    %% Load the echo driver and verify that it was loaded.
    {ok,L1,L2}=load_echo_driver(Path),

    %% Verify that the driver works.

     ?line Port = open_port({spawn, echo_drv}, [eof]),
     ?line {hej, "hopp",4711,123445567436543653} = 
 	erlang:port_call(Port,{hej, "hopp",4711,123445567436543653}),
     ?line {hej, "hopp",4711,123445567436543653} = 
 	erlang:port_call(Port,47,{hej, "hopp",4711,123445567436543653}),
     ?line Port ! {self(), {command, "text"}},
     ?line 1 = receive 
 		  {Port, {data, "text"}} -> 1;
 		  _Other -> 2
 	      after 
 		  1000 -> 2
 	      end,
     ?line Port ! {self(), close},
     ?line receive {Port, closed} -> ok end,

%%     %% Unload the driver and verify that it was unloaded.
     ok = unload_echo_driver(L1,L2),

%%     %?line {error, {already_started, _}} = erl_ddll:start(),
    ok.

%% Tests errors having to do with bad drivers.

errors(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),

    ?line {ok, L1} = erl_ddll:loaded_drivers(),

    ?line {error, {open_error, _}} = erl_ddll:load_driver(Path, bad_name),
    ?line {error, driver_init_failed} = erl_ddll:load_driver(Path, initfail_drv),
    ?line {error, bad_driver_name} = erl_ddll:load_driver(Path, wrongname_drv),

    %% We assume that there is a statically linked driver named "ddll":
    ?line {error, linked_in_driver} = erl_ddll:unload_driver(efile),
    ?line {error, not_loaded} = erl_ddll:unload_driver("__pucko_driver__"),
	
    case os:type() of
	{unix, _} ->
	    ?line {error, no_driver_init} =
		erl_ddll:load_driver(Path, noinit_drv);
	_ ->
	    ok
    end,

    ?line {ok, L1} = erl_ddll:loaded_drivers(),
    ok.

reference_count(doc) ->
    ["Check that drivers are unloaded when their reference count ",
     "reaches zero, and that they cannot be unloaded while ",
     "they are still referenced."];
reference_count(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),

    %% Spawn a process that loads the driver (and holds a reference
    %% to it).
    Pid1=spawn_link(?MODULE, echo_loader, [Path, self()]),
    receive
	{Pid1, echo_loaded} -> ok
    after 2000 -> ct:fail("echo_loader failed to start.")
    end,

    Pid1 ! {self(), die},
    ?line test_server:sleep(200),   % Give time to unload.
    % Verify that the driver was automaticly unloaded when the
    % process died.
    ?line {error, not_loaded}=erl_ddll:unload_driver(echo_drv),
    ok.

% Loads the echo driver, send msg to started, sits and waits to
% get a signal to die, then unloads the driver and terminates.
echo_loader(Path, Starter) ->
    ?line {ok, L1, L2}=load_echo_driver(Path),
    ?line Starter ! {self(), echo_loaded},
    receive
	{Starter, die} ->
	    ?line unload_echo_driver(L1,L2)
    end.

% Loads the echo driver, send msg to started, sits and waits to
% get a signal to die, then unloads the driver and terminates.
nice_echo_loader(Path, Starter) ->
    ?line {ok, L1, L2}=load_nice_echo_driver(Path),
    ?line Starter ! {self(), echo_loaded},
    receive
	{Starter, die} ->
	    ?line unload_echo_driver(L1,L2)
    end.


kill_port(doc) ->
    ["Test that a port that uses a driver is killed when the ",
     "process that loaded the driver dies."];
kill_port(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),

    %% Spawn a process that loads the driver (and holds a reference
    %% to it).
    ?line Pid1=spawn(?MODULE, echo_loader, [Path, self()]),
    ?line receive
	      {Pid1, echo_loaded} ->
		  ok
	  after 3000 ->
		  ?line exit(Pid1, kill),
		  ?line ct:fail("echo_loader failed to start.")
	  end,

    % Spawn off a port that uses the driver.
    ?line Port = open_port({spawn, echo_drv}, [eof]),

    % Kill the process / unload the driver.
    ?line process_flag(trap_exit, true),
    ?line exit(Pid1, kill),
    ?line test_server:sleep(200),    % Give some time to unload.
    ?line {error, not_loaded} = erl_ddll:unload_driver(echo_drv),

    % See if the port is killed.
    receive
	{'EXIT', Port, Reason} ->
	    io:format("Port exited with reason ~w", [Reason])
    after 5000 ->
	    ?line ct:fail("Echo port did not terminate.")
    end,
    ok.

dont_kill_port(doc) ->
    ["Test that a port that uses a driver is not killed when the ",
     "process that loaded the driver dies and it's nicely opened."];
dont_kill_port(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),

    %% Spawn a process that loads the driver (and holds a reference
    %% to it).
    ?line Pid1=spawn(?MODULE, nice_echo_loader, [Path, self()]),
    ?line receive
	      {Pid1, echo_loaded} ->
		  ok
	  after 3000 ->
		  ?line exit(Pid1, kill),
		  ?line ct:fail("echo_loader failed to start.")
	  end,

    % Spawn off a port that uses the driver.
    ?line Port = open_port({spawn, echo_drv}, [eof]),

    % Kill the process / unload the driver.
    ?line process_flag(trap_exit, true),
    ?line exit(Pid1, kill),
    ?line test_server:sleep(200),    % Give some time to unload.
    ?line {hej, "hopp",4711,123445567436543653} = 
	erlang:port_call(Port,{hej, "hopp",4711,123445567436543653}),
    ?line [] = erl_ddll:info(echo_drv,processes),
    %% unload should work with no owner
    ?line ok = erl_ddll:unload_driver(echo_drv), %Kill ports while at it

    % See if the port is killed.
    receive
	{'EXIT', Port, Reason} ->
	    io:format("Port exited with reason ~w", [Reason])
    after 5000 ->
	    ?line ct:fail("Echo port did not terminate.")
    end,
    ok.

properties(doc) -> ["Test that a process that loaded a driver ",
		    "is the only process that can unload it."];
properties(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),

    % Let another process load the echo driver.
    Pid=spawn_link(?MODULE, echo_loader, [Path, self()]),
    receive
	{Pid, echo_loaded} -> ok
    after 2000 -> ct:fail("echo_loader failed to start.")
    end,

    % Try to unload the driver from this process (the wrong one).
    ?line {error, _} = erl_ddll:unload_driver(echo_drv),
    ?line {ok, Drivers} = erl_ddll:loaded_drivers(),
    ?line case lists:member("echo_drv", Drivers) of
	      true ->
		  ok;
	      false ->
		  ct:fail("Unload from wrong process succeeded.")
	  end,

    % Unload the driver and terminate dummy process.
    ?line Pid ! {self(), die},
    ?line test_server:sleep(200),   % Give time to unload.
    ok.

load_and_unload(doc) -> ["Load two drivers and unload them in load order."];
load_and_unload(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line {ok, Loaded_drivers1} = erl_ddll:loaded_drivers(),
    ?line ok = erl_ddll:load_driver(Path, echo_drv),
    ?line ok = erl_ddll:load_driver(Path, dummy_drv),
    ?line ok = erl_ddll:unload_driver(echo_drv),
    ?line ok = erl_ddll:unload_driver(dummy_drv),
    ?line {ok, Loaded_drivers2} = erl_ddll:loaded_drivers(),
    ?line Set1 = ordsets:from_list(Loaded_drivers1),
    ?line Set2 = ordsets:from_list(Loaded_drivers2),
    ?line io:format("~p == ~p\n", [Loaded_drivers1, Loaded_drivers2]),
    ?line [] = ordsets:to_list(ordsets:subtract(Set2, Set1)),
    ok.    

lock_driver(suite) ->
    [];
lock_driver(doc) ->
    ["Check multiple calls to driver_lock_driver"];
lock_driver(Config) when is_list(Config) ->
    ?line Path = proplists:get_value(data_dir, Config),
    ?line {ok, _} = erl_ddll:try_load(Path, lock_drv, []),
    ?line Port1 = open_port({spawn, lock_drv}, [eof]),
    ?line Port2 = open_port({spawn, lock_drv}, [eof]),
    ?line true = erl_ddll:info(lock_drv,permanent),
    ?line erlang:port_close(Port1),
    ?line erlang:port_close(Port2),
    ok.
    

% Load and unload the echo_drv driver.
% Make sure that the driver doesn't exist before we load it,
% and that it exists before we unload it.
load_echo_driver(Path) ->
    ?line {ok, L1} = erl_ddll:loaded_drivers(),
    ?line ok = erl_ddll:load_driver(Path, echo_drv),
    ?line {ok, L2} = erl_ddll:loaded_drivers(),
    ?line ["echo_drv"] = ordsets:to_list(subtract(ordsets:from_list(L2), 
						  ordsets:from_list(L1))),
    {ok,L1,L2}.

load_nice_echo_driver(Path) ->
    ?line {ok, L1} = erl_ddll:loaded_drivers(),
    ?line ok = erl_ddll:load(Path, echo_drv),
    ?line {ok, L2} = erl_ddll:loaded_drivers(),
    ?line ["echo_drv"] = ordsets:to_list(subtract(ordsets:from_list(L2), 
						  ordsets:from_list(L1))),
    {ok,L1,L2}.

unload_echo_driver(L1,L2) ->
    ?line {ok, L2} = erl_ddll:loaded_drivers(),
    ?line ok = erl_ddll:unload_driver(echo_drv),
    ?line {ok, L3} = erl_ddll:loaded_drivers(),
    ?line [] = ordsets:to_list(subtract(ordsets:from_list(L3),
					ordsets:from_list(L1))),
    ok.

unload_expect_fast(Driver,XFlags) ->
    {ok, pending_driver, Ref} = 
	erl_ddll:try_unload(Driver,
			    [{monitor,pending_driver}]++XFlags),
    receive
	{'DOWN', Ref, driver, Driver, unloaded} ->
	    case lists:member(atom_to_list(Driver),element(2,erl_ddll:loaded_drivers())) of
		true ->
		    {error, {still_there, Driver}};
		false ->
		    ok
	    end
    after 1000 ->
	    {error,{unable_to_unload, Driver}}
    end.