Prevent Inbox from making emails during testing.
This commit is contained in:
parent
f06b8c08fb
commit
4051101926
1 changed files with 10 additions and 2 deletions
12
t/Inbox.t
12
t/Inbox.t
|
|
@ -36,10 +36,10 @@ my $message_body = 'Test message';
|
|||
my $new_message = {
|
||||
message => $message_body,
|
||||
groupId => 3,
|
||||
userId => 1,
|
||||
userId => 1,
|
||||
};
|
||||
|
||||
my $message = $inbox->addMessage($new_message);
|
||||
my $message = $inbox->addMessage($new_message,{ testing => 1, });
|
||||
isa_ok($message, 'WebGUI::Inbox::Message');
|
||||
|
||||
ok(defined($message), 'addMessage returned a response');
|
||||
|
|
@ -88,24 +88,32 @@ $inbox->addMessage({
|
|||
message => "First message",
|
||||
userId => 3,
|
||||
sentBy => $senders[0]->userId,
|
||||
},{
|
||||
testing => 1,
|
||||
});
|
||||
|
||||
$inbox->addMessage({
|
||||
message => "Second message",
|
||||
userId => 3,
|
||||
sentBy => $senders[1]->userId,
|
||||
},{
|
||||
testing => 1,
|
||||
});
|
||||
|
||||
$inbox->addMessage({
|
||||
message => "Third message",
|
||||
userId => 3,
|
||||
sentBy => $senders[2]->userId,
|
||||
},{
|
||||
testing => 1,
|
||||
});
|
||||
|
||||
$inbox->addMessage({
|
||||
message => "Fourth message",
|
||||
userId => 3,
|
||||
sentBy => $senders[2]->userId,
|
||||
},{
|
||||
testing => 1,
|
||||
});
|
||||
|
||||
is(scalar @{ $inbox->getMessagesForUser($admin) }, 4, 'Added 3 messages by various users');
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue