+ ok( $owned_dvds{'temp name 2'},
+ 'Second name in a has_many related record saved' );
+
+ # update has_many where foreign cols aren't nullable
+ $updates = {
+ id => $user->id,
+ address => {
+ street => "101 Main Street",
+ city => "Podunk",
+ state => "New York"
+ },
+ owned_dvds => [ { id => 1, }, ]
+ };
+ $user = $user_rs->recursive_update($updates);
+ is( $schema->resultset('Address')->search( { user_id => $user->id } )
+ ->count,
+ 1,
+ 'the right number of addresses'
+ );
+ $dvd = $dvd_rs->find(1);
+ is( $dvd->get_column('owner'), $user->id, 'foreign key set' );
+
+ # has_many where foreign cols are nullable
+ my $available_dvd_rs = $dvd_rs->search({ current_borrower => undef });
+ $dvd_rs->update( { current_borrower => $user->id } );
+ ok( $user->borrowed_dvds->count > 1, 'Precond' );
+ $updates = {
+ id => $user->id,
+ borrowed_dvds => [ { id => $dvd->id }, ]
+ };
+ $user =
+ DBIx::Class::ResultSet::RecursiveUpdate::Functions::recursive_update(
+ resultset => $user_rs,
+ updates => $updates,
+ if_not_submitted => 'set_to_null',
+ );
+ is( $user->borrowed_dvds->count, 1, 'borrowed_dvds update with if_not_submitted => set_to_null ok' );
+ is( $available_dvd_rs->count, 5, "previously borrowed dvds weren't deleted");
+
+ $dvd_rs->update( { current_borrower => $user->id } );
+ $user =
+ DBIx::Class::ResultSet::RecursiveUpdate::Functions::recursive_update(
+ resultset => $user_rs,
+ updates => $updates,
+ );
+ is( $user->borrowed_dvds->count, 1, 'borrowed_dvds update without if_not_submitted ok' );
+ is( $available_dvd_rs->count, 5, "previously borrowed dvds weren't deleted");
+
+ $dvd_rs->update( { current_borrower => $user->id } );
+ $user =
+ DBIx::Class::ResultSet::RecursiveUpdate::Functions::recursive_update(
+ resultset => $user_rs,
+ updates => $updates,
+ if_not_submitted => 'delete',
+ );
+ is( $user->borrowed_dvds->count, 1, 'borrowed_dvds update with if_not_submitted => delete ok' );
+ is( $dvd_rs->count, 1, 'all dvds except the one borrowed by the user were deleted');
+
+ @tags = $schema->resultset('Tag')->all;
+ $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' );
+
+ my $new_person = {
+ name => 'Amiri Barksdale',
+ username => 'amiri',
+ password => 'amiri',
+ };
+ ok( my $new_user = $user_rs->recursive_update($new_person) );
+
+ # delete has_many where foreign cols aren't nullable
+ my $rs_user_dvd = $user->owned_dvds;
+ my @user_dvd_ids = map { $_->id } $rs_user_dvd->all;
+ is( $rs_user_dvd->count, 1, 'user owns 1 dvd' );
+ $updates = {
+ id => $user->id,
+ owned_dvds => undef,
+ };
+ $user = $user_rs->recursive_update($updates);
+ is( $user->owned_dvds->count, 0, 'user owns no dvds' );
+ is( $dvd_rs->search( { dvd_id => { -in => \@user_dvd_ids } } )->count,
+ 0, 'owned dvds deleted' );