anchor.diff:  convert(Value, int)  ->
       list_to_integer(Value).
   
  -
  +run_fun(Fun, Name, Args) when is_function(Fun) and is_list(Args) ->
  +    lager:info("1.... : ~p", [Args]),
  +    Fun(Name, Args);  
   run_fun(Fun, Name, Args) when is_function(Fun) ->
  +    lager:info("2.... : ~p", [Args]),
       Fun(Name, [Args]).      
   
   get_fun(Funs, {Node, Driver, Id} = Msg) ->  
  
positive.code:     sensor:send_message(Message).
  
  test_schimmel() ->
      Message=sensor:create_message('node@localhost', 'testmodule', sensor:get_id([]), {save, "schimmel", {<<"horst@raspberrypi">>,<<"dht22_driver">>,<<"default">>}, "fun(Name, [{temp, Temp}, {hum, Hum}]) -> lager:info(\"got message with temp : ~p and hum : ~p\", [Temp, Hum]) end.", "Schimmel App"}),
      sensor:send_message(Message).
  
  test_schimmel_data() ->
  
negative.code: %%    lists:keyreplace(driver, 1, Config, {driver, {?MODULE, handle_msg}, Module_config_1}).
      Config;
  
  handle_msg([Node ,Driver, Id, Time, Body] = Msg, Config, Module_config) ->
      handle_msg([Node ,Driver, Id, Time, {run, {Node, Driver, Id, Time, Body}}], Config, Module_config);
  
  handle_msg(Msg, Config, Module_config) ->
      lager:warning("~p got an unkown message : ~p", [?MODULE, Msg]),  
      Config.
  
  