AssetLineage tests, and place holders for AssetLineage

This commit is contained in:
Colin Kuskie 2007-04-13 17:27:51 +00:00
parent 1013381c36
commit 15c245b06a
2 changed files with 70 additions and 3 deletions

View file

@ -211,7 +211,7 @@ sub getFirstChild {
my $assetLineage = $self->session->stow->get("assetLineage");
my $lineage = $assetLineage->{firstChild}{$self->getId};
unless ($lineage) {
($lineage) = $self->session->db->quickArray("select min(asset.lineage) from asset,assetData where asset.parentId=".$self->session->db->quote($self->getId)." and asset.assetId=assetData.assetId and asset.state='published'");
($lineage) = $self->session->db->quickArray("select min(asset.lineage) from asset,assetData where asset.parentId=? and asset.assetId=assetData.assetId and asset.state='published'",[$self->getId]);
unless ($self->session->config->get("disableCache")) {
$assetLineage->{firstChild}{$self->getId} = $lineage;
$self->session->stow->set("assetLineage", $assetLineage);
@ -237,7 +237,7 @@ sub getLastChild {
my $assetLineage = $self->session->stow->get("assetLineage");
my $lineage = $assetLineage->{lastChild}{$self->getId};
unless ($lineage) {
($lineage) = $self->session->db->quickArray("select max(asset.lineage) from asset,assetData where asset.parentId=".$self->session->db->quote($self->getId)." and asset.assetId=assetData.assetId and asset.state='published'");
($lineage) = $self->session->db->quickArray("select max(asset.lineage) from asset,assetData where asset.parentId=? and asset.assetId=assetData.assetId and asset.state='published'",[$self->getId]);
$assetLineage->{lastChild}{$self->getId} = $lineage;
$self->session->stow->set("assetLineage", $assetLineage);
}

View file

@ -16,7 +16,8 @@ use WebGUI::Test;
use WebGUI::Session;
use WebGUI::Asset;
use Test::More tests => 2; # increment this value for each test you create
use Test::More tests => 9; # increment this value for each test you create
use Test::Deep;
# Test the methods in WebGUI::AssetLineage
@ -27,4 +28,70 @@ my $asset = WebGUI::Asset->getImportNode($session);
is($asset->formatRank(76), "000076", "formatRank()");
is($asset->getLineageLength(), (length($asset->get("lineage")) / 6), "getLineageLength()");
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"AssetLineage Test"});
my $root = WebGUI::Asset->getRoot($session);
my $folder = $root->addChild({
url => 'testFolder',
title => 'folder',
menuTitle => 'folderMenuTitle',
className => 'WebGUI::Asset::Wobject::Folder',
isPackage => 1,
});
my @snippets = ();
foreach my $snipNum (0..6) {
push @snippets,
$folder->addChild( {
className => "WebGUI::Asset::Snippet",
groupIdView => 7,
groupIdEdit => 3,
title => "Snippet $snipNum",
menuTitle => $snipNum,
});
}
$versionTag->commit;
my @snipIds = map { $_->getId } @snippets;
my $lineageIds = $folder->getLineage(['descendants']);
cmp_bag(\@snipIds, $lineageIds, 'default order returned by getLineage is lineage order');
####################################################
#
# getFirstChild
#
####################################################
is($snippets[0]->getId, $folder->getFirstChild->getId, 'getFirstChild');
####################################################
#
# getLastChild
#
####################################################
is($snippets[-1]->getId, $folder->getLastChild->getId, 'getLastChild');
####################################################
#
# getChildCount
#
####################################################
is(scalar @snippets, $folder->getChildCount, 'getChildCount');
####################################################
#
# hasChildren
#
####################################################
ok($folder->hasChildren, 'test folder has children');
ok($root->hasChildren, 'root node has children');
ok(!$snippets[0]->hasChildren, 'test snippet has no children');
END {
$versionTag->rollback;
}