oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mock asset test package

Browse source
This commit is contained in:
Graham Knop 2010-06-09 07:16:15 -05:00
parent dfa1a3d7cb
commit 49be76247e
11 changed files with 213 additions and 188 deletions
Download patch file Download diff file Expand all files Collapse all files

14
t/Workflow/Activity/GetCsMail.t
View file

@ -14,7 +14,9 @@ use strict;
use lib "$FindBin::Bin/../../lib";
use Test::More;
use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::Test::MockAsset;
use WebGUI::Session;
use WebGUI::Exception;
use Test::MockObject;
use Test::MockObject::Extends;
@ -102,7 +104,7 @@ $post2mock->set_always('getId', $post2_id);
{
# simulate asset not found
WebGUI::Test->mockAssetId($post2_id, undef);
WebGUI::Test::MockAsset->mock_id($post2_id, sub { WebGUI::Error::ObjectNotFound->throw });
$getmock->set_series('getNextMessage', {
from => 'admin@localhost',
parts => ['parts'],
@ -112,11 +114,11 @@ $post2mock->set_always('getId', $post2_id);
});
$activity->execute($csmock);
is $parentAsset->getId, $cs_id, 'add as new thread to current cs if reply to nonexistant post';
WebGUI::Test->unmockAssetId($post2_id);
WebGUI::Test::MockAsset->unmock_id($post2_id);
}
{
WebGUI::Test->mockAssetId($post2_id, $post2mock);
WebGUI::Test::MockAsset->mock_id($post2_id, $post2mock);
$getmock->set_series('getNextMessage', {
from => 'admin@localhost',
parts => ['parts'],
@ -126,11 +128,11 @@ $post2mock->set_always('getId', $post2_id);
});
$activity->execute($csmock);
is $parentAsset->getId, $cs_id, 'add as new thread to current cs if reply to post in another CS';
WebGUI::Test->unmockAssetId($post2_id);
WebGUI::Test::MockAsset->unmock_id($post2_id);
}
{
WebGUI::Test->mockAssetId($post_id, $postmock);
WebGUI::Test::MockAsset->mock_id($post_id, $postmock);
$getmock->set_series('getNextMessage', {
from => 'admin@localhost',
parts => ['parts'],
@ -140,7 +142,7 @@ $post2mock->set_always('getId', $post2_id);
});
$activity->execute($csmock);
is $parentAsset->getId, $post_id, 'add as reply to post if reply to post in current CS';
WebGUI::Test->unmockAssetId($post_id);
WebGUI::Test::MockAsset->unmock_id($post_id);
}
#vim:ft=perl

8
t/Workflow/Activity/SendNewsletters.t
View file

@ -19,6 +19,7 @@ use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::Session;
use Test::MockObject;
use Test::MockObject::Extends;
use WebGUI::Test::MockAsset;
#----------------------------------------------------------------------------
# Init
@ -46,9 +47,8 @@ my $versionTag = WebGUI::VersionTag->getWorking($session);
#1234567890123456789012#
my $templateId = 'NEWSLETTER_TEMPLATE___';
my $templateMock = Test::MockObject->new({});
$templateMock->set_isa('WebGUI::Asset::Template');
$templateMock->set_always('getId', $templateId);
my $templateMock = WebGUI::Test::MockAsset->new('WebGUI::Asset::Template');
$templateMock->mock_id($templateId);
my $templateVars;
$templateMock->mock('process', sub { $templateVars = $_[1]; } );
@ -97,7 +97,6 @@ $activity->set_always('getTTL', 60);
$activity->set_always('COMPLETE', 'complete');
{
WebGUI::Test->mockAssetId($templateId, $templateMock);
$activity->execute();
cmp_deeply(
$templateVars,
@ -116,7 +115,6 @@ $activity->set_always('COMPLETE', 'complete');
],
}
);
WebGUI::Test->unmockAssetId($templateId);
}
foreach my $metadataId (keys %{ $cs->getMetaDataFields }) {