cvs commit: p5ee/App-Repository/t DBI-getset.t

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");