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

Added WebGUI::Asset::File::GalleryFile

Browse source 
Changed Photo to subclass WebGUI::Asset::File::GalleryFile
This commit is contained in:
Doug Bell 2008-03-05 23:06:58 +00:00
parent 9695b704c5
commit 3842ebf6fa
23 changed files with 360 additions and 115 deletions
Download patch file Download diff file Expand all files Collapse all files

10
t/Asset/File/Image/Photo/00base.t → t/Asset/File/GalleryFile/Photo/00base.t
View file

@ -54,13 +54,13 @@ plan tests => 5;
#----------------------------------------------------------------------------
# Test module compiles okay
# plan tests => 1
use_ok("WebGUI::Asset::File::Image::Photo");
use_ok("WebGUI::Asset::File::GalleryFile::Photo");
#----------------------------------------------------------------------------
# Test creating a photo
$photo
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
},
undef,
undef,
@ -71,12 +71,12 @@ $photo
$versionTag->commit;
is(
blessed $photo, "WebGUI::Asset::File::Image::Photo",
"Photo is a WebGUI::Asset::File::Image::Photo object",
blessed $photo, "WebGUI::Asset::File::GalleryFile::Photo",
"Photo is a WebGUI::Asset::File::GalleryFile::Photo object",
);
isa_ok(
$photo, "WebGUI::Asset::File::Image",
$photo, "WebGUI::Asset::File::GalleryFile",
);

6
t/Asset/File/Image/Photo/comment.t → t/Asset/File/GalleryFile/Photo/comment.t
View file

@ -20,7 +20,7 @@ use WebGUI::Session;
use Test::More;
use Test::Deep;
use Scalar::Util qw( blessed );
use WebGUI::Asset::File::Image::Photo;
use WebGUI::Asset::File::GalleryFile::Photo;
#----------------------------------------------------------------------------
# Init
@ -43,7 +43,7 @@ my $album
}, @addArguments );
my $photo
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
}, @addArguments );
$versionTags[-1]->commit;
@ -195,7 +195,7 @@ TODO: {
my $html;
$photo
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
}, @addArguments );
# Permissions

4
t/Asset/File/Image/Photo/download.t → t/Asset/File/GalleryFile/Photo/download.t
View file

@ -19,7 +19,7 @@ use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;
use WebGUI::Asset::File::Image::Photo;
use WebGUI::Asset::File::GalleryFile::Photo;
#----------------------------------------------------------------------------
# Init
@ -47,7 +47,7 @@ my $album
});
my $photo
= $gallery->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
},
undef,
undef,

8
t/Asset/File/Image/Photo/editSave.t → t/Asset/File/GalleryFile/Photo/editSave.t
View file

@ -20,7 +20,7 @@ use WebGUI::Test;
use WebGUI::Session;
use Test::More;
use WebGUI::Test::Maker::HTML;
use WebGUI::Asset::File::Image::Photo;
use WebGUI::Asset::File::GalleryFile::Photo;
#----------------------------------------------------------------------------
# Init
@ -49,7 +49,7 @@ my $album
});
my $photo
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
},
undef,
undef,
@ -91,7 +91,7 @@ $maker->prepare({
method => "www_editSave",
formParams => {
assetId => "new",
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
},
test_regex => [
qr/You must select a file/,
@ -107,7 +107,7 @@ $maker->prepare({
method => "www_editSave",
formParams => {
assetId => "new",
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
},
test_regex => [
qr/awaiting approval and commit/,

2
t/Asset/File/Image/Photo/exif.t → t/Asset/File/GalleryFile/Photo/exif.t
View file

@ -41,7 +41,7 @@ my $album
);
my $photo
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
},
undef, undef,
{ skipAutoCommitWorkflows => 1 },

10
t/Asset/File/Image/Photo/makeResolutions.t → t/Asset/File/GalleryFile/Photo/makeResolutions.t
View file

@ -29,7 +29,7 @@ BEGIN {
$graphicsClass = 'Graphics::Magick';
}
}
use WebGUI::Asset::File::Image::Photo;
use WebGUI::Asset::File::GalleryFile::Photo;
#----------------------------------------------------------------------------
# Init
@ -63,7 +63,7 @@ plan tests => 13;
# makeResolutions gets default resolutions from a parent Photo Gallery asset
$photo
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
},
undef,
undef,
@ -110,7 +110,7 @@ $album
});
$photo
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
},
undef,
undef,
@ -148,7 +148,7 @@ TODO: {
push @versionTags, WebGUI::VersionTag->getWorking($session);
$photo
= $node->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
},
undef,
undef,
@ -185,7 +185,7 @@ TODO: {
push @versionTags, WebGUI::VersionTag->getWorking($session);
$photo
= $node->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
},
undef,
undef,

4
t/Asset/File/Image/Photo/makeShortcut.t → t/Asset/File/GalleryFile/Photo/makeShortcut.t
View file

@ -20,7 +20,7 @@ use WebGUI::Test;
use WebGUI::Session;
use Test::More;
use WebGUI::Test::Maker::HTML;
use WebGUI::Asset::File::Image::Photo;
use WebGUI::Asset::File::GalleryFile::Photo;
#----------------------------------------------------------------------------
# Init
@ -35,7 +35,7 @@ my $otherParent
});
my $photo
= $node->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
userDefined1 => "ORIGINAL",
},
undef,

2
t/Asset/File/Image/Photo/permissions.t → t/Asset/File/GalleryFile/Photo/permissions.t
View file

@ -63,7 +63,7 @@ my $album
my $photo
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
friendsOnly => 0,
},
undef,

4
t/Asset/File/Image/Photo/setFile.t → t/Asset/File/GalleryFile/Photo/setFile.t
View file

@ -19,7 +19,7 @@ use WebGUI::Test;
use WebGUI::Session;
use Test::More;
use Test::Deep;
use WebGUI::Asset::File::Image::Photo;
use WebGUI::Asset::File::GalleryFile::Photo;
#----------------------------------------------------------------------------
# Init
@ -43,7 +43,7 @@ my $album
});
my $photo
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
},
undef,
undef,

4
t/Asset/File/Image/Photo/view.t → t/Asset/File/GalleryFile/Photo/view.t
View file

@ -19,7 +19,7 @@ use WebGUI::Test;
use WebGUI::Session;
use Test::More;
use WebGUI::Test::Maker::HTML;
use WebGUI::Asset::File::Image::Photo;
use WebGUI::Asset::File::GalleryFile::Photo;
#----------------------------------------------------------------------------
# Init
@ -43,7 +43,7 @@ my $album
});
my $photo
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
},
undef,
undef,

2
t/Asset/Wobject/GalleryAlbum/rss.t
View file

@ -51,7 +51,7 @@ my @photos;
for my $i ( 0 .. 5 ) {
$photos[ $i ]
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
filename => "$i.jpg",
},
undef,

2
t/Asset/Wobject/GalleryAlbum/slideshow.t
View file

@ -51,7 +51,7 @@ my @photos;
for my $i ( 0 .. 5 ) {
$photos[ $i ]
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
filename => "$i.jpg",
},
undef,

2
t/Asset/Wobject/GalleryAlbum/thumbnails.t
View file

@ -51,7 +51,7 @@ my @photos;
for my $i ( 0 .. 5 ) {
$photos[ $i ]
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
filename => "$i.jpg",
},
undef,

4
t/Asset/Wobject/GalleryAlbum/view.t
View file

@ -52,7 +52,7 @@ my @photos;
for my $i ( 0 .. 5 ) {
$photos[ $i ]
= $album->addChild({
className => "WebGUI::Asset::File::Image::Photo",
className => "WebGUI::Asset::File::GalleryFile::Photo",
filename => "$i.jpg",
},
undef,
@ -87,7 +87,7 @@ cmp_deeply( $album->getTemplateVars, superhashof( { %{$album->get}, url => $albu
my $expected = {
"url_addPhoto"
=> all(
re( qr/class=WebGUI::Asset::File::Image::Photo/ ),
re( qr/class=WebGUI::Asset::File::GalleryFile::Photo/ ),
re( qr/func=add/ ),
re( $album->getUrl ),
),