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

clean up test warnings

Browse source
This commit is contained in:
Graham Knop 2008-06-20 08:57:34 +00:00
parent 11dfcd6277
commit d3e802b1cf
22 changed files with 11 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

6
t/Asset/File/GalleryFile/Photo/00base.t
View file

@ -14,7 +14,7 @@ use lib "$FindBin::Bin/../../../../lib";
## The goal of this test is to test the creation and deletion of photo assets
use Scalar::Util qw( blessed );
use Scalar::Util;
use WebGUI::Test;
use WebGUI::Session;
use Test::More;
@ -71,7 +71,7 @@ $photo
$versionTag->commit;
is(
blessed $photo, "WebGUI::Asset::File::GalleryFile::Photo",
Scalar::Util::blessed($photo), "WebGUI::Asset::File::GalleryFile::Photo",
"Photo is a WebGUI::Asset::File::GalleryFile::Photo object",
);
@ -81,7 +81,7 @@ isa_ok(
is(
blessed $photo->getGallery, "WebGUI::Asset::Wobject::Gallery",
Scalar::Util::blessed($photo->getGallery), "WebGUI::Asset::Wobject::Gallery",
"Photo->getGallery gets the gallery containing this photo",
);

4
t/Asset/File/GalleryFile/Photo/comment.t
View file

@ -19,7 +19,7 @@ use WebGUI::Test;
use WebGUI::Session;
use Test::More;
use Test::Deep;
use Scalar::Util qw( blessed );
use Scalar::Util;
use WebGUI::Asset::File::GalleryFile::Photo;
#----------------------------------------------------------------------------
@ -55,7 +55,7 @@ plan tests => 32;
#----------------------------------------------------------------------------
# Test with no comments
is(
blessed $photo->getCommentPaginator, "WebGUI::Paginator",
Scalar::Util::blessed($photo->getCommentPaginator), "WebGUI::Paginator",
"Photo with no comments still provides comments paginator",
);

1
t/Asset/File/GalleryFile/Photo/download.t
View file

@ -15,7 +15,6 @@ use FindBin;
use strict;
use lib "$FindBin::Bin/../../../../lib";
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;

1
t/Asset/File/GalleryFile/Photo/exif.t
View file

@ -15,7 +15,6 @@ use lib "$FindBin::Bin/../../../../lib";
## The goal of this test is to test the EXIF functionality of WebGUI's photo
# asset
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;

1
t/Asset/File/GalleryFile/Photo/makeResolutions.t
View file

@ -15,7 +15,6 @@ use lib "$FindBin::Bin/../../../../lib";
## The goal of this test is to test the creation of photo download
# resolutions
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;

2
t/Asset/File/GalleryFile/Photo/makeShortcut.t
View file

@ -15,7 +15,7 @@ use FindBin;
use strict;
use lib "$FindBin::Bin/../../../../lib";
use Scalar::Util qw( blessed );
use Scalar::Util;
use WebGUI::Test;
use WebGUI::Session;
use Test::More;

1
t/Asset/File/GalleryFile/Photo/permissions.t
View file

@ -14,7 +14,6 @@ use FindBin;
use strict;
use lib "$FindBin::Bin/../../../../lib";
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use WebGUI::Friends;

1
t/Asset/File/GalleryFile/Photo/setFile.t
View file

@ -14,7 +14,6 @@ use lib "$FindBin::Bin/../../../../lib";
## The goal of this test is to test the creation and deletion of photo assets
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;

1
t/Asset/File/GalleryFile/Photo/view.t
View file

@ -14,7 +14,6 @@ use FindBin;
use strict;
use lib "$FindBin::Bin/../../../../lib";
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::HTML;
use WebGUI::Session;

1
t/Asset/File/Image/setfile.t
View file

@ -15,7 +15,6 @@ use lib "$FindBin::Bin/../../../lib";
## The goal of this test is to test the additional functionality of the
# overridden setFile method
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;

1
t/Asset/File/setfile.t
View file

@ -14,7 +14,6 @@ use lib "$FindBin::Bin/../../lib";
## The goal of this test is to test the creation and deletion of photo assets
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;

2
t/Asset/Shortcut/010-linked-asset.t
View file

@ -62,7 +62,7 @@ ok(
);
is(
blessed $original, blessed $snippet,
Scalar::Util::blessed($original), Scalar::Util::blessed($snippet),
"Original asset class is correct",
);

4
t/Asset/Wobject/Gallery/00base.t
View file

@ -14,7 +14,7 @@ use lib "$FindBin::Bin/../../../lib";
## The goal of this test is to test the creation and deletion of gallery assets
use Scalar::Util qw( blessed );
use Scalar::Util;
use WebGUI::Test;
use WebGUI::Session;
use Test::More;
@ -42,7 +42,7 @@ my $gallery
$versionTag->commit;
is(
blessed $gallery, "WebGUI::Asset::Wobject::Gallery",
Scalar::Util::blessed($gallery), "WebGUI::Asset::Wobject::Gallery",
"Gallery is a WebGUI::Asset::Wobject::Gallery object",
);

1
t/Asset/Wobject/Gallery/permission.t
View file

@ -14,7 +14,6 @@ use lib "$FindBin::Bin/../../../lib";
## The goal of this test is to test permissions inside Gallerys
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use WebGUI::Test::Maker::Permission;

4
t/Asset/Wobject/GalleryAlbum/00base.t
View file

@ -14,7 +14,7 @@ use lib "$FindBin::Bin/../../../lib";
## The goal of this test is to test the creation and deletion of album assets
use Scalar::Util qw( blessed );
use Scalar::Util;
use WebGUI::Test;
use WebGUI::Session;
use Test::More;
@ -53,7 +53,7 @@ my $album
$versionTag->commit;
is(
blessed $album, "WebGUI::Asset::Wobject::GalleryAlbum",
Scalar::Util::blessed($album), "WebGUI::Asset::Wobject::GalleryAlbum",
"Album is a WebGUI::Asset::Wobject::GalleryAlbum object",
);

1
t/Asset/Wobject/GalleryAlbum/addArchive.t
View file

@ -15,7 +15,6 @@ use lib "$FindBin::Bin/../../../lib";
## The goal of this test is to test the permissions of GalleryAlbum assets
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;

1
t/Asset/Wobject/GalleryAlbum/delete.t
View file

@ -15,7 +15,6 @@ use lib "$FindBin::Bin/../../../lib";
## The goal of this test is to test the deleting of GalleryAlbums
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Test::Maker::HTML;
use WebGUI::Session;

1
t/Asset/Wobject/GalleryAlbum/permission.t
View file

@ -14,7 +14,6 @@ use lib "$FindBin::Bin/../../../lib";
## The goal of this test is to test the permissions of GalleryAlbum assets
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;

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

@ -15,7 +15,6 @@ use lib "$FindBin::Bin/../../../lib";
## The goal of this test is to test the rss view of GalleryAlbums
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;

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

@ -15,7 +15,6 @@ use lib "$FindBin::Bin/../../../lib";
## The goal of this test is to test the slideshow view of GalleryAlbums
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;

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

@ -15,7 +15,6 @@ use lib "$FindBin::Bin/../../../lib";
## The goal of this test is to test the thumbnails view of GalleryAlbums
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;

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

@ -15,7 +15,6 @@ use lib "$FindBin::Bin/../../../lib";
## The goal of this test is to test the default view and associated subs
use Scalar::Util qw( blessed );
use WebGUI::Test;
use WebGUI::Session;
use Test::More;