Add test for new with properties.

This commit is contained in:
Colin Kuskie 2010-07-07 12:25:21 -07:00
parent a7b8d94599
commit e5a2af0330

View file

@ -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');