From 74b500e443795e672bf8ac3ba2a4cd776c57a4cf Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 2 Jun 2010 16:37:00 -0700
Subject: [PATCH] Tests for properties that should be returned by get, and some
 that should not.  Done by hash inspection.

---
 t/Asset.t | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/t/Asset.t b/t/Asset.t
index 1063f4706..3c04ab6d0 100644
--- a/t/Asset.t
+++ b/t/Asset.t
@@ -128,6 +128,20 @@ my $session = WebGUI::Test->session;
 
 }
 
+{
+    note "get, specific properties";
+    my $asset = WebGUI::Asset->new({
+        session   => $session,
+    });
+    my $properties = $asset->get();
+    ok !exists $properties->{session}, 'no session';
+    ok  exists $properties->{keywords}, 'keywords';  ##Test for function later
+    ok  exists $properties->{assetId}, 'assetId';
+    ok  exists $properties->{revisionDate}, 'assetId';
+    ok  exists $properties->{parentId}, 'parentId';
+    ok  exists $properties->{lineage}, 'lineage';
+}
+
 {
     note "getClassById";
     my $class;