anchor.diff:  remove_resource(Resource) when is_atom(Resource) ->
       gen_server:call(?SERVER, {remove_resource, Resource}, infinity).
   
  +%% @spec get_routes() -> [{[], res, []}]
  +%% @doc Retrieve a list of routes and resources set in webmachine's
  +%%      route table.
  +get_routes() ->
  +    gen_server:call(?SERVER, get_routes, infinity).
  +
   %% @spec start_link() -> {ok, pid()} | {error, any()}
   %% @doc Starts the webmachine_router gen_server.
   start_link() ->
  
positive.code:   {ok, []}.
  
  %% @private
  handle_call(get_routes, _From, State) ->
      {reply, get_dispatch_list(), State};
  
  handle_call({remove_resource, Resource}, _From, State) ->
      DL = [D || D <- get_dispatch_list(),
                 filter_by_resource(D, Resource)],
      {reply, set_dispatch_list(DL), State};
  
  handle_call({remove_route, Route}, _From, State) ->
      DL = [D || D <- get_dispatch_list(),
  
negative.code: %% For unit tests only
  start() ->
      gen_server:start({local, ?SERVER}, ?MODULE, [], []).
  
  add_remove_route_test() ->
      application:set_env(webmachine, dispatch_list, []),
  