[Bast-commits] r7721 - DBIx-Class/0.08/trunk/t/relationship

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-09-22 10:58:09 +0000 (Tue, 22 Sep 2009)
New Revision: 7721

Modified:
   DBIx-Class/0.08/trunk/t/relationship/update_or_create_multi.t
Log:
this would break in the future - sanitize sql fed to the tester

Modified: DBIx-Class/0.08/trunk/t/relationship/update_or_create_multi.t
===================================================================
--- DBIx-Class/0.08/trunk/t/relationship/update_or_create_multi.t	2009-09-22 08:42:00 UTC (rev 7720)
+++ DBIx-Class/0.08/trunk/t/relationship/update_or_create_multi.t	2009-09-22 10:58:09 UTC (rev 7721)
@@ -76,8 +76,9 @@
 $schema->storage->debugcb(undef);
 $schema->storage->debug ($sdebug);
 
+my ($search_sql) = $sql[0] =~ /^(SELECT .+?)\:/;
 is_same_sql (
-  $sql[0],
+  $search_sql,
   'SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track
     FROM cd me 
     WHERE ( me.artist = ? AND me.title = ? AND me.genreid = ? )