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

Add tagId property, fix cloneFromDb. Fix several tests.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-22 11:42:05 -08:00
parent 348b34d307
commit e5affbd0c2
2 changed files with 25 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Asset.pm
View file

@ -243,6 +243,11 @@ property assetSize => (
fieldType => 'integer', fieldType => 'integer',
default => 0, default => 0,
); );
property tagId => (
noFormPost => 1,
fieldType => 'guid',
default => 0,
);
has session => ( has session => (
is => 'ro', is => 'ro',
required => 1, required => 1,
@ -588,10 +593,9 @@ Returns the new Asset object.
sub cloneFromDb { sub cloneFromDb {
my $self = shift; my $self = shift;
return WebGUI::Asset->new($self->session, return WebGUI::Asset->newById($self->session,
$self->getId, $self->getId,
$self->get('className'), $self->revisionDate
$self->get('revisionDate')
); );
} }

36
t/Asset/Asset.t
View file

@ -35,7 +35,7 @@ my $session = WebGUI::Test->session;
my @getTitleTests = getTitleTests($session); my @getTitleTests = getTitleTests($session);
plan tests => 114 plan tests => 105
+ 2*scalar(@getTitleTests) #same tests used for getTitle and getMenuTitle + 2*scalar(@getTitleTests) #same tests used for getTitle and getMenuTitle
; ;
@ -586,7 +586,7 @@ my $iufpAsset2 = $iufpAsset->addChild($properties2, $properties2->{id});
$iufpAsset2->update( { inheritUrlFromParent => 1 } ); $iufpAsset2->update( { inheritUrlFromParent => 1 } );
is $iufpAsset2->inheritUrlFromParent, 1, 'inheritUrlFromParent set'; is $iufpAsset2->inheritUrlFromParent, 1, 'inheritUrlFromParent set';
$iufpAsset2->commit; $iufpAsset2->commit;
is($iufpAsset2->get('url'), 'inheriturlfromparent01/inheriturlfromparent02', 'inheritUrlFromParent works'); is($iufpAsset2->url, 'inheriturlfromparent01/inheriturlfromparent02', 'inheritUrlFromParent works');
my $properties2a = { my $properties2a = {
# '1234567890123456789012' # '1234567890123456789012'
@ -599,12 +599,12 @@ my $properties2a = {
my $iufpAsset2a = $iufpAsset->addChild($properties2a, $properties2a->{id}); my $iufpAsset2a = $iufpAsset->addChild($properties2a, $properties2a->{id});
$iufpAsset2a->commit; $iufpAsset2a->commit;
is($iufpAsset2a->get('url'), 'inheriturlfromparent01/inheriturlfromparent2a', '... works when created with the property'); is($iufpAsset2a->url, 'inheriturlfromparent01/inheriturlfromparent2a', '... works when created with the property');
# works for setting, now try disabling. Should not change the URL. # works for setting, now try disabling. Should not change the URL.
$iufpAsset2->update( { inheritUrlFromParent => 0 } ); $iufpAsset2->update( { inheritUrlFromParent => 0 } );
$iufpAsset2->commit; $iufpAsset2->commit;
is($iufpAsset2->get('url'), 'inheriturlfromparent01/inheriturlfromparent02', '... setting inheritUrlFromParent to 0 works'); is($iufpAsset2->url, 'inheriturlfromparent01/inheriturlfromparent02', '... setting inheritUrlFromParent to 0 works');
# also make sure that it is actually disabled # also make sure that it is actually disabled
is($iufpAsset2->get('inheritUrlFromParent'), 0, "... disabling inheritUrlFromParent actually works"); is($iufpAsset2->get('inheritUrlFromParent'), 0, "... disabling inheritUrlFromParent actually works");
@ -624,10 +624,10 @@ $iufpAsset2->update( { inheritUrlFromParent => 1 } );
$iufpAsset2->commit; $iufpAsset2->commit;
$iufpAsset3->update( { inheritUrlFromParent => 1 } ); $iufpAsset3->update( { inheritUrlFromParent => 1 } );
$iufpAsset3->commit; $iufpAsset3->commit;
is($iufpAsset3->get('url'), 'inheriturlfromparent01/inheriturlfromparent02/inheriturlfromparent03', '... recurses properly'); is($iufpAsset3->url, 'inheriturlfromparent01/inheriturlfromparent02/inheriturlfromparent03', '... recurses properly');
$iufpAsset2->update({url => 'iufp2'}); $iufpAsset2->update({url => 'iufp2'});
is($iufpAsset2->get('url'), 'inheriturlfromparent01/iufp2', '... update works propertly when iUFP is not passed'); is($iufpAsset2->url, 'inheriturlfromparent01/iufp2', '... update works propertly when iUFP is not passed');
################################################################ ################################################################
@ -648,9 +648,9 @@ $properties = {
url => 'moveVersionToParent_01', url => 'moveVersionToParent_01',
}; };
my $parentAsset = $defaultAsset->addChild($properties, $properties->{id}); my $parentAsset = $defaultAsset->addChild($properties, $properties->{id});
my $parentVersionTag = WebGUI::VersionTag->new($session, $parentAsset->get('tagId')); my $parentVersionTag = WebGUI::VersionTag->new($session, $parentAsset->tagId);
is($parentVersionTag->get('isCommitted'),0, 'built non-committed parent asset'); is($parentVersionTag->get('isCommitted'), 0, 'built non-committed parent asset');
my $versionTag6 = WebGUI::VersionTag->create($session, {}); my $versionTag6 = WebGUI::VersionTag->create($session, {});
@ -667,23 +667,23 @@ $properties2 = {
}; };
my $childAsset = $parentAsset->addChild($properties, $properties2->{id}); my $childAsset = $parentAsset->addChild($properties, $properties2->{id});
my $testAsset = WebGUI::Asset->newPending($session, $childAsset->get('parentId')); my $testAsset = WebGUI::Asset->newPending($session, $childAsset->parentId);
my $testVersionTag = WebGUI::VersionTag->new($session, $testAsset->get('tagId')); my $testVersionTag = WebGUI::VersionTag->new($session, $testAsset->tagId);
my $childVersionTag; my $childVersionTag;
$childVersionTag = WebGUI::VersionTag->new($session, $childAsset->get('tagId')); $childVersionTag = WebGUI::VersionTag->new($session, $childAsset->tagId);
is($childVersionTag->get('isCommitted'),0, 'built non-committed child asset'); is($childVersionTag->get('isCommitted'), 0, 'built non-committed child asset');
isnt($testAsset->get('tagId'),$childAsset->get('tagId'),'parent asset and child asset have different version tags'); isnt($testAsset->tagId, $childAsset->tagId, 'parent asset and child asset have different version tags');
isnt($testVersionTag->getId,$childVersionTag->getId,'parent asset and child asset version tags unmatched'); isnt($testVersionTag->getId, $childVersionTag->getId, 'parent asset and child asset version tags unmatched');
eval { eval {
$childAsset->requestAutoCommit; $childAsset->requestAutoCommit;
$childVersionTag = WebGUI::VersionTag->new($session, $childAsset->get('tagId')); $childVersionTag = WebGUI::VersionTag->new($session, $childAsset->tagId);
}; };
is($childVersionTag->get('isCommitted'),0, 'confirm non-committed child asset'); is($childVersionTag->get('isCommitted'), 0, 'confirm non-committed child asset');
is($testAsset->get('tagId'),$childAsset->get('tagId'),'parent asset and child asset have same version tags'); is($testAsset->tagId, $childAsset->tagId, 'parent asset and child asset have same version tags');
eval { eval {
$testVersionTag->commit; $testVersionTag->commit;