[Bast-commits] r6235 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-05-12 16:51:38 +0000 (Tue, 12 May 2009)
New Revision: 6235

Modified:
   DBIx-Class/0.08/trunk/t/76joins.t
Log:
Fix shot test

Modified: DBIx-Class/0.08/trunk/t/76joins.t
===================================================================
--- DBIx-Class/0.08/trunk/t/76joins.t	2009-05-12 16:09:14 UTC (rev 6234)
+++ DBIx-Class/0.08/trunk/t/76joins.t	2009-05-12 16:51:38 UTC (rev 6235)
@@ -127,7 +127,7 @@
     [ { father => 'person' }, { 'father.person_id' => { '!=', '42' } }, ],
     [ { mother => 'person' }, { 'mother.person_id' => 'child.mother_id' } ],
 );
-$match = qr/^HASH reference arguments are not supported in JOINS - try using "\.\.\." instead/;
+$match = qr/HASH reference arguments are not supported in JOINS/;
 eval { $sa->_recurse_from(@j6) };
 like( $@, $match, 'join 6 (HASH reference for ON statement dies) ok' );