Page MenuHomePhorge
Files F117881810

No OneTemporary
Actions

Authored By
Unknown
Size
10 KB
Referenced Files
None
Subscribers
None

View Options

diff --git a/apps/kolab_guam/test/kolab_guam_rules_SUITE.erl b/apps/kolab_guam/test/kolab_guam_rules_SUITE.erl
index 0f44cdd..a1b02d9 100644
--- a/apps/kolab_guam/test/kolab_guam_rules_SUITE.erl
+++ b/apps/kolab_guam/test/kolab_guam_rules_SUITE.erl
@@ -1,150 +1,167 @@
%% Copyright 2015 Kolab Systems AG (http://www.kolabsys.com)
%%
%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
%%
%% This program is free software: you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published by
%% the Free Software Foundation, either version 3 of the License, or
%% (at your option) any later version.
%%
%% This program is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
%% GNU General Public License for more details.
%%
%% You should have received a copy of the GNU General Public License
%% along with this program. If not, see <http://www.gnu.org/licenses/>.
-module(kolab_guam_rules_SUITE).
% easier than exporting by name
-compile(export_all).
% required for common_test to work
-include_lib("common_test/include/ct.hrl").
-include("../src/rules/kolab_guam_rule_filter_groupware.hrl").
%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% common test callbacks %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Specify a list of all unit test functions
all() -> [
kolab_guam_rule_filter_groupware_responsefiltering_test,
kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test
].
% required, but can just return Config. this is a suite level setup function.
init_per_suite(Config) ->
Config.
% required, but can just return Config. this is a suite level tear down function.
end_per_suite(Config) ->
Config.
% optional, can do function level setup for all functions,
% or for individual functions by matching on TestCase.
init_per_testcase(_TestCase, Config) ->
Config.
% optional, can do function level tear down for all functions,
% or for individual functions by matching on TestCase.
end_per_testcase(_TestCase, Config) ->
Config.
% c("apps/kolab_guam/test/kolab_guam_sup_tests.erl"). eunit:test(kolab_guam_sup_tests).
kolab_guam_rule_filter_groupware_responsefiltering_test(_TestConfig) ->
%% Data to be fed into the test, one tuple per iteration
%% Tuple format: { [] = folder_blacklist, input_data, correct_output }
Data = [
{
[
{<<"Calendar">>, <<"Calendar/">>},
{<<"Calendar/Personal Calendar">>, <<"Calendar/Personal Calendar/">>},
{<<"Configuration">>, <<"Configuration/">>},
{<<"Contacts">>, <<"Contacts/">>},
{<<"Contacts/Personal Contacts">>, <<"Contacts/Personal Contacts/">>},
{<<"Files">>, <<"Files/">>},
{<<"Journal">>, <<"Journal/">>},
{<<"Notes">>, <<"Notes/">>},
{<<"Tasks">>, <<"Tasks/">>}
],
<<"* LIST (\\Noinferiors \\Subscribed) \"/\" INBOX\r\n* LIST (\\Subscribed) \"/\" Archive\r\n* LIST (\\Subscribed \\HasChildren) \"/\" Calendar\r\n* LIST (\\Subscribed) \"/\" \"Calendar/Personal Calendar\"\r\n* LIST (\\Subscribed) \"/\" Configuration\r\n* LIST (\\Subscribed \\HasChildren) \"/\" Contacts\r\n* LIST (\\Subscribed) \"/\" \"Contacts/Personal Contacts\"\r\n* LIST (\\Subscribed) \"/\" Drafts\r\n* LIST (\\Subscribed) \"/\" Files\r\n* LIST (\\Subscribed) \"/\" Journal\r\n* LIST (\\Subscribed) \"/\" Notes\r\n* LIST (\\Subscribed) \"/\" Sent\r\n* LIST (\\Subscribed) \"/\" Spam\r\n* LIST (\\Subscribed) \"/\" Tasks\r\n* LIST (\\Subscribed) \"/\" Trash\r\n7 OK Completed (0.000 secs 15 calls)\r\n">>,
<<"* LIST (\\Noinferiors \\Subscribed) \"/\" INBOX\r\n* LIST (\\Subscribed) \"/\" Archive\r\n* LIST (\\Subscribed) \"/\" Drafts\r\n* LIST (\\Subscribed) \"/\" Sent\r\n* LIST (\\Subscribed) \"/\" Spam\r\n* LIST (\\Subscribed) \"/\" Trash\r\n7 OK Completed (0.000 secs 15 calls)\r\n">>
}
],
%% setup boilerplate
Config = {}, %%TODO?
State = kolab_guam_rule_filter_groupware:new(Config),
ServerConfig = kolab_guam_sup:default_imap_server_config(),
{ ok, ImapSession } = eimap:start_link(ServerConfig),
%% create the rule, ready for testing
ClientData = <<"7 list (subscribed) \"\" \"*\" return (special-use)">>,
Split = eimap_utils:split_command_into_components(ClientData),
{ _, ReadyState } = kolab_guam_rule_filter_groupware:apply_to_client_message(ImapSession, ClientData, Split, State),
%% run the dataset through the rule
lists:foreach(fun({ Blacklist, Input, Filtered }) ->
BlacklistState = ReadyState#state{ blacklist = Blacklist },
{ Filtered, _NewState } = kolab_guam_rule_filter_groupware:apply_to_server_message(ImapSession, Input, BlacklistState) end,
Data).
kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test(_TestConfig) ->
%% Data to be fed into the test, one tuple per iteration
%% Tuple format: { [ input_packets ] = complete_message, correct_output }
Data = [
{
[
{<<"Calendar">>, <<"Calendar/">>},
{<<"Calendar/Personal Calendar">>, <<"Calendar/Personal Calendar/">>},
{<<"Configuration">>, <<"Configuration/">>},
{<<"Contacts">>, <<"Contacts/">>},
{<<"Contacts/Personal Contacts">>, <<"Contacts/Personal Contacts/">>},
{<<"Files">>, <<"Files/">>},
{<<"Journal">>, <<"Journal/">>},
{<<"Notes">>, <<"Notes/">>},
{<<"Tasks">>, <<"Tasks/">>}
],
[
<<"* LIST (\\Noinferiors \\Subscribed) \"/\" INBOX\r\n* LIST (\\Subscribed) \"/\" Archive\r\n* LIST (\\Subscribed \\HasChildren) \"/\" Calendar\r\n* LIST (\\Subscribed) \"/\" \"Calendar/Personal Calendar\"\r\n* LIST (\\Subscribed) \"/\" Configuration\r\n* LIST (\\Subscribed \\HasChildren) \"/\" Contacts\r\n* LIST (\\Subscribed) \"/\" \"Contacts/Personal Contacts\"\r\n* LIST (\\Subscribed) \"/\" Drafts\r\n* LIST (\\Subscribed) \"/\" Files\r\n* LIST (\\Subscribed) \"/\" Journal\r\n* LIST (\\Subscribed)">>,
<<"\"/\" Notes\r\n* LIST (\\Subscribed) \"/\" Sent\r\n* LIST (\\Subscribed) \"/\" Spam\r\n* LIST (\\Subscribed) \"/\" Tasks\r\n* LIST (\\Subscribed) \"/\" Trash\r\n7 OK Completed (0.000 secs 15 calls)\r\n">>
],
<<"* LIST (\\Noinferiors \\Subscribed) \"/\" INBOX\r\n* LIST (\\Subscribed) \"/\" Archive\r\n* LIST (\\Subscribed) \"/\" Drafts\r\n* LIST (\\Subscribed) \"/\" Sent\r\n* LIST (\\Subscribed) \"/\" Spam\r\n* LIST (\\Subscribed) \"/\" Trash\r\n7 OK Completed (0.000 secs 15 calls)\r\n">>
},
%Filter complete packet
{
[
{<<"Calendar">>, <<"Calendar/">>}
],
[
<<"* LIST (\\Subscribed \\HasChildren) \"/\" Calendar\r\n">>,
<<"7 OK Completed (0.000 secs 15 calls)\r\n">>
],
<<"7 OK Completed (0.000 secs 15 calls)\r\n">>
+ },
+ %Test bifrost:T255878
+ {
+ [
+ {<<"Configuration">>,<<"Configuration/">>},
+ {<<"Freebusy">>,<<"Freebusy/">>},
+ {<<"Files">>,<<"Files/">>},
+ {<<"Contacts">>,<<"Contacts/">>},
+ {<<"Notes">>,<<"Notes/">>},
+ {<<"Tasks">>,<<"Tasks/">>},
+ {<<"Journal">>,<<"Journal/">>},
+ {<<"Calendar">>,<<"Calendar/">>}
+ ],
+ [
+ <<"* LSUB () \".\" INBOX\r\n* LSUB (\\Junk) \".\" INBOX.Spam\r\n* LSUB () \".\" INBOX.Drafts\r\n* LSUB () \".\" \"INBOX.Junk E-mail\"\r\n* LSUB () \".\" \"[Gmail].All Mail\"\r\n* LSUB () \".\" [Gmail].Drafts\r\n* LSUB () \".\" [Gmail].Important\r\n* LSUB () \".\" \"[Gmail].Sent Mail\"\r\n* LSUB () \".\" \"[Gmail].Sent Mail.Sent\"\r\n* LSUB () \".\" [Gmail].Spam\r\n* LSUB () \".\" [Gmail].Starred\r\n* LSUB () \".\" [Gmail].Trash\r\n* LSUB () \".\" Calendar\r\n* LSUB () \".\" Journal\r\n* LSUB () \".\" Tasks\r\n* LSUB () \".\" Notes\r\n* LSUB () \".\" Contacts\r\n* LSUB () \".\" Files\r\n* LSUB () \".\" Freebusy\r\n* LSUB () \".\" \"Junk E-mail\"\r\n* LSUB () \".\" Configuration\r\n* LSUB (\\Sent) \".\" Sent\r\n* LSUB (\\Drafts) \".\" Drafts\r\n* LSUB (\\Sent) \".\" \"Sent Messages\"\r\n* LSUB (\\Trash) \".\" Trash\r\nwgku OK Lsub completed (0.001 + 0.000 secs).\r\n">>
+ ],
+ <<"* LSUB () \".\" INBOX\r\n* LSUB (\\Junk) \".\" INBOX.Spam\r\n* LSUB () \".\" INBOX.Drafts\r\n* LSUB () \".\" \"INBOX.Junk E-mail\"\r\n* LSUB () \".\" \"[Gmail].All Mail\"\r\n* LSUB () \".\" [Gmail].Drafts\r\n* LSUB () \".\" [Gmail].Important\r\n* LSUB () \".\" \"[Gmail].Sent Mail\"\r\n* LSUB () \".\" \"[Gmail].Sent Mail.Sent\"\r\n* LSUB () \".\" [Gmail].Spam\r\n* LSUB () \".\" [Gmail].Starred\r\n* LSUB () \".\" [Gmail].Trash\r\n* LSUB () \".\" \"Junk E-mail\"\r\n* LSUB (\\Sent) \".\" Sent\r\n* LSUB (\\Drafts) \".\" Drafts\r\n* LSUB (\\Sent) \".\" \"Sent Messages\"\r\n* LSUB (\\Trash) \".\" Trash\r\nwgku OK Lsub completed (0.001 + 0.000 secs).\r\n">>
}
],
%% setup boilerplate
Config = {}, %%TODO?
State = kolab_guam_rule_filter_groupware:new(Config),
ServerConfig = kolab_guam_sup:default_imap_server_config(),
{ ok, ImapSession } = eimap:start_link(ServerConfig),
%% create the rule, ready for testing
ClientData = <<"7 list (subscribed) \"\" \"*\" return (special-use)">>,
Split = eimap_utils:split_command_into_components(ClientData),
{ _, ReadyState } = kolab_guam_rule_filter_groupware:apply_to_client_message(ImapSession, ClientData, Split, State),
%% run the dataset through the rule
lists:foreach(fun({ Blacklist, Input, Filtered }) ->
BlacklistState = ReadyState#state{ blacklist = Blacklist },
Filtered = filter_groupware_packets(ImapSession, BlacklistState, Input, <<>>) end,
Data).
filter_groupware_packets(_ImapSession, _ReadyState, [], Buffer) -> Buffer;
filter_groupware_packets(ImapSession, ReadyState, [Input|More], Buffer) ->
{ Processed, State } = kolab_guam_rule_filter_groupware:apply_to_server_message(ImapSession, Input, ReadyState),
filter_groupware_packets(ImapSession, State, More, <<Buffer/binary, Processed/binary>>).

File Metadata

Mime Type
text/x-diff
Expires
Mon, Apr 6, 12:08 AM (1 w, 3 d ago)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
18831666
Default Alt Text
(10 KB)

Event Timeline