fix: Shortcuts now follow their linked asset when trashing, purging, and restoring from trash

t/Asset/Shortcut/000-create-delete.t

@@ -0,0 +1,74 @@
+#-------------------------------------------------------------------
+# 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";
+
+## The goal of this test is to test the creation and deletion of shortcut assets
+
+use WebGUI::Test;
+use WebGUI::Session;
+use Test::More; 
+use WebGUI::Asset::Snippet;
+
+#----------------------------------------------------------------------------
+# Init
+my $session         = WebGUI::Test->session;
+my $node            = WebGUI::Asset->getImportNode($session);
+my $versionTag      = WebGUI::VersionTag->getWorking($session);
+$versionTag->set({name=>"Shortcut Test"});
+
+# Make a snippet to shortcut
+my $snippet 
+    = $node->addChild({
+        className       => "WebGUI::Asset::Snippet",
+    });
+
+#----------------------------------------------------------------------------
+# Cleanup
+END {
+	$versionTag->rollback();
+}
+
+#----------------------------------------------------------------------------
+# Tests
+plan tests => 2;
+
+#----------------------------------------------------------------------------
+# Test module compiles okay
+# plan tests => 0
+BEGIN { use_ok("WebGUI::Asset::Shortcut"); }
+
+#----------------------------------------------------------------------------
+# Test creating a shortcut to snippet
+# plan tests => 2
+my $shortcut
+    = $node->addChild({
+        className           => "WebGUI::Asset::Shortcut",
+        shortcutToAssetId   => $snippet->getId,
+    });
+
+isa_ok(
+    $shortcut, "WebGUI::Asset::Shortcut",
+);
+
+isa_ok( 
+    $shortcut, "WebGUI::Asset",
+);
+
+#----------------------------------------------------------------------------
+# Test deleting a shortcut
+# plan tests => 
+TODO: {
+   local $TODO = "Test deleting a shortcut."; 
+}
+
+