bug fixes

This commit is contained in:
JT Smith 2009-10-23 18:11:37 -05:00
parent 81c42d7296
commit 908200869e
3 changed files with 16 additions and 5 deletions

View file

@ -48,6 +48,11 @@ use WebGUI::Test;
my $object = WGT::Class->instantiate;
can_ok($object, 'getTables');
my @tables = $object->getTables;
is $tables[0], 'mytable', 'found first table';
is $tables[1], 'othertable', 'found second table';
is $object->getProperty('showInForms')->{tableName}, 'mytable',
'properties copy tableName attribute';
is $object->getProperty('confirmChange')->{tableName}, 'othertable',