Commit the version tag, add skipAutoCommitWorkflow. Fix syntax errors. Set the plan. Half the tests are failing

This commit is contained in:
Colin Kuskie 2007-12-21 19:06:49 +00:00
parent 0ba62f6824
commit 9044285f33

View file

@ -42,6 +42,11 @@ my $album
= $gallery->addChild({
className => "WebGUI::Asset::Wobject::GalleryAlbum",
ownerUserId => "3", # Admin
},
undef,
undef,
{
skipAutoCommitWorkflows => 1,
});
my @photos;
for my $i ( 0 .. 5 ) {
@ -49,18 +54,19 @@ for my $i ( 0 .. 5 ) {
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
filename => "$i.jpg",
},
undef,
undef,
{
skipAutoCommitWorkflows => 1,
});
}
#----------------------------------------------------------------------------
# Cleanup
END {
$versionTag->rollback();
}
$versionTag->commit;
#----------------------------------------------------------------------------
# Tests
plan no_plan => 1;
plan tests => 7;
#----------------------------------------------------------------------------
# Test getFileIds and getFilePaginator
@ -117,7 +123,7 @@ $expected = {
"file_loop" => bag( map { $_->getTemplateVars } @photos ),
};
cmp_deeply(
$album->appendTemplateVarsFileLoop({},$self->getFilePaginator->getPageData),
$album->appendTemplateVarsFileLoop({},$album->getFilePaginator->getPageData),
$expected
);
@ -130,3 +136,8 @@ $maker->prepare({
});
$maker->run;
#----------------------------------------------------------------------------
# Cleanup
END {
$versionTag->rollback();
}