cvsuser 05/03/02 09:20:06
Modified: App-Repository/t DBI-getset.t
Log:
set(table,cols,\%values)
Revision Changes Path
1.6 +8 -0 p5ee/App-Repository/t/DBI-getset.t
Index: DBI-getset.t
===================================================================
RCS file: /cvs/public/p5ee/App-Repository/t/DBI-getset.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- DBI-getset.t 1 Dec 2004 20:19:49 -0000 1.5
+++ DBI-getset.t 2 Mar 2005 17:20:06 -0000 1.6
@@ -116,6 +116,14 @@
is($state, "CA", "get_row() 3 values w/ %crit (checking 2 of 3)");
is($person_id, 4, "get_row() 3 values w/ %crit (checking 3 of 3)");
+ok($rep->set_row("test_person", {first_name=>'paul'}, ["age", "state"],
{age=>6, state=>"GA", person_id=>99}),
+ "set_row() 2 values w/ %crit and values in hash");
+$row = $rep->get_row("test_person", {first_name=>'paul'}, ["age",
"state","person_id"]);
+($age, $state, $person_id) = @$row;
+is($age, 6, "get_row() 3 values w/ %crit (checking 1 of 3)");
+is($state, "GA", "get_row() 3 values w/ %crit (checking 2 of 3)");
+is($person_id, 4, "get_row() 3 values w/ %crit (checking 3 of 3)");
+
my ($hashes, $hash);
ok($rep->set("test_person", {person_id => 1, age => 40}),
"set(table,%hash)");
$hash = $rep->get_hash("test_person");
