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

fix warnings in IOB test

Browse source
This commit is contained in:
Graham Knop 2009-09-23 17:10:00 -05:00
parent 328f3dfcec
commit bb77bc484e
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
t/Asset/Wobject/InOutBoard.t
View file

@ -28,6 +28,7 @@ $templateMock->set_isa('WebGUI::Asset::Template');
$templateMock->set_always('getId', $templateId);
my $templateVars;
$templateMock->mock('process', sub { $templateVars = $_[1]; } );
$templateMock->set_true('prepare');
use WebGUI::Asset::Wobject::InOutBoard;

4
t/lib/WebGUI/Test.pm
View file

@ -265,7 +265,7 @@ sub _mockAssetInits {
my $original_newPending = \&WebGUI::Asset::newPending;
*WebGUI::Asset::newPending = sub {
my ($class, $session, $assetId, $revisionDate) = @_;
if ($mockedAssetIds{$assetId}) {
if ($assetId && $mockedAssetIds{$assetId}) {
return $mockedAssetIds{$assetId};
}
goto $original_newPending;
@ -273,7 +273,7 @@ sub _mockAssetInits {
my $original_newByUrl = \&WebGUI::Asset::newByUrl;
*WebGUI::Asset::newByUrl = sub {
my ($class, $session, $url, $revisionDate) = @_;
if ($mockedAssetUrls{$url}) {
if ($url && $mockedAssetUrls{$url}) {
return $mockedAssetUrls{$url};
}
goto $original_newByUrl;