From: David Kamholz Date: Mon, 3 Jul 2006 23:58:49 +0000 (+0000) Subject: fix SQLite pragma in test suite X-Git-Tag: v0.07002~75^2~61^2~3 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a2d54c1d44f18e871911b30f9c9f2669aea86a75;p=dbsrgits%2FDBIx-Class.git fix SQLite pragma in test suite --- diff --git a/t/lib/DBICTest.pm b/t/lib/DBICTest.pm index e3c739e..c90cf3e 100755 --- a/t/lib/DBICTest.pm +++ b/t/lib/DBICTest.pm @@ -56,6 +56,7 @@ sub init_schema { 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} ); @@ -103,8 +104,6 @@ sub populate_schema { my $self = shift; my $schema = shift; - $schema->storage->dbh->do("PRAGMA synchronous = OFF"); - $schema->populate('Artist', [ [ qw/artistid name/ ], [ 1, 'Caterwauler McCrae' ],