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

cvsuser     05/01/07 05:37:40

  Modified:    App-Repository/t DBI-update.t
  Log:
  new test
  
  Revision  Changes    Path
  1.3       +20 -0     p5ee/App-Repository/t/DBI-update.t
  
  Index: DBI-update.t
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Repository/t/DBI-update.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- DBI-update.t	2 Sep 2004 20:59:16 -0000	1.2
  +++ DBI-update.t	7 Jan 2005 13:37:40 -0000	1.3
  @@ -111,5 +111,25 @@
   is($sql, $expect_sql, "_mk_update_sql(): 2 cols, by key");
   &check_exec($sql,1);
   
  +$expect_sql = <<EOF;
  +update test_person set
  +   age = 6,
  +   state = 'GA'
  +where person_id = 4
  +EOF
  +$sql = $rep->_mk_update_sql("test_person",4,["age","state"],{age => 6, state => "GA"});
  +is($sql, $expect_sql, "_mk_update_sql(): 2 cols, by key, row is a hashref");
  +&check_exec($sql,1);
  +
  +# This doesn't work yet
  +#$expect_sql = <<EOF;
  +#update test_person set
  +#   age = 6
  +#where person_id = 4
  +#EOF
  +#$sql = $rep->_mk_update_sql("test_person",4,{age => 6});
  +#is($sql, $expect_sql, "_mk_update_sql(): 1 col, by key, cols/row is single hashref");
  +#&check_exec($sql,1);
  +
   exit 0;