From cb0ca149584db460fbfd1349aca5e1a08e5ddf28 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 29 Dec 2009 12:05:23 -0800
Subject: [PATCH] Add a test for get.

---
 t/Asset.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/Asset.t b/t/Asset.t
index 18e528f80..007b04dfe 100644
--- a/t/Asset.t
+++ b/t/Asset.t
@@ -20,7 +20,7 @@ use Test::More;
 use Test::Deep;
 use Test::Exception;
 
-plan tests => 16;
+plan tests => 17;
 
 my $session = WebGUI::Test->session;
 
@@ -44,6 +44,8 @@ my $session = WebGUI::Test->session;
     $asset->title('<h1></h1>');
     is $asset->title, 'Untitled', '... if HTML filters out all, returns default';
 
+    is $asset->get('title'), $asset->title, '... get(title) works';
+
     is $asset->menuTitle, 'Untitled', 'menuTitle: default is untitled';
 }