% couch_config_writer module test suote

% Set up test suite
% ?MODULE_test() returns a list of functions 
% that run the actual tests.
couch_config_writer_test() ->
    [
        fun() -> replace_existing_variable() end,
        fun() -> append_new_variable() end,
        fun() -> append_new_module() end
    ].


% test functions
replace_existing_variable() ->
    % create file
    Contents = "; etc/couchdb/couch.ini.tpl.  Generated from couch.ini.tpl.in by configure.

[CouchDB]
RootDirectory = /Users/jan/Work/runcouch/conf9/var/lib/couchdb
UtilDriverDir = /Users/jan/Work/runcouch/conf9/lib/couchdb/erlang/lib/couch-0.7.3a663206/priv/lib
MaximumDocumentSize = 4294967296 ; 4 GB

[HTTPd]
Port = 5984
BindAddress = 127.0.0.1
DocumentRoot = /Users/jan/Work/runcouch/conf9/share/couchdb/www

[Log]
File = /Users/jan/Work/runcouch/conf9/var/log/couchdb/couch.log
Level = info

[CouchDB Query Servers]
javascript = /Users/jan/Work/runcouch/conf9/bin/couchjs /Users/jan/Work/runcouch/conf9/share/couchdb/server/main.js

[CouchDB Query Server Options]
QueryTimeout = 5000 ; 5 seconds
",

    Expect = "; etc/couchdb/couch.ini.tpl.  Generated from couch.ini.tpl.in by configure.

[CouchDB]
RootDirectory = /Users/jan/Work/runcouch/conf9/var/lib/couchdb
UtilDriverDir = /Users/jan/Work/runcouch/conf9/lib/couchdb/erlang/lib/couch-0.7.3a663206/priv/lib
MaximumDocumentSize = 4294967296 ; 4 GB

[HTTPd]
Port = 5985
BindAddress = 127.0.0.1
DocumentRoot = /Users/jan/Work/runcouch/conf9/share/couchdb/www

[Log]
File = /Users/jan/Work/runcouch/conf9/var/log/couchdb/couch.log
Level = info

[CouchDB Query Servers]
javascript = /Users/jan/Work/runcouch/conf9/bin/couchjs /Users/jan/Work/runcouch/conf9/share/couchdb/server/main.js

[CouchDB Query Server Options]
QueryTimeout = 5000 ; 5 seconds
",
    run_operation_and_compare_results(Contents, Expect, {{"HTTPd", "Port"}, "5985"}).


append_new_variable() ->
    % create file
    Contents = "; etc/couchdb/couch.ini.tpl.  Generated from couch.ini.tpl.in by configure.

[CouchDB]
RootDirectory = /Users/jan/Work/runcouch/conf9/var/lib/couchdb
UtilDriverDir = /Users/jan/Work/runcouch/conf9/lib/couchdb/erlang/lib/couch-0.7.3a663206/priv/lib
MaximumDocumentSize = 4294967296 ; 4 GB

[HTTPd]
Port = 5984
BindAddress = 127.0.0.1
DocumentRoot = /Users/jan/Work/runcouch/conf9/share/couchdb/www

[Log]
File = /Users/jan/Work/runcouch/conf9/var/log/couchdb/couch.log
Level = info

[CouchDB Query Servers]
javascript = /Users/jan/Work/runcouch/conf9/bin/couchjs /Users/jan/Work/runcouch/conf9/share/couchdb/server/main.js

[CouchDB Query Server Options]
QueryTimeout = 5000 ; 5 seconds
",

    Expect = "; etc/couchdb/couch.ini.tpl.  Generated from couch.ini.tpl.in by configure.

[CouchDB]
RootDirectory = /Users/jan/Work/runcouch/conf9/var/lib/couchdb
UtilDriverDir = /Users/jan/Work/runcouch/conf9/lib/couchdb/erlang/lib/couch-0.7.3a663206/priv/lib
MaximumDocumentSize = 4294967296 ; 4 GB

[HTTPd]
Port = 5984
BindAddress = 127.0.0.1
DocumentRoot = /Users/jan/Work/runcouch/conf9/share/couchdb/www

FantasyConfiguration = Citation Needed
[Log]
File = /Users/jan/Work/runcouch/conf9/var/log/couchdb/couch.log
Level = info

[CouchDB Query Servers]
javascript = /Users/jan/Work/runcouch/conf9/bin/couchjs /Users/jan/Work/runcouch/conf9/share/couchdb/server/main.js

[CouchDB Query Server Options]
QueryTimeout = 5000 ; 5 seconds
",
    run_operation_and_compare_results(Contents, Expect, {{"HTTPd", "FantasyConfiguration"}, "Citation Needed"}).


append_new_module() ->
    % create file
    Contents = "; etc/couchdb/couch.ini.tpl.  Generated from couch.ini.tpl.in by configure.

[CouchDB]
RootDirectory = /Users/jan/Work/runcouch/conf9/var/lib/couchdb
UtilDriverDir = /Users/jan/Work/runcouch/conf9/lib/couchdb/erlang/lib/couch-0.7.3a663206/priv/lib
MaximumDocumentSize = 4294967296 ; 4 GB

[HTTPd]
Port = 5984
BindAddress = 127.0.0.1
DocumentRoot = /Users/jan/Work/runcouch/conf9/share/couchdb/www

[Log]
File = /Users/jan/Work/runcouch/conf9/var/log/couchdb/couch.log
Level = info

[CouchDB Query Servers]
javascript = /Users/jan/Work/runcouch/conf9/bin/couchjs /Users/jan/Work/runcouch/conf9/share/couchdb/server/main.js

[CouchDB Query Server Options]
QueryTimeout = 5000 ; 5 seconds",

    Expect = "; etc/couchdb/couch.ini.tpl.  Generated from couch.ini.tpl.in by configure.

[CouchDB]
RootDirectory = /Users/jan/Work/runcouch/conf9/var/lib/couchdb
UtilDriverDir = /Users/jan/Work/runcouch/conf9/lib/couchdb/erlang/lib/couch-0.7.3a663206/priv/lib
MaximumDocumentSize = 4294967296 ; 4 GB

[HTTPd]
Port = 5984
BindAddress = 127.0.0.1
DocumentRoot = /Users/jan/Work/runcouch/conf9/share/couchdb/www

[Log]
File = /Users/jan/Work/runcouch/conf9/var/log/couchdb/couch.log
Level = info

[CouchDB Query Servers]
javascript = /Users/jan/Work/runcouch/conf9/bin/couchjs /Users/jan/Work/runcouch/conf9/share/couchdb/server/main.js

[CouchDB Query Server Options]
QueryTimeout = 5000 ; 5 seconds

[Erlang]
Option = Value
",
    run_operation_and_compare_results(Contents, Expect, {{"Erlang", "Option"}, "Value"}).
  
run_operation_and_compare_results(Contents, Expect, Config) ->
    Filename = "local.ini",
    file:write_file(Filename, Contents),

    % call replace function
    couch_config_writer:save_to_file(Config, Filename),
    
    % compare new file with expected file
    {ok, Result_} = file:read_file(Filename),
    Result = binary_to_list(Result_),

    % clean up
    file:delete(Filename),
    
    Result = Expect.