+ @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' );
+
+ 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' );
+