From e5a2af033010bd5b01874a59314cc45d9444088d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 7 Jul 2010 12:25:21 -0700
Subject: [PATCH] Add test for new with properties.

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

diff --git a/t/Shop/Vendor.t b/t/Shop/Vendor.t
index 643d3d5c0..eca807bc1 100644
--- a/t/Shop/Vendor.t
+++ b/t/Shop/Vendor.t
@@ -31,7 +31,7 @@ my $session         = WebGUI::Test->session;
 #----------------------------------------------------------------------------
 # Tests
 
-plan tests => 50;
+plan tests => 51;
 
 #----------------------------------------------------------------------------
 # put your tests here
@@ -128,6 +128,7 @@ ok(!$e, 'No exception thrown by create') ||
     diag $@;
 isa_ok($vendor, 'WebGUI::Shop::Vendor', 'create returns correct type of object');
 WebGUI::Test->addToCleanup($fence);
+is $fence->userId, $fenceUser->userId, 'object made with create has properties initialized correctly';
 
 $fence->write;
 ok($fence->get('dateCreated'), 'dateCreated is not null');