Adding a basic AssetTrash test to quickly check the purge method.

t/Asset/AssetTrash.t

@@ -0,0 +1,53 @@
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2007 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 strict;
+use lib "$FindBin::Bin/../lib";
+
+use WebGUI::Test;
+use WebGUI::Session;
+use WebGUI::User;
+
+use WebGUI::Asset;
+use Test::More tests => 1; # increment this value for each test you create
+use Test::Deep;
+
+# Test the methods in WebGUI::AssetLineage
+
+my $session = WebGUI::Test->session;
+
+my $versionTag = WebGUI::VersionTag->getWorking($session);
+$versionTag->set({name=>"AssetLineage Test"});
+
+my $root = WebGUI::Asset->getRoot($session);
+my $topFolder = $root->addChild({
+    url   => 'TopFolder',
+    title => 'TopFolder',
+    menuTitle   => 'topFolderMenuTitle',
+    groupIdEdit => 3,
+    className   => 'WebGUI::Asset::Wobject::Folder',
+});
+
+$versionTag->commit;
+
+####################################################
+#
+# purge
+#
+####################################################
+
+is($topFolder->purge, 1, 'purge returns 1 if asset can be purged');
+
+END {
+    foreach my $tag ($versionTag) {
+        $tag->rollback;
+    }
+}