converse/converseDB_tests.erl at origin · Stackingit/converse · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
%%=====================================================
%% Abstract
%%
%% This does the basic tests on the converseDB module
%%=====================================================

%%======================================================
%% Tag the file
%%======================================================
-module( converseDB_tests ).
-include_lib("eunit/include/eunit.hrl").
-compile( export_all ).
-author("Stephen Bailey").
-email("Stephen.Bailey@stackingit.com").
-vsn( "0.0.0.1" ).


%%======================================================
%% setup scaffolding Mnesia DB
%%
%% I know there is a way to do this more
%% formally, but for now I will go the simple way since
%% I have not internet access.. plus should help me
%% understand when I do get to it :-)
%%======================================================
setup_test()->
    mnesia:stop(),                      % make sure there is not one running already
    mnesia:delete_schema( [ node() ] ), % make sure the DB does not exist
    converseDB:createDB(),              % create a DB for this node
    converseDB:startDB().               % create the structure

%%======================================================
%% Check the adding of a user
%%======================================================
addingAUser_test()->
    ?assertMatch( { user, does_not_exist } , converseDB:validateUser("User1") ), % validate the user does not already exist
    ?assertMatch( { user, ok } , converseDB:addUser("User1","Password1") ),      % add him sucessfully
    ?assertMatch( { user, exists } , converseDB:validateUser("User1") ).         % check that he is indeed there

addingAUserThatAlreadyExists_test()->
    ?assertMatch( { user, exists } , converseDB:validateUser("User1") ),                % validate our user is still there
    ?assertMatch( { user, already_exists } , converseDB:addUser("User1","Password1") ). % validate you cannot add an existing user

%%======================================================
%% Check the Password validation
%%======================================================
validatePassword_test() ->
    ?assertMatch( { authentication, pass } , converseDB:validatePassword("User1","Password1") ),
    ?assertMatch( { authentication, fail } , converseDB:validatePassword("User1","Not the Password") ).

%%======================================================
%% Check the adding of a conversation
%%======================================================
%% testing when everything is perfect in the world
startingAConversation_test()->
    % create a user to add as a happy talker
    converseDB:addUser("User2","Password2"),
    % add a message
    { conversation, ok, ConversationId } = converseDB:addConversation("User1","Password1", "Subject1","Message1",["User2"]),
    %% check the message
    ActiveConversations = converseDB:getActiveConversations("User2","Password2"),
    %% should be only 1 talking message and no listening
    ?assertMatch( {{talking,[ConversationId]},{listening,[]}} , ActiveConversations ),

    %%Check the conversation : ignoring the time since I cannot know that :)
    ?assertMatch( { {id,ConversationId},
      {author,"User1"}, {subject,"Subject1"}, {message,"Message1"},
      {talkers,["User1","User2"]}, {listeners,[]},
      {time,_} } , converseDB:getConversation( ConversationId ) ).

%%======================================================
%% Check the ability to opt out of a conversation
%%======================================================
optOut_test()->
    %%create some users for this conversation
    converseDB:addUser("OptOut1","test"),
    converseDB:addUser("OptOut2","test"),
    %%start a conversation
    { conversation, ok, ConversationId } = converseDB:addConversation("OptOut1","test","Subject","Message",["OptOut2"]),
    %%get the recipient to opt out
    ?assertMatch( { opt_out, ok } , converseDB:optOut("OptOut2","test", ConversationId ) ),
    %% now check the active conversations for OptOut2 - should be empty
    ?assertMatch( {{talking,[]}, {listening,[]} } , converseDB:getActiveConversations("OptOut2","test") ),
    %~ %% optout1 should still have this conversation
    ?assertMatch( {{talking,[ConversationId]}, {listening,[]} } , converseDB:getActiveConversations("OptOut1","test") ),
    %%now try and opt out of one that someone is not already in
    ?assertMatch( { opt_out, error, not_in_conversation }, converseDB:optOut("OptOut2","test", ConversationId ) ).


%%======================================================
%% Clean up my scafolding Mnesia DB
%%======================================================
%~ shutdown_test()->
    %~ mnesia:stop(),
    %~ mnesia:delete_schema( [ node() ] ).