Merge 'trunk' into 'multi_stuff'
[dbsrgits/DBIx-Class-Historic.git] / t / 96multi_create_new.t
CommitLineData
d4d6aae3 1use strict;
2use warnings;
3
4use Test::More;
5use Test::Exception;
6use lib qw(t/lib);
7use DBICTest;
8
d3244de8 9plan tests => 9;
d4d6aae3 10
11my $schema = DBICTest->init_schema();
12
13# Test various new() invocations - this is all about backcompat, making
14# sure that insert() still works as expected by legacy code.
15#
16# What we essentially do is multi-instantiate objects, making sure nothing
17# gets inserted. Then we add some more objects to the mix either via
18# new_related() or by setting an accessor directly (or both) - again
19# expecting no inserts. Then after calling insert() on the starter object
a6a1ec32 20# we expect everything supplied to new() to get inserted, as well as any
21# relations whose PK's are necessary to complete the objects supplied
22# to new(). All other objects should be insert()able afterwards too.
d4d6aae3 23
24
9ffcb5b8 25{
26 my $new_artist = $schema->resultset("Artist")->new_result({ 'name' => 'Depeche Mode' });
27 my $new_related_cd = $new_artist->new_related('cds', { 'title' => 'Leave in Silence', 'year' => 1982});
28 eval {
29 $new_artist->insert;
30 $new_related_cd->insert;
31 };
32 is ($@, '', 'Staged insertion successful');
33 ok($new_artist->in_storage, 'artist inserted');
34 ok($new_related_cd->in_storage, 'new_related_cd inserted');
35}
36
37{
d3244de8 38 my $new_artist = $schema->resultset("Artist")->new_result({ 'name' => 'Depeche Mode' });
39 my $new_related_cd = $new_artist->new_related('cds', { 'title' => 'Leave in Silence', 'year' => 1982});
40 eval {
41 $new_related_cd->insert;
42 };
43 is ($@, '', 'CD insertion survives by inserting artist');
44 ok($new_artist->in_storage, 'artist inserted');
45 ok($new_related_cd->in_storage, 'new_related_cd inserted');
46}
47
48{
9ffcb5b8 49 my $new_cd = $schema->resultset("CD")->new_result({});
50 my $new_related_artist = $new_cd->new_related('artist', { 'name' => 'Marillion',});
51 lives_ok (
52 sub {
53 $new_related_artist->insert;
54 $new_cd->title( 'Misplaced Childhood' );
55 $new_cd->year ( 1985 );
56 $new_cd->artist( $new_related_artist ); # For exact backward compatibility
57 $new_cd->insert;
58 },
59 'Reversed staged insertion successful'
60 );
61 ok($new_related_artist->in_storage, 'related artist inserted');
62 ok($new_cd->in_storage, 'cd inserted');
63}