Expose LRU test functions
Project: http://git-wip-us.apache.org/repos/asf/couchdb-couch/repo Commit: http://git-wip-us.apache.org/repos/asf/couchdb-couch/commit/8ca26a84 Tree: http://git-wip-us.apache.org/repos/asf/couchdb-couch/tree/8ca26a84 Diff: http://git-wip-us.apache.org/repos/asf/couchdb-couch/diff/8ca26a84 Branch: refs/heads/HACK-benchmark-COUCHDB-3191-improve-couch-lru-performance Commit: 8ca26a840042ecd64c0bc9771e7c291c619e09ef Parents: 6e52fe8 Author: Paul J. Davis <paul.joseph.da...@gmail.com> Authored: Mon Oct 17 14:11:31 2016 -0500 Committer: Paul J. Davis <paul.joseph.da...@gmail.com> Committed: Mon Oct 17 14:11:31 2016 -0500 ---------------------------------------------------------------------- src/couch_server.erl | 6 ++++++ 1 file changed, 6 insertions(+) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/couchdb-couch/blob/8ca26a84/src/couch_server.erl ---------------------------------------------------------------------- diff --git a/src/couch_server.erl b/src/couch_server.erl index 417c791..b1273e1 100644 --- a/src/couch_server.erl +++ b/src/couch_server.erl @@ -333,6 +333,12 @@ handle_call({set_max_dbs_open, Max}, _From, Server) -> {reply, ok, Server#server{max_dbs_open=Max}}; handle_call(get_server, _From, Server) -> {reply, {ok, Server}, Server}; +handle_call(lru_to_list, _From, #server{lru = Lru} = Server) -> + {reply, couch_lru:to_list(Lru), Server}; +handle_call(lru_validate, _From, #server{lru = Lru} = Server) -> + {reply, couch_lru:validate(Lru), Server}; +handle_call(lru_debug, _From, #server{lru = Lru} = Server) -> + {reply, couch_lru:debug(Lru), Server}; handle_call({open_result, T0, DbName, {ok, Db}}, {FromPid, _Tag}, Server) -> link(Db#db.main_pid), true = ets:delete(couch_dbs_pid_to_name, FromPid),