anchor.diff:  
   test_start_stop_device( Pid ) ->
   	DeviceCount = 2,
  -	StartResults = [ start_device( Pid, test_driver_config( ) ) ||
  +	StartResults = [ start_device( Pid, dummy_driver_config( ) ) ||
   					_N <- lists:seq( 1, DeviceCount ) ],
   	StopResults = [ stop_device( Pid, element( 2, StartResult ) ) ||
   					StartResult <- StartResults ],
  
positive.code: 	{ reply, { ok, DeviceList }, State };
  
  
  handle_call( stop, _From, State ) ->
  	{ stop, shutdown, ok, State }.
  
  
negative.code: 	stop( Pid ).
  
  
  test_poll_device_event( Pid ) ->
  	{ ok, DeviceId } = start_device( Pid, dummy_driver_config( ) ),
  	InvalidDeviceId = make_ref(),
  	InvalidEvent = non_existing_event,
  	Res1 = poll_device_event( Pid, DeviceId, ?EVENT_NAME ),
  	Res2 = poll_device_event( Pid, InvalidDeviceId, ?EVENT_NAME ),
  	Res3 = poll_device_event( Pid, DeviceId, InvalidEvent ),
  	[ ?_assertEqual( { ok, <<"dummy">> }, Res1 )
  	, ?_assertEqual( { error, no_such_device }, Res2 )
  	, ?_assertEqual( { error, no_such_event }, Res3 )
  	].
  
  
  
  dummy_driver_config( ) ->
  	[ { driver, ?DRIVER_NAME }
  	, { parameters, [] }
  	, { events, [ ?EVENT_NAME ] }
  	].
  
  -endif. % TEST
  