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

Add a version tag so we work on a committed parent.

Browse source
This commit is contained in:
Colin Kuskie 2010-03-24 17:02:05 -07:00
parent 54f0148ec9
commit 237eaa9990
2 changed files with 31 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -195,12 +195,14 @@ sub write_update : Test(8) {
sub keywords : Test(3) {
my $test = shift;
my $session = $test->session;
note "keywords for ".$test->class;
my $tag = WebGUI::VersionTag->getWorking($session);
my @parents = $test->getMyParents;
my $asset = $parents[-1]->addChild({
my $asset = $parents[-1]->addChild({
className => $test->class,
}, undef, undef, {skipNotification => 1, skipAutoCommitWorkflows => 1,});
addToCleanup($asset);
$tag->commit;
addToCleanup($tag);
can_ok $asset, 'keywords';
$asset->keywords('chess set');
is $asset->keywords, 'chess set', 'set and get of keywords via direct accessor';

27
t/tests/Test/WebGUI/Asset/MapPoint.pm Normal file
View file

@ -0,0 +1,27 @@
package Test::WebGUI::Asset::MapPoint;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use base qw/Test::WebGUI::Asset/;
use Test::More;
use Test::Deep;
use Test::Exception;
sub list_of_tables {
return [qw/assetData MapPoint/];
}
sub parent_list {
return ['WebGUI::Asset::Wobject::Map'];
}
1;