aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPaweł Chmielowski <pchmielowski@process-one.net>2017-05-04 12:17:41 +0200
committerPaweł Chmielowski <pchmielowski@process-one.net>2017-05-04 12:17:41 +0200
commite790e66f47a4949262da21de7ee07535b0d7e126 (patch)
tree8bd4abc6afd1ac5aeddd5249378d1811b7a0bb82
parentCatch exceptions from acl:add_list in web admin (diff)
Fix elixir tests
-rw-r--r--test/acl_test.exs60
-rw-r--r--test/ejabberd_commands_mock_test.exs27
2 files changed, 16 insertions, 71 deletions
diff --git a/test/acl_test.exs b/test/acl_test.exs
index 99377e4c1..ee2b37ab9 100644
--- a/test/acl_test.exs
+++ b/test/acl_test.exs
@@ -363,70 +363,10 @@ defmodule ACLTest do
assert :acl.access_rules_validator(:my_access) == :my_access
end
- test "get_opt with access_rules_validation works with <AccessName>" do
- assert :gen_mod.get_opt(:access, [access: :my_rule], &:acl.access_rules_validator/1)
- == :my_rule
- end
-
- test "get_opt with access_rules_validation perform normalization for acl rules" do
- assert :gen_mod.get_opt(:access, [access: [[allow: :zed]]], &:acl.access_rules_validator/1)
- == [allow: [acl: :zed]]
- end
-
- test "get_opt with access_rules_validation perform normalization for user@server rules" do
- assert :gen_mod.get_opt(:access, [access: [allow: [user: "a@b"]]], &:acl.access_rules_validator/1)
- == [allow: [user: {"a", "b"}]]
- end
-
- test "get_opt with access_rules_validation return default value with number as rule type" do
- assert :gen_mod.get_opt(:access, [access: [{100, [user: "a@b"]}]], &:acl.access_rules_validator/1)
- == :undefined
- end
-
- test "get_opt with access_rules_validation return default value when invalid rule type is passed" do
- assert :gen_mod.get_opt(:access, [access: [allow2: [user: "a@b"]]], &:acl.access_rules_validator/1)
- == :undefined
- end
-
- test "get_opt with access_rules_validation return default value when invalid acl is passed" do
- assert :gen_mod.get_opt(:access, [access: [allow: [user2: "a@b"]]], &:acl.access_rules_validator/1)
- == :undefined
- end
-
test "shapes_rules_validator works with <AccessName>" do
assert :acl.shaper_rules_validator(:my_access) == :my_access
end
- test "get_opt with shaper_rules_validation works with <AccessName>" do
- assert :gen_mod.get_opt(:access, [access: :my_rule], &:acl.shaper_rules_validator/1)
- == :my_rule
- end
-
- test "get_opt with shaper_rules_validation perform normalization for acl rules" do
- assert :gen_mod.get_opt(:access, [access: [[allow: :zed]]], &:acl.shaper_rules_validator/1)
- == [allow: [acl: :zed]]
- end
-
- test "get_opt with shaper_rules_validation perform normalization for user@server rules" do
- assert :gen_mod.get_opt(:access, [access: [allow: [user: "a@b"]]], &:acl.shaper_rules_validator/1)
- == [allow: [user: {"a", "b"}]]
- end
-
- test "get_opt with shaper_rules_validation return accepts number as rule type" do
- assert :gen_mod.get_opt(:access, [access: [{100, [user: "a@b"]}]], &:acl.shaper_rules_validator/1)
- == [{100, [user: {"a", "b"}]}]
- end
-
- test "get_opt with shaper_rules_validation return accepts any atom as rule type" do
- assert :gen_mod.get_opt(:access, [access: [fast: [user: "a@b"]]], &:acl.shaper_rules_validator/1)
- == [fast: [user: {"a", "b"}]]
- end
-
- test "get_opt with shaper_rules_validation return default value when invalid acl is passed" do
- assert :gen_mod.get_opt(:access, [access: [allow: [user2: "a@b"]]], &:acl.shaper_rules_validator/1)
- == :undefined
- end
-
## Checking ACL on both user pattern and IP
## ========================================
diff --git a/test/ejabberd_commands_mock_test.exs b/test/ejabberd_commands_mock_test.exs
index a19d0720c..d7ac7ae12 100644
--- a/test/ejabberd_commands_mock_test.exs
+++ b/test/ejabberd_commands_mock_test.exs
@@ -42,7 +42,7 @@ defmodule EjabberdCommandsMockTest do
Record.defrecord :ejabberd_commands, Record.extract(:ejabberd_commands, from_lib: "ejabberd/include/ejabberd_commands.hrl")
setup_all do
- :ok = :ejabberd.start_app(:lager)
+ :ok = :ejabberd.start_app(:lager)
try do
:stringprep.start
rescue
@@ -50,14 +50,15 @@ defmodule EjabberdCommandsMockTest do
end
:mnesia.start
:ejabberd_mnesia.start
- :jid.start
- :ejabberd_hooks.start_link
- :ok = :ejabberd_config.start(["domain1", "domain2"], [])
- {:ok, _} = :ejabberd_access_permissions.start_link()
- {:ok, _} = :acl.start_link
+ :jid.start
+ :ejabberd_hooks.start_link
+ :ok = :ejabberd_config.start(["domain1", "domain2"], [])
+ {:ok, _} = :ejabberd_access_permissions.start_link()
+ {:ok, _} = :acl.start_link
+ :ejabberd_oauth.start_link
:ejabberd_commands.start_link
EjabberdOauthMock.init
- on_exit fn -> :meck.unload end
+ on_exit fn -> :meck.unload end
end
setup do
@@ -453,13 +454,17 @@ defmodule EjabberdCommandsMockTest do
:meck.new :ejabberd_config
:meck.expect(:ejabberd_config, :get_option,
- fn(:commands_admin_access, _, _) -> :commands_admin_access
- (:oauth_access, _, _) -> :all
- (:commands, _, _) -> [{:add_commands, commands}]
- (_, _, default) -> default
+ fn(:commands_admin_access, _) -> :commands_admin_access
+ (:oauth_access, _) -> :all
+ (:commands, _) -> [{:add_commands, commands}]
+ (_, default) -> default
end)
:meck.expect(:ejabberd_config, :get_myhosts,
fn() -> [@domain] end)
+ :meck.expect(:ejabberd_config, :default_db,
+ fn(_) -> :mnesia end)
+ :meck.expect(:ejabberd_config, :default_db,
+ fn(_, _) -> :mnesia end)
:meck.new :acl
:meck.expect(:acl, :access_matches,