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

Add assetId attribute to Asset.pm, and tests.

Browse source
This commit is contained in:
Colin Kuskie 2009-12-30 08:35:21 -08:00
parent f76842f705
commit 38144bd58f
2 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
t/Asset.t
View file

@ -20,7 +20,7 @@ use Test::More;
use Test::Deep;
use Test::Exception;
plan tests => 17;
plan tests => 20;
my $session = WebGUI::Test->session;
@ -47,6 +47,10 @@ my $session = WebGUI::Test->session;
is $asset->get('title'), $asset->title, '... get(title) works';
is $asset->menuTitle, 'Untitled', 'menuTitle: default is untitled';
can_ok $asset, qw/assetId getId/;
ok $session->id->valid( $asset->assetId), 'assetId generated by default is valid';
is $asset->assetId, $asset->getId, '... getId is an alias for assetId';
}
{
@ -69,7 +73,7 @@ my $session = WebGUI::Test->session;
$asset->menuTitle('<h1></h1>');
is $asset->menuTitle, 'asset title', '... if HTML filters out all, returns default';
my $asset = WebGUI::Asset->new({
$asset = WebGUI::Asset->new({
session => $session,
title => 'asset title',
menuTitle => 'menuTitle asset',