rabbit_ldap_seed: Assert seed data deletions are benign
(cherry picked from commit30ef8fbe19) (cherry picked from commitf015ddb2a1)
This commit is contained in:
parent
90aa8bd46b
commit
94fbcb0c3f
|
|
@ -8,6 +8,7 @@
|
|||
-module(rabbit_ldap_seed).
|
||||
|
||||
-include_lib("eldap/include/eldap.hrl").
|
||||
-include_lib("stdlib/include/assert.hrl").
|
||||
|
||||
-export([seed/1,delete/1]).
|
||||
|
||||
|
|
@ -32,17 +33,22 @@ rabbitmq_com() ->
|
|||
|
||||
delete(Logon) ->
|
||||
H = connect(Logon),
|
||||
eldap:delete(H, "ou=test,dc=rabbitmq,dc=com"),
|
||||
eldap:delete(H, "ou=test,ou=vhosts,dc=rabbitmq,dc=com"),
|
||||
eldap:delete(H, "ou=vhosts,dc=rabbitmq,dc=com"),
|
||||
[ eldap:delete(H, P) || {P, _} <- groups() ],
|
||||
[ eldap:delete(H, P) || {P, _} <- people() ],
|
||||
eldap:delete(H, "ou=groups,dc=rabbitmq,dc=com"),
|
||||
eldap:delete(H, "ou=people,dc=rabbitmq,dc=com"),
|
||||
eldap:delete(H, "dc=rabbitmq,dc=com"),
|
||||
eldap:close(H),
|
||||
assert_benign(eldap:delete(H, "ou=test,dc=rabbitmq,dc=com")),
|
||||
assert_benign(eldap:delete(H, "ou=test,ou=vhosts,dc=rabbitmq,dc=com")),
|
||||
assert_benign(eldap:delete(H, "ou=vhosts,dc=rabbitmq,dc=com")),
|
||||
[ assert_benign(eldap:delete(H, P)) || {P, _} <- groups() ],
|
||||
[ assert_benign(eldap:delete(H, P)) || {P, _} <- people() ],
|
||||
assert_benign(eldap:delete(H, "ou=groups,dc=rabbitmq,dc=com")),
|
||||
assert_benign(eldap:delete(H, "ou=people,dc=rabbitmq,dc=com")),
|
||||
assert_benign(eldap:delete(H, "dc=rabbitmq,dc=com")),
|
||||
ok = eldap:close(H),
|
||||
ok.
|
||||
|
||||
assert_benign({error,noSuchObject}) ->
|
||||
ok;
|
||||
assert_benign(Other) ->
|
||||
?assertEqual(ok, Other).
|
||||
|
||||
people() ->
|
||||
[ bob(),
|
||||
dominic(),
|
||||
|
|
|
|||
Loading…
Reference in New Issue