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

Tests for Image, ZipArchive

Browse source
This commit is contained in:
Colin Kuskie 2010-03-09 13:52:07 -08:00
parent ffb7945c34
commit b60149d01b
3 changed files with 62 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/run_asset.t
View file

@ -19,5 +19,7 @@ use Test::Asset::Sku;
use Test::Asset::Wobject;
use Test::Asset::Template;
use Test::Asset::Redirect;
use Test::Asset::File::Image;
use Test::Asset::File::ZipArchive;
Test::Class->runtests;

30
t/tests/Test/Asset/File/Image.pm Normal file
View file

@ -0,0 +1,30 @@
package Test::Asset::File::Image;
#-------------------------------------------------------------------
# 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::Image/;
}
sub list_of_tables {
return [qw/assetData FileAsset ImageAsset/];
}
1;

30
t/tests/Test/Asset/File/ZipArchive.pm Normal file
View file

@ -0,0 +1,30 @@
package Test::Asset::File::ZipArchive;
#-------------------------------------------------------------------
# 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::ZipArchive/;
}
sub list_of_tables {
return [qw/assetData FileAsset ZipArchiveAsset/];
}
1;