diff options
Diffstat (limited to 'test/couch_config_writer_test.erl')
| -rw-r--r-- | test/couch_config_writer_test.erl | 181 |
1 files changed, 181 insertions, 0 deletions
diff --git a/test/couch_config_writer_test.erl b/test/couch_config_writer_test.erl new file mode 100644 index 00000000..b093edff --- /dev/null +++ b/test/couch_config_writer_test.erl @@ -0,0 +1,181 @@ +% 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 = "couch.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. |