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

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"),
            "",
            "{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"),
            "",
            "{httpd, bind_address} is still \"\" after reopening."
        )
    end,
    
    run_tests([local_config_write()], CheckDidWrite),
    
    ok.