anchor.diff:  -export([get_object/3,
   	 wait_ready/1,
   	 add_match/2,
  -	 export_service/3
  +	 export_service/2,
  +	 unexport_service/2
   	]).
   
   %% gen_server callbacks
  
positive.code:     HelloMethod = #method{name='Hello', args=[], result=#arg{direction=out, type="s"}, in_sig="", in_types=[]},
      AddMatch = #method{name='AddMatch', args=[#arg{direction=in, type="s"}], in_sig="s", in_types=[string]},
      RequestName = #method{name='RequestName', args=[#arg{direction=in, type="s"}, #arg{direction=in, type="u"}, #arg{direction=out, type="u"}], in_sig="su", in_types=[string,uint32]},
      DBusIface = #interface{name='org.freedesktop.DBus', methods=[HelloMethod, AddMatch, RequestName]},
  
      IntrospectMethod = #method{name='Introspect', args=[], result=#arg{direction=out, type="s"}, in_sig="", in_types=[]},
      DBusIntrospectableIface = #interface{name='org.freedesktop.DBus.Introspectable', methods=[IntrospectMethod]},
  
negative.code: add_match(Bus, Match) ->
      gen_server:cast(Bus, {add_match, Match}).
  
  export_service(Bus, ServiceName) ->
      gen_server:call(Bus, {export_service, ServiceName}).
  
  unexport_service(Bus, ServiceName) ->
      gen_server:call(Bus, {unexport_service, ServiceName}).
  
  %%
  %% gen_server callbacks
  