               :search-cached-acls search-cached-acls
               :actual-acls actual-acls}))))
 
+(def service-reset-fns
+  "A map of services to reset functions."
+  {:metadata-db mdb-service/reset
+   :index-set index-set-service/reset
+   :indexer indexer-service/reset
+   :search search-service/clear-cache})
+
+(def service-clear-cache-fns
+  "A map of services to reset functions."
+  {:indexer indexer-service/clear-cache
+   :search search-service/clear-cache})
+
 
 (defn- build-routes [system]
   (routes

      {:status 200
       :body (json/generate-string (get-acl-state system) {:pretty true})
       :headers {"Content-Type" "application/json"}})
    (POST "/stop" []
      ((var-get (find-var 'cmr.dev-system.system/stop)) system)
      (System/exit 0))

            [cmr.common.log :refer (debug info warn error)]
            [cmr.common.api.errors :as errors]
            [cmr.transmit.echo.acls :as echo-acls]
            [cmr.search.data.elastic-search-index :as es]

            ;; Services for reseting
            [cmr.metadata-db.services.concept-service :as mdb-service]
            [cmr.index-set.services.index-service :as index-set-service]
            [cmr.indexer.services.index-service :as indexer-service]
            [cmr.search.services.query-service :as search-service]))

(defn app-context
  [system app]
