[Bast-commits] r7403 - DBIx-Class/0.08/trunk/t/search

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-08-27 22:11:29 +0000 (Thu, 27 Aug 2009)
New Revision: 7403

Modified:
   DBIx-Class/0.08/trunk/t/search/subquery.t
Log:
Add a test proving how dumb I am

Modified: DBIx-Class/0.08/trunk/t/search/subquery.t
===================================================================
--- DBIx-Class/0.08/trunk/t/search/subquery.t	2009-08-27 17:13:37 UTC (rev 7402)
+++ DBIx-Class/0.08/trunk/t/search/subquery.t	2009-08-27 22:11:29 UTC (rev 7403)
@@ -19,6 +19,17 @@
 my @tests = (
   {
     rs => $cdrs,
+    search => \[ "title = ? AND year LIKE ?", 'buahaha', '20%' ],
+    attrs => { rows => 5 },
+    sqlbind => \[
+      "( SELECT me.cdid,me.artist,me.title,me.year,me.genreid,me.single_track FROM cd me WHERE (title = ? AND year LIKE ?) LIMIT 5)",
+      'buahaha',
+      '20%',
+    ],
+  },
+
+  {
+    rs => $cdrs,
     search => {
       artist_id => { 'in' => $art_rs->search({}, { rows => 1 })->get_column( 'id' )->as_query },
     },