[Bast-commits] r5708 - SQL-Abstract/1.x/branches/1.50_RC/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-03-08 21:25:14 +0000 (Sun, 08 Mar 2009)
New Revision: 5708

Modified:
   SQL-Abstract/1.x/branches/1.50_RC/t/01generate.t
Log:
Add value-only insert test with a literal sql snippet

Modified: SQL-Abstract/1.x/branches/1.50_RC/t/01generate.t
===================================================================
--- SQL-Abstract/1.x/branches/1.50_RC/t/01generate.t	2009-03-08 20:50:06 UTC (rev 5707)
+++ SQL-Abstract/1.x/branches/1.50_RC/t/01generate.t	2009-03-08 21:25:14 UTC (rev 5708)
@@ -190,6 +190,13 @@
               stmt_q => 'INSERT INTO `test`.`table` (`high_limit`, `low_limit`) VALUES (max(all_limits), ?)',
               bind   => ['4'],
       },             
+      {              
+              func   => 'insert',
+              args   => ['test.table', [ \'max(all_limits)', 4 ] ],
+              stmt   => 'INSERT INTO test.table VALUES (max(all_limits), ?)',
+              stmt_q => 'INSERT INTO `test`.`table` VALUES (max(all_limits), ?)',
+              bind   => ['4'],
+      },             
       #23            
       {              
               func   => 'insert',