use base 'DBIx::Class::Core';
-__PACKAGE__->table('left_right');
+__PACKAGE__->table('prefetchbug_left_right');
__PACKAGE__->add_columns(
left_id => { data_type => 'integer' },
right_id => { data_type => 'integer' },
use DBICTest;
use PrefetchBug;
-BEGIN {
- require DBIx::Class;
- plan skip_all => 'Test needs ' .
- DBIx::Class::Optional::Dependencies->req_missing_for('deploy')
- unless DBIx::Class::Optional::Dependencies->req_ok_for('deploy');
-}
-
- my $schema
- = PrefetchBug->connect( DBICTest->_database (quote_char => '"') );
- ok( $schema, 'Connected to PrefetchBug schema OK' );
-
-#################### DEPLOY
-
- $schema->deploy( { add_drop_table => 1 } );
+my $schema = PrefetchBug->connect( DBICTest->_database (quote_char => '"') );
+ok( $schema, 'Connected to PrefetchBug schema OK' );
+
+$schema->storage->dbh->do(<<"EOF");
+CREATE TABLE prefetchbug_left (
+ id INTEGER PRIMARY KEY
+)
+EOF
+
+$schema->storage->dbh->do(<<"EOF");
+CREATE TABLE prefetchbug_right (
+ id INTEGER PRIMARY KEY,
+ name TEXT,
+ category TEXT,
+ description TEXT,
+ propagates INT,
+ locked INT
+)
+EOF
+
+$schema->storage->dbh->do(<<"EOF");
+CREATE TABLE prefetchbug_left_right (
+ left_id INTEGER REFERENCES prefetchbug_left(id),
+ right_id INTEGER REFERENCES prefetchbug_right(id),
+ value TEXT,
+ PRIMARY KEY (left_id, right_id)
+)
+EOF
# Test simple has_many prefetch:
my $leftc = $schema->resultset('Left')->create({});
+
my $rightc = $schema->resultset('Right')->create({ id => 60, name => 'Johnny', category => 'something', description=> 'blah', propagates => 0, locked => 1 });
$rightc->create_related('prefetch_leftright', { left => $leftc, value => 'lr' });