[Bast-commits] r9150 - DBIx-Class/0.08/branches/filter_column/t/row

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-04-14 19:22:10 +0100 (Wed, 14 Apr 2010)
New Revision: 9150

Modified:
   DBIx-Class/0.08/branches/filter_column/t/row/filter_column.t
Log:
test db in MC

Modified: DBIx-Class/0.08/branches/filter_column/t/row/filter_column.t
===================================================================
--- DBIx-Class/0.08/branches/filter_column/t/row/filter_column.t	2010-04-14 18:19:20 UTC (rev 9149)
+++ DBIx-Class/0.08/branches/filter_column/t/row/filter_column.t	2010-04-14 18:22:10 UTC (rev 9150)
@@ -55,7 +55,15 @@
       title => 'fun time city!',
       year => 'forevertime',
    });
-   is $cd->artist->rank, 20, 'artist rank gets correctly unfiltered then filtered on MC';
+   ($raw_db_rank) = $schema->resultset('Artist')
+                                ->search ($cd->artist->ident_condition)
+                                  ->get_column('rank')
+                                   ->_resultset
+                                    ->cursor
+                                     ->next;
+
+   is $raw_db_rank, 10, 'artist rank gets correctly unfiltered w/ MC';
+   is $cd->artist->rank, 20, 'artist rank gets correctly filtered w/ MC';
 }
 
 done_testing;