From: David Kamholz <dkamholz@cpan.org>
Date: Mon, 3 Jul 2006 23:58:49 +0000 (+0000)
Subject: fix SQLite pragma in test suite
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a2d54c1d44f18e871911b30f9c9f2669aea86a75;p=dbsrgits%2FDBIx-Class-Historic.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' ],