fix SQLite pragma in test suite

diff --git a/t/lib/DBICTest.pm b/t/lib/DBICTest.pm
index e3c739e..c90cf3e 100755 (executable)
--- 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' ],