Tests for Gallery and HttpProxy

t/run_asset.t

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

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

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

t/tests/Test/Asset/Wobject/HttpProxy.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;