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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-01-08 18:14:42 +0000 (Fri, 08 Jan 2010)
New Revision: 8256

Modified:
   DBIx-Class/0.08/trunk/t/71mysql.t
Log:
Make test look even more like http://lists.scsys.co.uk/pipermail/dbix-class/2009-November/008599.html

Modified: DBIx-Class/0.08/trunk/t/71mysql.t
===================================================================
--- DBIx-Class/0.08/trunk/t/71mysql.t	2010-01-08 18:03:26 UTC (rev 8255)
+++ DBIx-Class/0.08/trunk/t/71mysql.t	2010-01-08 18:14:42 UTC (rev 8256)
@@ -243,11 +243,11 @@
   is ($rs->count, 6, 'CDs created successfully');
 
   $rs = $rs->search ({}, {
-    select => [ {year => 'year'} ], as => ['y'], distinct => 1, order_by => 'year',
+    select => [ \ 'YEAR(year)' ], as => ['y'], distinct => 1,
   });
 
   is_deeply (
-    [ $rs->get_column ('y')->all ],
+    [ sort ($rs->get_column ('y')->all) ],
     [ sort keys %$cds_per_year ],
     'Years group successfully',
   );
@@ -255,7 +255,7 @@
   $rs->create ({ artist => 1, year => '0-1-1', title => 'Jesus Rap' });
 
   is_deeply (
-    [ $rs->get_column ('y')->all ],
+    [ sort $rs->get_column ('y')->all ],
     [ 0, sort keys %$cds_per_year ],
     'Zero-year groups successfully',
   );