updating related many to many
authorZbigniew Lukasiak <zby@zby.aster.net.pl>
Wed, 19 Aug 2009 17:15:41 +0000 (19:15 +0200)
committerZbigniew Lukasiak <zby@zby.aster.net.pl>
Wed, 19 Aug 2009 17:19:48 +0000 (19:19 +0200)
lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
t/lib/RunTests.pm
t/var/dvdzbr.db

index cf70e397a1e0fd678891ca463566f28d02e26d87..df5d76db5ac7921e6276f403fde7a2b3fe92e481 100644 (file)
@@ -131,7 +131,7 @@ sub recursive_update {
             }
             for my $elem ( @updates ) {
                 if ( ref $elem ) {
-                    push @rows, $result_source->resultset->find($elem);
+                    push @rows, recursive_update( resultset => $result_source->resultset, updates => $elem );
                 }
                 else {
                     push @rows,
index f391fc6e390de1d493615383dca94f4320994305..fea0b4634e7d8affe2057a354ec0dedb2e743829 100644 (file)
@@ -9,7 +9,7 @@ use DBIx::Class::ResultSet::RecursiveUpdate;
 sub run_tests{
     my $schema = shift;
 
-    plan tests => 36;
+    plan tests => 40;
     
     my $dvd_rs = $schema->resultset( 'Dvd' );
     my $user_rs = $schema->resultset( 'User' );
@@ -117,7 +117,7 @@ sub run_tests{
     ok ( $schema->resultset( 'Twokeys' )->find( { dvd_name => 'New Test Name', key2 => 1 } ), 'Twokeys updated' );
     ok ( !$schema->resultset( 'Twokeys' )->find( { dvd_name => $dvd->name, key2 => 1 } ), 'Twokeys updated' );
  
-    # repeatable
+# repeatable
     
     $updates = {
         name  => 'temp name',
@@ -198,6 +198,21 @@ sub run_tests{
     );
     is( $user->borrowed_dvds->count, 1, 'if_not_submitted delete' );
 
+    my @tags = $schema->resultset( 'Tag' )->search();
+    $dvd_updated = DBIx::Class::ResultSet::RecursiveUpdate::Functions::recursive_update(
+        resultset => $schema->resultset( 'Dvd' ),
+        updates => {
+            id => $dvd->dvd_id, # id instead of dvd_id
+            tags => [ { id => $tags[0]->id, file => 'file0'}, { id => $tags[1]->id, file => 'file1' } ], 
+        }
+    );
+    $tags[$_]->discard_changes for 0 .. 1;
+    is( $tags[0]->file, 'file0', 'file set in tag' );
+    is( $tags[1]->file, 'file1', 'file set in tag' );
+    my @rel_tags = $dvd_updated->tags;
+    is( scalar @rel_tags, 2, 'tags related' );
+    ok( $rel_tags[0]->file eq 'file0' || $rel_tags[0]->file eq 'file1', 'tags related' );
+
  
 #    $updates = {
 #            name => 'Test name 1',
index 0a0d88f3ad67dce87881847e47847fbcfa6667dc..d2eb07c4c162e7e10932566725bb313c8772fd31 100644 (file)
Binary files a/t/var/dvdzbr.db and b/t/var/dvdzbr.db differ
This page took 0.025342 seconds and 4 git commands to generate.