summaryrefslogtreecommitdiff
path: root/src/couch_log/test/eunit/couch_log_server_test.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/couch_log/test/eunit/couch_log_server_test.erl')
-rw-r--r--src/couch_log/test/eunit/couch_log_server_test.erl118
1 files changed, 0 insertions, 118 deletions
diff --git a/src/couch_log/test/eunit/couch_log_server_test.erl b/src/couch_log/test/eunit/couch_log_server_test.erl
deleted file mode 100644
index 7af570e90..000000000
--- a/src/couch_log/test/eunit/couch_log_server_test.erl
+++ /dev/null
@@ -1,118 +0,0 @@
-% Licensed under the Apache License, Version 2.0 (the "License"); you may not
-% use this file except in compliance with the License. You may obtain a copy of
-% the License at
-%
-% http://www.apache.org/licenses/LICENSE-2.0
-%
-% Unless required by applicable law or agreed to in writing, software
-% distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
-% WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
-% License for the specific language governing permissions and limitations under
-% the License.
-
--module(couch_log_server_test).
-
-
--include("couch_log.hrl").
--include_lib("eunit/include/eunit.hrl").
-
-
-couch_log_server_test_() ->
- {setup,
- fun couch_log_test_util:start/0,
- fun couch_log_test_util:stop/1,
- [
- fun check_can_reconfigure/0,
- fun check_can_restart/0,
- fun check_can_cast_log_entry/0,
- fun check_logs_ignored_messages/0
- ]
- }.
-
-
-check_can_reconfigure() ->
- couch_log:error("a message", []),
- ?assertEqual(0, couch_log_test_util:last_log_key()),
- ?assertEqual(ok, couch_log_server:reconfigure()),
- ?assertEqual('$end_of_table', couch_log_test_util:last_log_key()),
-
- couch_log_test_util:with_config_listener(fun() ->
- couch_log:error("another message", []),
- ?assertEqual(0, couch_log_test_util:last_log_key()),
- config:set("log", "some_key", "some_val"),
- couch_log_test_util:wait_for_config(),
- ?assertEqual('$end_of_table', couch_log_test_util:last_log_key())
- end).
-
-
-check_can_restart() ->
- Pid1 = whereis(couch_log_server),
- Ref = erlang:monitor(process, Pid1),
- ?assert(is_process_alive(Pid1)),
-
- supervisor:terminate_child(couch_log_sup, couch_log_server),
- supervisor:restart_child(couch_log_sup, couch_log_server),
-
- receive
- {'DOWN', Ref, _, _, _} -> ok
- after 1000 ->
- erlang:error(timeout_restarting_couch_log_server)
- end,
-
- ?assert(not is_process_alive(Pid1)),
-
- Pid2 = whereis(couch_log_server),
- ?assertNotEqual(Pid2, Pid1),
- ?assert(is_process_alive(Pid2)).
-
-
-check_can_cast_log_entry() ->
- Entry = #log_entry{
- level = critical,
- pid = self(),
- msg = "this will be casted",
- msg_id = "----",
- time_stamp = "2016-07-20-almost-my-birthday"
- },
- ok = gen_server:cast(couch_log_server, {log, Entry}),
- timer:sleep(500), % totes gross
- ?assertEqual(Entry, couch_log_test_util:last_log()).
-
-
-check_logs_ignored_messages() ->
- gen_server:call(couch_log_server, a_call),
- ?assertMatch(
- #log_entry{
- level = error,
- pid = couch_log_server,
- msg = "couch_log_server ignored a_call"
- },
- couch_log_test_util:last_log()
- ),
-
- gen_server:cast(couch_log_server, a_cast),
- timer:sleep(500), % yes gross
- ?assertMatch(
- #log_entry{
- level = error,
- pid = couch_log_server,
- msg = "couch_log_server ignored a_cast"
- },
- couch_log_test_util:last_log()
- ),
-
- couch_log_server ! an_info,
- timer:sleep(500), % still gross
- ?assertMatch(
- #log_entry{
- level = error,
- pid = couch_log_server,
- msg = "couch_log_server ignored an_info"
- },
- couch_log_test_util:last_log()
- ).
-
-
-coverage_test() ->
- Resp = couch_log_server:code_change(foo, bazinga, baz),
- ?assertEqual({ok, bazinga}, Resp).