1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
12 my $schema = DBICTest->init_schema();
14 my $artist = $schema->resultset ('Artist')->find(1);
16 my $genre = $schema->resultset ('Genre')
17 ->create ({ name => 'par excellence' });
18 my $genre_cds = $genre->cds;
20 is ($genre_cds->count, 0, 'No cds yet');
23 $genre->update_or_create_related ('cds', {
26 title => 'the best thing since sliced bread',
29 # verify cd was inserted ok
30 is ($genre_cds->count, 1, 'One cd');
31 my $cd = $genre_cds->first;
33 { map { $_, $cd->get_column ($_) } qw/artist year title/ },
35 artist => $artist->id,
37 title => 'the best thing since sliced bread',
39 'CD created correctly',
42 # expect a year update on the only related row
43 # (non-qunique column + unique column set as disambiguator)
44 $genre->update_or_create_related ('cds', {
46 title => 'the best thing since sliced bread',
50 # re-fetch the cd, verify update
51 is ($genre->search_related( 'cds' )->count, 1, 'Still one cd');
52 $cd = $genre_cds->first;
54 { map { $_, $cd->get_column ($_) } qw/artist year title/ },
56 artist => $artist->id,
58 title => 'the best thing since sliced bread',
60 'CD year column updated correctly',
63 # expect a failing create:
64 # the unique constraint is not complete, and there is nothing
65 # in the database with such a year yet - insertion will fail due
66 # to missing artist fk
68 $genre->update_or_create_related ('cds', {
70 title => 'the best thing since sliced bread',
72 } qr/DBI Exception.+(?x:
73 \QNOT NULL constraint failed: cd.artist\E
75 \Qcd.artist may not be NULL\E
76 )/s, 'ambiguous find + create failed'
79 # expect a create, after a failed search using *only* the
80 # *current* relationship and the unique column constraints
82 $schema->is_executed_sql_bind( sub {
83 $genre->update_or_create_related ('cds', {
84 title => 'the best thing since vertical toasters',
90 'SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track
92 WHERE ( me.artist = ? AND me.genreid = ? AND me.title = ? )
96 "the best thing since vertical toasters",
99 'INSERT INTO cd ( artist, genreid, title, year) VALUES ( ?, ?, ?, ? )',
102 "the best thing since vertical toasters",
105 ], 'expected select issued' );
107 # a has_many search without a unique constraint makes no sense
108 # but I am not sure what to test for - leaving open