more pg test cleanup
[dbsrgits/DBIx-Class-Historic.git] / t / 100populate.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 => 23;
10
11 my $schema = DBICTest->init_schema();
12
13 # The map below generates stuff like:
14 #   [ qw/artistid name/ ],
15 #   [ 4, "b" ],
16 #   [ 5, "c" ],
17 #   ...
18 #   [ 9999, "ntm" ],
19 #   [ 10000, "ntn" ],
20
21 my $start_id = 'populateXaaaaaa';
22 my $rows = 10;
23 my $offset = 3;
24
25 $schema->populate('Artist', [ [ qw/artistid name/ ], map { [ ($_ + $offset) => $start_id++ ] } ( 1 .. $rows ) ] );
26 is (
27     $schema->resultset ('Artist')->search ({ name => { -like => 'populateX%' } })->count,
28     $rows,
29     'populate created correct number of rows with massive AoA bulk insert',
30 );
31
32 my $artist = $schema->resultset ('Artist')
33               ->search ({ 'cds.title' => { '!=', undef } }, { join => 'cds' })
34                 ->first;
35 my $ex_title = $artist->cds->first->title;
36
37 throws_ok ( sub {
38   my $i = 600;
39   $schema->populate('CD', [
40     map {
41       {
42         artist => $artist->id,
43         title => $_,
44         year => 2009,
45       }
46     } ('Huey', 'Dewey', $ex_title, 'Louie')
47   ])
48 }, qr/columns .+ are not unique for populate slice.+$ex_title/ms, 'Readable exception thrown for failed populate');
49
50 ## make sure populate honors fields/orders in list context
51 ## schema order
52 my @links = $schema->populate('Link', [
53 [ qw/id url title/ ],
54 [ qw/2 burl btitle/ ]
55 ]);
56 is(scalar @links, 1);
57
58 my $link2 = shift @links;
59 is($link2->id, 2, 'Link 2 id');
60 is($link2->url, 'burl', 'Link 2 url');
61 is($link2->title, 'btitle', 'Link 2 title');
62
63 ## non-schema order
64 @links = $schema->populate('Link', [
65 [ qw/id title url/ ],
66 [ qw/3 ctitle curl/ ]
67 ]);
68 is(scalar @links, 1);
69
70 my $link3 = shift @links;
71 is($link3->id, 3, 'Link 3 id');
72 is($link3->url, 'curl', 'Link 3 url');
73 is($link3->title, 'ctitle', 'Link 3 title');
74
75 ## not all physical columns
76 @links = $schema->populate('Link', [
77 [ qw/id title/ ],
78 [ qw/4 dtitle/ ]
79 ]);
80 is(scalar @links, 1);
81
82 my $link4 = shift @links;
83 is($link4->id, 4, 'Link 4 id');
84 is($link4->url, undef, 'Link 4 url');
85 is($link4->title, 'dtitle', 'Link 4 title');
86
87
88 ## make sure populate -> insert_bulk honors fields/orders in void context
89 ## schema order
90 $schema->populate('Link', [
91 [ qw/id url title/ ],
92 [ qw/5 eurl etitle/ ]
93 ]);
94 my $link5 = $schema->resultset('Link')->find(5);
95 is($link5->id, 5, 'Link 5 id');
96 is($link5->url, 'eurl', 'Link 5 url');
97 is($link5->title, 'etitle', 'Link 5 title');
98
99 ## non-schema order
100 $schema->populate('Link', [
101 [ qw/id title url/ ],
102 [ qw/6 ftitle furl/ ]
103 ]);
104 my $link6 = $schema->resultset('Link')->find(6);
105 is($link6->id, 6, 'Link 6 id');
106 is($link6->url, 'furl', 'Link 6 url');
107 is($link6->title, 'ftitle', 'Link 6 title');
108
109 ## not all physical columns
110 $schema->populate('Link', [
111 [ qw/id title/ ],
112 [ qw/7 gtitle/ ]
113 ]);
114 my $link7 = $schema->resultset('Link')->find(7);
115 is($link7->id, 7, 'Link 7 id');
116 is($link7->url, undef, 'Link 7 url');
117 is($link7->title, 'gtitle', 'Link 7 title');
118