10 # perl -le'my $letter = 'a'; for my $i (4..10000) { $letter++; print "[ $i, \"$letter\" ]," }' > tests.txt
12 my $schema = DBICTest->init_schema();
13 $schema->populate('Artist', [
14 [ qw/artistid name/ ],
10015 ## make sure populate -> insert_bulk honors fields/orders
10017 $schema->populate('Link', [
10018 [ qw/id url title/ ],
10019 [ qw/2 burl btitle/ ]
10021 my $link2 = $schema->resultset('Link')->find(2);
10022 is($link2->id, 2, 'Link 2 id');
10023 is($link2->url, 'burl', 'Link 2 url');
10024 is($link2->title, 'btitle', 'Link 2 title');
10026 ## non-schema order
10027 $schema->populate('Link', [
10028 [ qw/id title url/ ],
10029 [ qw/3 ctitle curl/ ]
10031 my $link3 = $schema->resultset('Link')->find(3);
10032 is($link3->id, 3, 'Link 3 id');
10033 is($link3->url, 'curl', 'Link 3 url');
10034 is($link3->title, 'ctitle', 'Link 3 title');
10036 ## not all physical columns
10037 $schema->populate('Link', [
10041 my $link4 = $schema->resultset('Link')->find(4);
10042 is($link4->id, 4, 'Link 4 id');
10043 is($link4->url, undef, 'Link 4 url');
10044 is($link4->title, 'dtitle', 'Link 4 title');
10048 ok(-f "t/var/DBIxClass.db", 'Database created');