From 48f239a178f9a0aa948877319eb5fdfba2c8d7b0 Mon Sep 17 00:00:00 2001
From: Scott Walters <scott@slowass.net>
Date: Wed, 11 Aug 2010 14:15:07 -0400
Subject: [PATCH] Requires extra arguments to Asset constructor; list them in
 the package so Test::Asset can query and use them.

---
 t/tests/Test/WebGUI/Asset/Shortcut.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/t/tests/Test/WebGUI/Asset/Shortcut.pm b/t/tests/Test/WebGUI/Asset/Shortcut.pm
index e2fe94a27..34e6bab61 100644
--- a/t/tests/Test/WebGUI/Asset/Shortcut.pm
+++ b/t/tests/Test/WebGUI/Asset/Shortcut.pm
@@ -16,6 +16,9 @@ use Test::More;
 use Test::Deep;
 use Test::Exception;
 
+sub constructorExtras {
+    return shortcutToAssetId => 'PBasset000000000000001';
+}
 
 sub list_of_tables {
      return [qw/assetData Shortcut/];