+ 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' );
+
+ # # delete has_many where foreign cols aren't nullable
+ # $updates = {
+ # id => $user->id,
+ # owned_dvds => undef,
+ # };
+ # $user = $user_rs->recursive_update( $updates );
+ # ok ( !$dvd_rs->find( 1 ), 'owned dvd deleted');
+
+ $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, 'set_to_null' );
+
+ # has_many where foreign cols are nullable
+ $dvd_rs->update( { current_borrower => $user->id } );
+ $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 => 'delete',
+ );
+ is( $user->borrowed_dvds->count, 1, 'if_not_submitted delete' );
+
+ @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' }
+ ],