Add a test for GalleryFile

This commit is contained in:
Colin Kuskie 2010-03-09 13:59:31 -08:00
parent b60149d01b
commit db6090559b
2 changed files with 31 additions and 0 deletions

View file

@ -21,5 +21,6 @@ use Test::Asset::Template;
use Test::Asset::Redirect;
use Test::Asset::File::Image;
use Test::Asset::File::ZipArchive;
use Test::Asset::File::GalleryFile;
Test::Class->runtests;

View file

@ -0,0 +1,30 @@
package Test::Asset::File::GalleryFile;
#-------------------------------------------------------------------
# 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 FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;
use Test::Exception;
sub class {
return qw/WebGUI::Asset::File::GalleryFile/;
}
sub list_of_tables {
return [qw/assetData FileAsset GalleryFile/];
}
1;