diff options
| author | Paweł Chmielowski <pchmielowski@process-one.net> | 2019-04-30 13:41:54 +0200 |
|---|---|---|
| committer | Paweł Chmielowski <pchmielowski@process-one.net> | 2019-04-30 15:01:25 +0200 |
| commit | 63c12d18cccb4c1903e7c5235e0ac270783eaa11 (patch) | |
| tree | 20b41e06655f103c6b27213fb81bd289ec4ea34f /test/suite.hrl | |
| parent | Make get_subscribed_rooms work even for non-persistant rooms (diff) | |
Add tests for user mucsub mam from muc mam
Diffstat (limited to 'test/suite.hrl')
| -rw-r--r-- | test/suite.hrl | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/test/suite.hrl b/test/suite.hrl index b2515d8c..b4893284 100644 --- a/test/suite.hrl +++ b/test/suite.hrl @@ -12,7 +12,7 @@ -define(recv1(P1), P1 = (fun() -> - V = recv(Config), + V = suite:recv(Config), case V of P1 -> V; _ -> suite:match_failure([V], [??P1]) @@ -21,7 +21,7 @@ -define(recv2(P1, P2), (fun() -> - case {R1 = recv(Config), R2 = recv(Config)} of + case {R1 = suite:recv(Config), R2 = suite:recv(Config)} of {P1, P2} -> {R1, R2}; {P2, P1} -> {R2, R1}; {P1, V1} -> suite:match_failure([V1], [P2]); @@ -34,7 +34,7 @@ -define(recv3(P1, P2, P3), (fun() -> - case R3 = recv(Config) of + case R3 = suite:recv(Config) of P1 -> insert(R3, 1, ?recv2(P2, P3)); P2 -> insert(R3, 2, ?recv2(P1, P3)); P3 -> insert(R3, 3, ?recv2(P1, P2)); @@ -44,7 +44,7 @@ -define(recv4(P1, P2, P3, P4), (fun() -> - case R4 = recv(Config) of + case R4 = suite:recv(Config) of P1 -> insert(R4, 1, ?recv3(P2, P3, P4)); P2 -> insert(R4, 2, ?recv3(P1, P3, P4)); P3 -> insert(R4, 3, ?recv3(P1, P2, P4)); @@ -55,7 +55,7 @@ -define(recv5(P1, P2, P3, P4, P5), (fun() -> - case R5 = recv(Config) of + case R5 = suite:recv(Config) of P1 -> insert(R5, 1, ?recv4(P2, P3, P4, P5)); P2 -> insert(R5, 2, ?recv4(P1, P3, P4, P5)); P3 -> insert(R5, 3, ?recv4(P1, P2, P4, P5)); @@ -75,6 +75,19 @@ end end)()). +-define(match(Pattern, Result, PatternRes), + (fun() -> + case Result of + Pattern -> + PatternRes; + Mismatch -> + suite:match_failure([Mismatch], [??Pattern]) + end + end)()). + +-define(send_recv(Send, Recv), + ?match(Recv, suite:send_recv(Config, Send))). + -define(COMMON_VHOST, <<"localhost">>). -define(MNESIA_VHOST, <<"mnesia.localhost">>). -define(REDIS_VHOST, <<"redis.localhost">>). |