From 73e841ffbfffb0b083c6038791f074461fb5d02c Mon Sep 17 00:00:00 2001 From: JT Smith Date: Sat, 20 Sep 2008 22:15:44 +0000 Subject: [PATCH] now i have fulfilled the requirements that all tests must have --- t/Crud.t | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/t/Crud.t b/t/Crud.t index ba65cc498..70c1d471d 100644 --- a/t/Crud.t +++ b/t/Crud.t @@ -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 {