anchor.diff:  	, ?setup( fun test_add_list_devices/1 ) }.
   
   
  +device_poll_event_test_( ) ->
  +	{ "Poll can be made only for events defined in the configuration"
  +	, ?setup( fun test_poll_device_event/1 ) }.
  +
  +
   % Actual tests
   test_is_alive( Pid ) ->
   	[ ?_assert( erlang:is_process_alive( Pid ) ) ].
  
positive.code: 	stop( Pid ).
  
  
  test_driver_config( ) ->
  	[ { driver, <<"dummy">> }
  	, { parameters, [] }
  	].
  
  -endif. % TEST
  
negative.code: test_add_list_devices( Pid ) ->
  	DeviceCount = 2,
  	StartDeviceOk = fun( ) ->
  		{ ok, DeviceId } = start_device( Pid, dummy_driver_config() ),
  		DeviceId
  	end,
  	DeviceIds = [ StartDeviceOk( ) || _N <- lists:seq( 1, DeviceCount ) ],
  