my $dbpass = $ENV{"DBICTEST_DBPASS"} || '';
my $schema = DBICTest::Schema->compose_connection('DBICTest' => $dsn, $dbuser, $dbpass);
+ $schema->storage->on_connect_do(['PRAGMA synchronous = OFF']);
if ( !$args{no_deploy} ) {
__PACKAGE__->deploy_schema( $schema );
__PACKAGE__->populate_schema( $schema ) if( !$args{no_populate} );
my $self = shift;
my $schema = shift;
- $schema->storage->dbh->do("PRAGMA synchronous = OFF");
-
$schema->populate('Artist', [
[ qw/artistid name/ ],
[ 1, 'Caterwauler McCrae' ],
[ qw/id parent name/ ],
[ 1, 0, 'foo' ],
[ 2, 1, 'bar' ],
+ [ 5, 1, 'blop' ],
[ 3, 2, 'baz' ],
[ 4, 3, 'quux' ],
+ [ 6, 2, 'fong' ],
]);
$schema->populate('Track', [
]);
$schema->populate('Event', [
- [ qw/id starts_at/ ],
- [ 1, '2006-04-25 22:24:33' ],
+ [ qw/id starts_at created_on/ ],
+ [ 1, '2006-04-25 22:24:33', '2006-06-22 21:00:05'],
]);
$schema->populate('Link', [