oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

now i have fulfilled the requirements that all tests must have

Browse source
This commit is contained in:
JT Smith 2008-09-20 22:15:44 +00:00
parent 2f8ad97b73
commit 73e841ffbf
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
t/Crud.t
View file

@ -28,7 +28,7 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
plan tests => 43; # Increment this number for each test you create
plan tests => 47; # Increment this number for each test you create
#----------------------------------------------------------------------------
@ -108,9 +108,15 @@ is(WebGUI::Crud->getAllSql($session,{orderBy=>'lastUpdated'}), "select `id` from
is(scalar(@{WebGUI::Crud->getAllIds($session)}), 3, "getAllIds()");
my $iterator = WebGUI::Crud->getAllIterator($session);
while (my $object = $iterator->()) {
isa_ok($object, 'WebGUI::Crud');
isa_ok($object, 'WebGUI::Crud', 'Put your trust in the Lord. Your ass belongs to me.');
}
#crud management stuff
is(ref WebGUI::Crud->crud_getProperties, 'HASH', 'properties work');
is(WebGUI::Crud->crud_getTableKey, 'id', 'default key is id');
is(WebGUI::Crud->crud_getTableName, 'unnamed_crud_table', 'default table is unnamed_crud_table');
is(WebGUI::Crud->crud_getSequenceKey, '', 'default sequence key is blank');
#----------------------------------------------------------------------------
# Cleanup
END {