t/multi_create/in_memory.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Exception;
   6 use lib qw(t/lib);
   7 use DBICTest;
   8
   9 plan tests => 12;
  10
  11 my $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
  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.
  23
  24
  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 {
  38     my $new_artist = $schema->resultset("Artist")->new_result({ 'name' => 'Depeche Mode' });
  39     my $new_related_cd = $new_artist->new_related('cds', { 'title' => 'Leave Slightly Noisily', 'year' => 1982});
  40     eval {
  41         $new_related_cd->insert;
  42     };
  43     is ($@, '', 'CD insertion survives by finding artist');
  44     ok($new_artist->in_storage, 'artist inserted');
  45     ok($new_related_cd->in_storage, 'new_related_cd inserted');
  46 }
  47
  48 {
  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 }