1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
use strict;
use warnings;
use Test::More;
use lib qw(t/lib);
use DBICTest;
my $schema = DBICTest->init_schema();
plan tests => 9;
my $artist = $schema->resultset ('Artist')->first;
my $genre = $schema->resultset ('Genre')
->create ({ name => 'par excellence' });
is ($genre->search_related( 'model_cd' )->count, 0, 'No cds yet');
# expect a create
$genre->update_or_create_related ('model_cd', {
artist => $artist,
year => 2009,
title => 'the best thing since sliced bread',
});
# verify cd was inserted ok
is ($genre->search_related( 'model_cd' )->count, 1, 'One cd');
my $cd = $genre->find_related ('model_cd', {});
is_deeply (
{ map { $_, $cd->get_column ($_) } qw/artist year title/ },
{
artist => $artist->id,
year => 2009,
title => 'the best thing since sliced bread',
},
'CD created correctly',
);
# expect a year update on the only related row
# (non-qunique column + unique column as disambiguator)
$genre->update_or_create_related ('model_cd', {
year => 2010,
title => 'the best thing since sliced bread',
});
# re-fetch the cd, verify update
is ($genre->search_related( 'model_cd' )->count, 1, 'Still one cd');
$cd = $genre->find_related ('model_cd', {});
is_deeply (
{ map { $_, $cd->get_column ($_) } qw/artist year title/ },
{
artist => $artist->id,
year => 2010,
title => 'the best thing since sliced bread',
},
'CD year column updated correctly',
);
# expect an update of the only related row
# (update a unique column)
$genre->update_or_create_related ('model_cd', {
title => 'the best thing since vertical toasters',
});
# re-fetch the cd, verify update
is ($genre->search_related( 'model_cd' )->count, 1, 'Still one cd');
$cd = $genre->find_related ('model_cd', {});
is_deeply (
{ map { $_, $cd->get_column ($_) } qw/artist year title/ },
{
artist => $artist->id,
year => 2010,
title => 'the best thing since vertical toasters',
},
'CD title column updated correctly',
);
# expect a year update on the only related row
# (non-unique column only)
$genre->update_or_create_related ('model_cd', {
year => 2011,
});
# re-fetch the cd, verify update
is ($genre->search_related( 'model_cd' )->count, 1, 'Still one cd');
$cd = $genre->find_related ('model_cd', {});
is_deeply (
{ map { $_, $cd->get_column ($_) } qw/artist year title/ },
{
artist => $artist->id,
year => 2011,
title => 'the best thing since vertical toasters',
},
'CD year column updated correctly without a disambiguator',
);
|
