anchor.diff:  	, [ ?_assertEqual( <<"dummy">>, Driver ) || Driver <- GetDeviceFields( driver, Result ) ]
   	].
   
  +test_driver_config( ) ->
  +	[ { driver, <<"dummy">> }
  +	, { parameters, [] }
  +	].
  +
   
   -endif. % TEST
  
positive.code: 	{ ok, State }.
  
  
  handle_call( { start_device, Driver, Parameters }, _From, State ) ->
  	case do_start_device( Driver, Parameters ) of
  		{ ok, Device } ->
  				Devices = orddict:store( Device#device.id, Device, State#state.devices ),
  				NewState = State#state{ devices = Devices },
  
negative.code: 
  test_start_stop_device( Server ) ->
  	DeviceCount = 2,
  	StartResults = [ start_device( Server, test_driver_config() ) ||
  					_N <- lists:seq( 1, DeviceCount ) ],
  	StopResults = [ stop_device( Server, element( 2, StartResult ) ) ||
  					StartResult <- StartResults ],
  