9 my $schema = PrefetchBug->connect( DBICTest->_database (quote_char => '"') );
10 ok( $schema, 'Connected to PrefetchBug schema OK' );
12 $schema->storage->dbh->do(<<"EOF");
13 CREATE TABLE prefetchbug_left (
14 id INTEGER PRIMARY KEY
18 $schema->storage->dbh->do(<<"EOF");
19 CREATE TABLE prefetchbug_right (
20 id INTEGER PRIMARY KEY,
29 $schema->storage->dbh->do(<<"EOF");
30 CREATE TABLE prefetchbug_left_right (
31 left_id INTEGER REFERENCES prefetchbug_left(id),
32 right_id INTEGER REFERENCES prefetchbug_right(id),
34 PRIMARY KEY (left_id, right_id)
38 # Test simple has_many prefetch:
40 my $leftc = $schema->resultset('Left')->create({});
42 my $rightc = $schema->resultset('Right')->create({ id => 60, name => 'Johnny', category => 'something', description=> 'blah', propagates => 0, locked => 1 });
43 $rightc->create_related('prefetch_leftright', { left => $leftc, value => 'lr' });
45 # start with fresh whatsit
46 my $left = $schema->resultset('Left')->find({ id => $leftc->id });
48 my @left_rights = $left->search_related('prefetch_leftright', {}, { prefetch => 'right' });
49 ok(defined $left_rights[0]->right, 'Prefetched Right side correctly');