Tests for Gallery and HttpProxy

This commit is contained in:
Colin Kuskie 2010-03-09 15:57:43 -08:00
parent 4fa1e0084c
commit fe5085f346
3 changed files with 64 additions and 0 deletions

View file

@ -30,6 +30,8 @@ use Test::Asset::Wobject::DataForm;
use Test::Asset::Wobject::DataTable;
use Test::Asset::Wobject::EventManagementSystem;
use Test::Asset::Wobject::Folder;
use Test::Asset::Wobject::Gallery;
use Test::Asset::Wobject::GalleryAlbum;
use Test::Asset::Wobject::HttpProxy;
Test::Class->runtests;

View file

@ -0,0 +1,29 @@
package Test::Asset::Wobject::Gallery;
#-------------------------------------------------------------------
# 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 Test::More;
use Test::Deep;
use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Gallery/;
}
sub list_of_tables {
return [qw/assetData wobject Gallery assetAspectRssFeed/];
}
1;

View file

@ -0,0 +1,33 @@
package Test::Asset::Wobject::HttpProxy;
#-------------------------------------------------------------------
# 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 Test::More;
use Test::Deep;
use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::HttpProxy/;
}
sub assetUiLevel {
return 5;
}
sub list_of_tables {
return [qw/assetData wobject HttpProxy/];
}
1;