Tests for Image, ZipArchive

t/run_asset.t

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

t/tests/Test/Asset/File/Image.pm

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

t/tests/Test/Asset/File/ZipArchive.pm

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