Add tests for most other wobjects. Block broken code in Role/Asset/Comments. Refactor run_asset.t

t/run_asset.t

@@ -8,39 +8,5 @@
 # http://www.plainblack.com                     info@plainblack.com
 #-------------------------------------------------------------------
 
-use lib 'tests';
-
-use Test::AssetBase;
-use Test::Asset::File;
-use Test::Asset::File::Image;
-use Test::Asset::File::ZipArchive;
-use Test::Asset::File::GalleryFile;
-use Test::Asset::Redirect;
-use Test::Asset::RichEdit;
-use Test::Asset::Shortcut;
-use Test::Asset::Sku;
-use Test::Asset::Snippet;
-use Test::Asset::Template;
-use Test::Asset::Wobject;
-use Test::Asset::Wobject::Article;
-use Test::Asset::Wobject::Calendar;
-use Test::Asset::Wobject::Carousel;
-use Test::Asset::Wobject::Collaboration;
-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;
-use Test::Asset::Wobject::InOutBoard;
-use Test::Asset::Wobject::Layout;
-use Test::Asset::Wobject::Map;
-use Test::Asset::Wobject::Matrix;
-use Test::Asset::Wobject::MessageBoard;
-use Test::Asset::Wobject::MultiSearch;
-use Test::Asset::Wobject::Navigation;
-use Test::Asset::Wobject::Poll;
-use Test::Asset::Wobject::ProjectManager;
-
+use Test::Class::Load qw/tests/;
 Test::Class->runtests;

t/tests/Test/Asset/Wobject/Collaboration

@@ -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;

t/tests/Test/Asset/Wobject/Dashboard.pm

@@ -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;

t/tests/Test/Asset/Wobject/HttpProxy

@@ -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;

t/tests/Test/Asset/Wobject/Navigation.pm

@@ -0,0 +1,29 @@
+package Test::Asset::Wobject::Navigation;
+#-------------------------------------------------------------------
+# 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::Navigation/;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject Navigation/];
+}
+
+1;

t/tests/Test/Asset/Wobject/Poll.pm

@@ -0,0 +1,29 @@
+package Test::Asset::Wobject::Poll;
+#-------------------------------------------------------------------
+# 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::Poll/;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject Poll/];
+}
+
+1;

t/tests/Test/Asset/Wobject/ProjectManager.pm

@@ -0,0 +1,29 @@
+package Test::Asset::Wobject::ProjectManager;
+#-------------------------------------------------------------------
+# 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::ProjectManager/;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject PM_wobject/];
+}
+
+1;

t/tests/Test/Asset/Wobject/SQLReport.pm

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

t/tests/Test/Asset/Wobject/Search.pm

@@ -0,0 +1,29 @@
+package Test::Asset::Wobject::Search;
+#-------------------------------------------------------------------
+# 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::Search/;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject search/];
+}
+
+1;

t/tests/Test/Asset/Wobject/Shelf.pm

@@ -0,0 +1,29 @@
+package Test::Asset::Wobject::Shelf;
+#-------------------------------------------------------------------
+# 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::Shelf/;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject Shelf/];
+}
+
+1;

t/tests/Test/Asset/Wobject/StockData.pm

@@ -0,0 +1,29 @@
+package Test::Asset::Wobject::StockData;
+#-------------------------------------------------------------------
+# 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::StockData/;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject StockData/];
+}
+
+1;

t/tests/Test/Asset/Wobject/StoryArchive.pm

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

t/tests/Test/Asset/Wobject/StoryTopic.pm

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

t/tests/Test/Asset/Wobject/Survey

@@ -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;

t/tests/Test/Asset/Wobject/Survey.pm

@@ -0,0 +1,29 @@
+package Test::Asset::Wobject::Survey;
+#-------------------------------------------------------------------
+# 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::Survey/;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject Survey/];
+}
+
+1;

t/tests/Test/Asset/Wobject/SyndicatedContent.pm

@@ -0,0 +1,33 @@
+package Test::Asset::Wobject::SyndicatedContent;
+#-------------------------------------------------------------------
+# 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::SyndicatedContent/;
+}
+
+sub assetUiLevel {
+     return 6;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject SyndicatedContent assetAspectRssFeed/];
+}
+
+1;

t/tests/Test/Asset/Wobject/Thingy.pm

@@ -0,0 +1,29 @@
+package Test::Asset::Wobject::Thingy;
+#-------------------------------------------------------------------
+# 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::Thingy/;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject Thingy/];
+}
+
+1;

t/tests/Test/Asset/Wobject/TimeTracking.pm

@@ -0,0 +1,29 @@
+package Test::Asset::Wobject::TimeTracking;
+#-------------------------------------------------------------------
+# 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::TimeTracking/;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject TT_wobject/];
+}
+
+1;

t/tests/Test/Asset/Wobject/UserList.pm

@@ -0,0 +1,29 @@
+package Test::Asset::Wobject::UserList;
+#-------------------------------------------------------------------
+# 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::UserList/;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject UserList/];
+}
+
+1;

t/tests/Test/Asset/Wobject/WeatherData.pm

@@ -0,0 +1,29 @@
+package Test::Asset::Wobject::WeatherData;
+#-------------------------------------------------------------------
+# 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::WeatherData/;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject WeatherData/];
+}
+
+1;

t/tests/Test/Asset/Wobject/WikiMaster.pm

@@ -0,0 +1,29 @@
+package Test::Asset::Wobject::WikiMaster;
+#-------------------------------------------------------------------
+# 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::WikiMaster/;
+}
+
+sub list_of_tables {
+     return [qw/assetData wobject WikiMaster assetAspectRssFeed assetAspectComments assetAspect_Subscribable/];
+}
+
+1;

t/tests/Test/AssetBase.pm

@@ -206,11 +206,11 @@ sub keywords : Test(3) {
     is $asset->get('keywords'), 'chess set', 'via get method';
 }
 
-sub keywords : Test(1) {
+sub get_tables : Test(1) {
     my $test    = shift;
     note "get_tables";
     my @tables = $test->class->meta->get_tables;
-    cmp_deeply(
+    cmp_bag(
         \@tables,
         $test->list_of_tables,
         'Set of tables for properties is correct'