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

Update test for new Moose API.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-20 21:54:29 -08:00
parent 0ef94945a7
commit 56eadab746
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Asset/Asset.t
View file

@ -167,7 +167,7 @@ is(ref $defaultAsset, 'WebGUI::Asset::Wobject::Layout','default constructor');
my $assetId = "PBnav00000000000000001"; # one of the default nav assets my $assetId = "PBnav00000000000000001"; # one of the default nav assets
# - explicit class # - explicit class
my $asset = WebGUI::Asset->new($session, $assetId, 'WebGUI::Asset::Wobject::Navigation'); my $asset = WebGUI::Asset->newById($session, $assetId);
is (ref $asset, 'WebGUI::Asset::Wobject::Navigation','new constructor explicit - ref check'); is (ref $asset, 'WebGUI::Asset::Wobject::Navigation','new constructor explicit - ref check');
is ($asset->getId, $assetId, 'new constructor explicit - returns correct asset'); is ($asset->getId, $assetId, 'new constructor explicit - returns correct asset');
@ -190,7 +190,7 @@ is ($asset->getId, $assetId, 'new constructor implicit - returns correct asset')
my $deadAsset = 1; my $deadAsset = 1;
# -- no asset id # -- no asset id
$deadAsset = WebGUI::Asset->new($session, '', 'WebGUI::Asset::Wobject::Navigation'); $deadAsset = WebGUI::Asset->new($session, '');
is ($deadAsset, undef,'new constructor with no assetId returns undef'); is ($deadAsset, undef,'new constructor with no assetId returns undef');
# -- no class # -- no class