[Bast-commits] r9405 - DBIx-Class/0.08/branches/rs_UD_cleanup/t

[wreis at dev.catalyst.perl.org]

Author: wreis
Date: 2010-05-19 01:49:47 +0100 (Wed, 19 May 2010)
New Revision: 9405

Modified:
   DBIx-Class/0.08/branches/rs_UD_cleanup/t/72pg.t
Log:
failing tests for RS->update

Modified: DBIx-Class/0.08/branches/rs_UD_cleanup/t/72pg.t
===================================================================
--- DBIx-Class/0.08/branches/rs_UD_cleanup/t/72pg.t	2010-05-17 20:16:49 UTC (rev 9404)
+++ DBIx-Class/0.08/branches/rs_UD_cleanup/t/72pg.t	2010-05-19 00:49:47 UTC (rev 9405)
@@ -201,6 +201,15 @@
   is( $uc_name_info->{size}, 3, "Case insensitive matching info for 'uc_name'" );
 
 
+## Test ResultSet->update
+my $artist = $schema->resultset('Artist')->first;
+my $cds = $artist->cds_unordered->search({
+    year => { '!=' => 2010 }
+}, { prefetch => 'liner_notes' });
+TODO: {
+    todo_skip 'update resultset with a prefetch over a might_have rel', 1;
+    $cds->update({ year => '2010' });
+}
 
 
 ## Test SELECT ... FOR UPDATE