anchor.diff:           { setup, fun setup_meck/0, fun setup_meck_stop/1, fun F/1 } ).
   
   -define( DRIVER_NAME, <<"dummy">> ).
  -
   -define( EVENT_NAME, <<"event_one">> ).
  +-define( EVENTS, [ ?EVENT_NAME ] ).
  +-define( PARAMETERS, [] ).
   
   % Test descriptions
   server_test_() ->
  
positive.code:     [ { "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 ) ]
      ].
  
  
  
negative.code: % Helper functions
  dummy_driver_config() ->
      [ { driver, ?DRIVER_NAME }
      , { parameters, ?PARAMETERS }
      , { events, ?EVENTS }
      ].
  
  -endif. % TEST
  