anchor.diff:      [ { "device count", ?_assertEqual( DeviceCount, length( Result ) ) }
       , [ { "device id", ?_assert( lists:member( DeviceId, DeviceIds ) ) }
           || DeviceId <- GetDeviceFields( id, Result ) ]
  -    , [ { "driver name", ?_assertEqual( ?DRIVER_NAME, Driver ) } || Driver <- GetDeviceFields( driver, Result ) ]
  +    , [ { "driver name", ?_assertEqual( ?DRIVER_NAME, Driver ) }
  +        || Driver <- GetDeviceFields( driver, Result ) ]
  +    , [ { "parameters", ?_assertEqual( ?PARAMETERS, Driver ) }
  +        || Driver <- GetDeviceFields( parameters, Result ) ]
  +    , [ { "events", ?_assertEqual( ?EVENTS, Driver ) }
  +        || Driver <- GetDeviceFields( events, Result ) ]
       ].
   
   
  
positive.code:          { setup, fun setup_meck/0, fun setup_meck_stop/1, fun F/1 } ).
  
  -define( DRIVER_NAME, <<"dummy">> ).
  
  -define( EVENT_NAME, <<"event_one">> ).
  
  % Test descriptions
  server_test_() ->
  
negative.code: % Helper functions
  dummy_driver_config() ->
      [ { driver, ?DRIVER_NAME }
      , { parameters, ?PARAMETERS }
      , { events, ?EVENTS }
      ].
  
  -endif. % TEST
  