- aaaa => undef,
- tags => [ '2', { id => '3' } ],
- name => 'Test name',
- owner => $owner,
- current_borrower => {
- name => 'temp name',
- username => 'temp name',
- password => 'temp name',
- },
- liner_notes => {
- notes => 'test note',
- },
- like_has_many => [
- { key2 => 1 }
- ],
- like_has_many2 => [
- {
- onekey => { name => 'aaaaa' },
- key2 => 1
- }
- ],
+
+ #aaaa => undef,
+ tags => [ '2', { id => '3' } ],
+ name => 'Test name',
+ owner => $owner,
+ current_borrower => {
+ name => 'temp name',
+ username => 'temp name',
+ password => 'temp name',
+ },
+ liner_notes => { notes => 'test note', },
+ like_has_many => [ { key2 => 1 } ],
+ like_has_many2 => [
+ { onekey => { name => 'aaaaa' },
+ key2 => 1
+ }
+ ],
+ };
+
+ my $dvd = $dvd_rs->recursive_update($updates);
+
+ is( $dvd_rs->count, $initial_dvd_count + 2, 'Dvd created' );
+ is( $schema->resultset('User')->count,
+ $initial_user_count + 1,
+ "One new user created"
+ );
+ is( $dvd->name, 'Test name', 'Dvd name set' );
+ is_deeply( [ map { $_->id } $dvd->tags ], [ '2', '3' ], 'Tags set' );
+ is( $dvd->owner->id, $owner->id, 'Owner set' );
+
+ is( $dvd->current_borrower->name, 'temp name', 'Related record created' );
+ is( $dvd->liner_notes->notes, 'test note', 'might_have record created' );
+ ok( $schema->resultset('Twokeys')
+ ->find( { dvd_name => 'Test name', key2 => 1 } ),
+ 'Twokeys created'
+ );
+ my $onekey =
+ $schema->resultset('Onekey')->search( name => 'aaaaa' )->first;
+ ok( $onekey, 'Onekey created' );
+ ok( $schema->resultset('Twokeys_belongsto')
+ ->find( { key1 => $onekey->id, key2 => 1 } ),
+ 'Twokeys_belongsto created'
+ );
+ TODO: {
+ local $TODO = 'value of fk from a multi relationship';
+ is( $dvd->twokeysfk, $onekey->id, 'twokeysfk in Dvd' );