Calculate class to load. Remove class method from each test file. Fix typos.

This commit is contained in:
Colin Kuskie 2010-03-13 19:17:13 -08:00
parent f7589e6237
commit 20507ee883
47 changed files with 138 additions and 280 deletions

View file

@ -8,5 +8,7 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib 'tests';
use Test::Class::Load qw{tests/Test}; use Test::Class::Load qw{tests/Test};
Test::Class->runtests; Test::Class->runtests;

View file

@ -28,18 +28,10 @@ sub list_of_tables {
return [qw/assetData/]; return [qw/assetData/];
} }
sub _00_init : Test(startup) {
my $test = shift;
my $session = WebGUI::Test->session;
$test->{_session} = $session;
note "Loading ". $test->class;
eval { WebGUI::Asset->loadModule($test->class); };
}
sub _constructor : Test(4) { sub _constructor : Test(4) {
my $test = shift; my $test = shift;
my $session = $test->session; my $session = $test->session;
my $asset = $test->class->new({session => $session}); my $asset = $test->class->new({session => $session});
isa_ok $asset, $test->class; isa_ok $asset, $test->class;
isa_ok $asset->session, 'WebGUI::Session'; isa_ok $asset->session, 'WebGUI::Session';
@ -319,4 +311,3 @@ __END__
is $properties->{parentId}, 'I have a parent', '... works on parentId'; is $properties->{parentId}, 'I have a parent', '... works on parentId';
} }

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::File/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData FileAsset/]; return [qw/assetData FileAsset/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::File::GalleryFile/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData FileAsset GalleryFile/]; return [qw/assetData FileAsset GalleryFile/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::File::Image/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData FileAsset ImageAsset/]; return [qw/assetData FileAsset ImageAsset/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::File::ZipArchive/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData FileAsset ZipArchiveAsset/]; return [qw/assetData FileAsset ZipArchiveAsset/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Redirect/;
}
sub assetUiLevel { sub assetUiLevel {
return 9; return 9;

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::RichEdit/;
}
sub assetUiLevel { sub assetUiLevel {
return 5; return 5;

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Shortcut/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData Shortcut/]; return [qw/assetData Shortcut/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Sku/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData sku/]; return [qw/assetData sku/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Snippet/;
}
sub assetUiLevel { sub assetUiLevel {
return 5; return 5;

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Template/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData template/]; return [qw/assetData template/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject/]; return [qw/assetData wobject/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Article/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Article/]; return [qw/assetData wobject Article/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Calendar/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Calendar/]; return [qw/assetData wobject Calendar/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Carousel/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Carousel/]; return [qw/assetData wobject Carousel/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Collaboration/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Collaboration assetAspectRssFeed/]; return [qw/assetData wobject Collaboration assetAspectRssFeed/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::HttpProxy/;
}
sub assetUiLevel { sub assetUiLevel {
return 5; return 5;

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::DataForm/;
}
sub assetUiLevel { sub assetUiLevel {
return 5; return 5;

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::DataTable/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject DataTable/]; return [qw/assetData wobject DataTable/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::EventManagementSystem/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject EventManagementSystem/]; return [qw/assetData wobject EventManagementSystem/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Folder/;
}
sub assetUiLevel { sub assetUiLevel {
return 5; return 5;

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Gallery/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Gallery assetAspectRssFeed/]; return [qw/assetData wobject Gallery assetAspectRssFeed/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::GalleryAlbum/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject GalleryAlbum assetAspectRssFeed/]; return [qw/assetData wobject GalleryAlbum assetAspectRssFeed/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::HttpProxy/;
}
sub assetUiLevel { sub assetUiLevel {
return 5; return 5;

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::InOutBoard/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject InOutBoard/]; return [qw/assetData wobject InOutBoard/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Layout/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Layout/]; return [qw/assetData wobject Layout/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Map/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Map/]; return [qw/assetData wobject Map/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Matrix/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Matrix/]; return [qw/assetData wobject Matrix/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::MessageBoard/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject MessageBoard/]; return [qw/assetData wobject MessageBoard/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::MultiSearch/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject MultiSearch/]; return [qw/assetData wobject MultiSearch/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Navigation/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Navigation/]; return [qw/assetData wobject Navigation/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Poll/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Poll/]; return [qw/assetData wobject Poll/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::ProjectManager/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject PM_wobject/]; return [qw/assetData wobject PM_wobject/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::SQLReport/;
}
sub assetUiLevel { sub assetUiLevel {
return 5; return 5;

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Search/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject search/]; return [qw/assetData wobject search/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Shelf/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Shelf/]; return [qw/assetData wobject Shelf/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::StockData/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject StockData/]; return [qw/assetData wobject StockData/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::StoryArchive/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject StoryArchive assetAspectRssFeed/]; return [qw/assetData wobject StoryArchive assetAspectRssFeed/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::StoryTopic/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject StoryTopic assetAspectRssFeed/]; return [qw/assetData wobject StoryTopic assetAspectRssFeed/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Survey/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Survey/]; return [qw/assetData wobject Survey/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::SyndicatedContent/;
}
sub assetUiLevel { sub assetUiLevel {
return 6; return 6;

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::Thingy/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject Thingy/]; return [qw/assetData wobject Thingy/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::TimeTracking/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject TT_wobject/]; return [qw/assetData wobject TT_wobject/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::UserList/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject UserList/]; return [qw/assetData wobject UserList/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::WeatherData/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject WeatherData/]; return [qw/assetData wobject WeatherData/];

View file

@ -14,13 +14,10 @@ use lib "$FindBin::Bin/lib";
use base qw/Test::WebGUI::Asset/; use base qw/Test::WebGUI::Asset/;
use Test::WebGUI::More; use Test::More;
use Test::WebGUI::Deep; use Test::Deep;
use Test::WebGUI::Exception; use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject::WikiMaster/;
}
sub list_of_tables { sub list_of_tables {
return [qw/assetData wobject WikiMaster assetAspectRssFeed assetAspectComments assetAspect_Subscribable/]; return [qw/assetData wobject WikiMaster assetAspectRssFeed assetAspectComments assetAspect_Subscribable/];