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

Check the Asset, not the class, and make sure it is loaded.

Browse source
This commit is contained in:
Colin Kuskie 2010-03-23 11:54:19 -07:00
parent 4a78377936
commit 22bbf2e23c
3 changed files with 49 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

35
t/tests/Test/WebGUI/Asset.pm
View file

@ -14,13 +14,33 @@ use Test::More;
use Test::Deep;
use Test::Exception;
use WebGUI::Test;
use WebGUI::Utility;
sub assetUiLevel {
return 1;
return 1;
}
sub list_of_tables {
return [qw/assetData/];
return [qw/assetData/];
}
sub getMyParent {
my $test = shift;
my $session = $test->session;
my $parentClasses = $test->class->valid_parent_classes;
my $default = WebGUI::Asset->getDefault($session);
if (WebGUI::Utility::isIn('WebGUI::Asset', @{ $parentClasses}) ) {
return $default;
}
else {
my $class = $parentClasses->[0];
note "Adding a parent of $class";
my $parent = $default->addChild({
className => $class,
}, undef, undef, {skipNotification => 1, skipAutoCommitWorkflows => 1,});
addToCleanup($parent);
return $parent;
}
}
sub _constructor : Test(4) {
@ -173,11 +193,14 @@ sub write_update : Test(8) {
sub keywords : Test(3) {
my $test = shift;
my $session = $test->session;
note "keywords";
my $default = WebGUI::Asset->getDefault($session);
my $asset = $default->addChild({
note "keywords for ".$test->class;
use Data::Dumper;
warn Dumper $test->class->valid_parent_classes;
my $parent = $test->getMyParent;
note "got parent and it is a ".ref $parent;
my $asset = $parent->addChild({
className => $test->class,
});
}, undef, undef, {skipNotification => 1, skipAutoCommitWorkflows => 1,});
addToCleanup($asset);
can_ok $asset, 'keywords';
$asset->keywords('chess set');