anchor.diff:  -export(
   	[ start/0, start_link/0, stop/1
   	, start_device/2, stop_device/2, list_devices/1
  +	, poll_device_event/3
   	] ).
   
   % gen_server callbacks
  
positive.code: -include_lib( "eunit/include/eunit.hrl" ).
  
  -define( setup( F ), { setup, fun test_start/0, fun test_stop/1, F } ).
  
  % Test descriptions
  server_test_( ) ->
  
negative.code: 	end,
  	[ ?_assertEqual( DeviceCount, length( Result ) )
  	, [ ?_assert( lists:member( Id, DeviceIds ) ) || Id <- GetDeviceFields( id, Result ) ]
  	, [ ?_assertEqual( ?DRIVER_NAME, Driver ) || Driver <- GetDeviceFields( driver, Result ) ]
  	].
  
  
  