#!/usr/bin/env escript
%% -*- erlang -*-

% 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.

default_config() ->
    "etc/couchdb/default_dev.ini".

local_config_1() ->
    "test/etap/081-config-override.1.ini".

local_config_2() ->
    "test/etap/081-config-override.2.ini".

local_config_write() ->
    "test/etap/temp.081".

% Run tests and wait for the config gen_server to shutdown.
run_tests(IniFiles, Tests) ->
    {ok, Pid} = couch_config:start_link(IniFiles),
    erlang:monitor(process, Pid),
    Tests(),
    couch_config:stop(),
    receive
        {'DOWN', _, _, Pid, _} -> ok;
        _Other -> etap:diag("OTHER: ~p~n", [_Other])
    after
        1000 -> throw({timeout_error, config_stop})
    end.

main(_) ->
    code:add_pathz("src/couchdb"),
    etap:plan(17),

    case (catch test()) of
        ok ->
            etap:end_tests();
        Other ->
            etap:diag(io_lib:format("Test died abnormally: ~p", [Other])),
            etap:bail(Other)
    end,
    ok.

test() ->

    CheckStartStop = fun() -> ok end,
    run_tests([default_config()], CheckStartStop),

    CheckDefaults = fun() ->
        etap:is(
            couch_config:get("couchdb", "max_dbs_open"),
            "100",
            "{couchdb, max_dbs_open} is 100 by defualt."
        ),

        etap:is(
            couch_config:get("httpd","port"),
            "5984",
            "{httpd, port} is 5984 by default"
        ),

        etap:is(
            couch_config:get("fizbang", "unicode"),
            undefined,
            "{fizbang, unicode} is undefined by default"
        )
    end,

    run_tests([default_config()], CheckDefaults),


    % Check that subsequent files override values appropriately

    CheckOverride = fun() ->
        etap:is(
            couch_config:get("couchdb", "max_dbs_open"),
            "10",
            "{couchdb, max_dbs_open} was overriden with the value 10"
        ),

        etap:is(
            couch_config:get("httpd", "port"),
            "4895",
            "{httpd, port} was overriden with the value 4895"
        )
    end,

    run_tests([default_config(), local_config_1()], CheckOverride),


    % Check that overrides can create new sections

    CheckOverride2 = fun() ->
        etap:is(
            couch_config:get("httpd", "port"),
            "80",
            "{httpd, port} is overriden with the value 80"
        ),

        etap:is(
            couch_config:get("fizbang", "unicode"),
            "normalized",
            "{fizbang, unicode} was created by override INI file"
        )
    end,

    run_tests([default_config(), local_config_2()], CheckOverride2),


    % Check that values can be overriden multiple times

    CheckOverride3 = fun() ->
        etap:is(
            couch_config:get("httpd", "port"),
            "80",
            "{httpd, port} value was taken from the last specified INI file."
        )
    end,

    run_tests(
        [default_config(), local_config_1(), local_config_2()],
        CheckOverride3
    ),

    % Check persistence to last file.

    % Empty the file in case it exists.
    {ok, Fd} = file:open(local_config_write(), write),
    ok = file:truncate(Fd),
    ok = file:close(Fd),

    % Open and write a value
    CheckCanWrite = fun() ->
        etap:is(
            couch_config:get("httpd", "port"),
            "5984",
            "{httpd, port} is still 5984 by default"
        ),

        etap:is(
            couch_config:set("httpd", "port", "8080"),
            ok,
            "Writing {httpd, port} is kosher."
        ),

        etap:is(
            couch_config:get("httpd", "port"),
            "8080",
            "{httpd, port} was updated to 8080 successfully."
        ),

        etap:is(
            couch_config:delete("httpd", "bind_address"),
            ok,
            "Deleting {httpd, bind_address} succeeds"
        ),

        etap:is(
            couch_config:get("httpd", "bind_address"),
            undefined,
            "{httpd, bind_address} was actually deleted."
        )
    end,

    run_tests([default_config(), local_config_write()], CheckCanWrite),

    % Open and check where we don't expect persistence.

    CheckDidntWrite = fun() ->
        etap:is(
            couch_config:get("httpd", "port"),
            "5984",
            "{httpd, port} was not persisted to the primary INI file."
        ),

        etap:is(
            couch_config:get("httpd", "bind_address"),
            "127.0.0.1",
            "{httpd, bind_address} was not deleted form the primary INI file."
        )
    end,

    run_tests([default_config()], CheckDidntWrite),

    % Open and check we have only the persistence we expect.
    CheckDidWrite = fun() ->
        etap:is(
            couch_config:get("httpd", "port"),
            "8080",
            "{httpd, port} is still 8080 after reopening the config."
        ),

        etap:is(
            couch_config:get("httpd", "bind_address"),
            undefined,
            "{httpd, bind_address} is still \"\" after reopening."
        )
    end,

    run_tests([local_config_write()], CheckDidWrite),

    ok.