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