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' ],
]);
$schema->populate('FourKeys', [
- [ qw/foo bar hello goodbye/ ],
- [ 1, 2, 3, 4 ],
- [ 5, 4, 3, 6 ],
+ [ qw/foo bar hello goodbye sensors/ ],
+ [ 1, 2, 3, 4, 'online' ],
+ [ 5, 4, 3, 6, 'offline' ],
]);
$schema->populate('OneKey', [
[ 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', [
[ 18, 1, 3, "Beehind You"],
]);
+ $schema->populate('Event', [
+ [ qw/id starts_at created_on/ ],
+ [ 1, '2006-04-25 22:24:33', '2006-06-22 21:00:05'],
+ ]);
+
$schema->populate('Link', [
[ qw/id title/ ],
[ 1, 'aaa' ]