[svn:p5ee] r9382 - p5ee/trunk/App-Repository/t

Author: spadkins
Date: Mon Apr  9 11:16:30 2007
New Revision: 9382

Modified:
   p5ee/trunk/App-Repository/t/DBI-repobjectdom.t
   p5ee/trunk/App-Repository/t/DBI-repobjectset.t

Log:
updated for new object_set indexing

Modified: p5ee/trunk/App-Repository/t/DBI-repobjectdom.t
==============================================================================
--- p5ee/trunk/App-Repository/t/DBI-repobjectdom.t	(original)
+++ p5ee/trunk/App-Repository/t/DBI-repobjectdom.t	Mon Apr  9 11:16:30 2007
@@ -139,9 +139,9 @@
     $objset->set_params({});
     $objects = $objset->get_objects("F",["gender"]);
     ok($#$objects == 2, "got 3 female objects");
-    $objects = $objset->get_objects("M");
+    $objects = $objset->get_objects("M","gender");
     ok($#$objects == 3, "got 4 male objects");
-    $index = $objset->get_index();
+    $index = $objset->get_index("gender");
     ok(ref($index) eq "HASH", "got a hashref for an index");
     ok(defined $index->{M}, "M part of index found");
     ok(defined $index->{F}, "F part of index found");
@@ -156,7 +156,7 @@
     $objects = $objset->get_objects();
     ok($#$objects == 3, "got 4 objects");
     $objset->get_unique_index(["first_name"]);
-    my $object = $objset->get_object("stephen");
+    my $object = $objset->get_object("stephen",["first_name"]);
     ok($object->{age} == 39, "got stephen object (age 39)");
 }
 

Modified: p5ee/trunk/App-Repository/t/DBI-repobjectset.t
==============================================================================
--- p5ee/trunk/App-Repository/t/DBI-repobjectset.t	(original)
+++ p5ee/trunk/App-Repository/t/DBI-repobjectset.t	Mon Apr  9 11:16:30 2007
@@ -133,9 +133,9 @@
     $objset->set_params({});
     $objects = $objset->get_objects("F",["gender"]);
     ok($#$objects == 2, "got 3 female objects");
-    $objects = $objset->get_objects("M");
+    $objects = $objset->get_objects("M","gender");
     ok($#$objects == 3, "got 4 male objects");
-    $index = $objset->get_index();
+    $index = $objset->get_index("gender");
     ok(ref($index) eq "HASH", "got a hashref for an index");
     ok(defined $index->{M}, "M part of index found");
     ok(defined $index->{F}, "F part of index found");
@@ -150,7 +150,7 @@
     $objects = $objset->get_objects();
     ok($#$objects == 3, "got 4 objects");
     $objset->get_unique_index(["first_name"]);
-    my $object = $objset->get_object("stephen");
+    my $object = $objset->get_object("stephen","first_name");
     ok($object->{age} == 39, "got stephen object (age 39)");
 
     # max_age