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;
