From 10ef562d94a0282dfec00cdfa75d2680ca5c9eef Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 5 Jan 2008 05:36:11 +0000
Subject: [PATCH] refine the one newByDynamicClass test

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

diff --git a/t/Asset/Asset.t b/t/Asset/Asset.t
index d0c8d29f2..2d36f8388 100644
--- a/t/Asset/Asset.t
+++ b/t/Asset/Asset.t
@@ -144,7 +144,7 @@ $canViewMaker->prepare(
     },
 );
 
-plan tests => 85
+plan tests => 86
             + scalar(@fixIdTests)
             + scalar(@fixTitleTests)
             + 2*scalar(@getTitleTests) #same tests used for getTitle and getMenuTitle
@@ -651,6 +651,7 @@ TODO: {
 my $newFixTitleAsset = WebGUI::Asset->newByDynamicClass($session, $fixTitleAsset->getId);
 isnt($newFixTitleAsset, undef, 'newByDynamicClass did not fail');
 isa_ok($newFixTitleAsset, 'WebGUI::Asset', 'newByDynamicClass: able to look up an existing asset by id');
+cmp_deeply($newFixTitleAsset->{_properties}, $fixTitleAsset->{_properties}, 'newByDynamicClass created a duplicate asset');
 
 ################################################################
 #