瀏覽代碼

Add get_env unit test

pull/355/head
Alexander Petrovsky 9 年之前
父節點
當前提交
09aee4b601
共有 2 個文件被更改,包括 25 次插入1 次删除
  1. +3
    -1
      rebar.config
  2. +22
    -0
      test/lager_app_tests.erl

+ 3
- 1
rebar.config 查看文件

@ -40,9 +40,12 @@
{eunit_opts, [verbose]}. {eunit_opts, [verbose]}.
{eunit_compile_opts, [ {eunit_compile_opts, [
export_all,
nowarn_untyped_record, nowarn_untyped_record,
nowarn_export_all nowarn_export_all
]}. ]}.
{deps, [ {deps, [
{goldrush, ".*", {git, "git://github.com/DeadZen/goldrush.git", {tag, "0.1.8"}}} {goldrush, ".*", {git, "git://github.com/DeadZen/goldrush.git", {tag, "0.1.8"}}}
]}. ]}.
@ -53,4 +56,3 @@
{cover_enabled, true}. {cover_enabled, true}.
{edoc_opts, [{stylesheet_file, "./priv/edoc.css"}]}. {edoc_opts, [{stylesheet_file, "./priv/edoc.css"}]}.
{eunit_opts, [verbose]}.

+ 22
- 0
test/lager_app_tests.erl 查看文件

@ -0,0 +1,22 @@
-module(lager_app_tests).
-compile([{parse_transform, lager_transform}]).
-include_lib("eunit/include/eunit.hrl").
get_env_default_test() ->
?assertEqual(<<"Some">>, lager_app:get_env_default(undefined, <<"Some">>)),
?assertEqual(<<"Value">>, lager_app:get_env_default({ok, <<"Value">>}, <<"Some">>)),
ok.
get_env_test() ->
application:set_env(myapp, mykey1, <<"Value">>),
?assertEqual(<<"Some">>, lager_app:get_env(myapp, mykey0, <<"Some">>)),
?assertEqual(<<"Value">>, lager_app:get_env(myapp, mykey1, <<"Some">>)),
?assertEqual(undefined, lager_app:get_env(myapp, mykey0)),
?assertEqual(<<"Value">>, lager_app:get_env(myapp, mykey1)),
ok.

Loading…
取消
儲存