Speed up sqlite-based tests (disable synchronous disk writes)

diff --git a/t/10sqlite_common.t b/t/10sqlite_common.t
index 6fe4b63..e3d52dc 100644 (file)
--- a/t/10sqlite_common.t
+++ b/t/10sqlite_common.t
@@ -13,7 +13,7 @@ my $tester = dbixcsl_common_tests->new(
     user            => '',
     password        => '',
     connect_info_opts => {
-        on_connect_do => 'PRAGMA foreign_keys = ON',
+        on_connect_do => [ 'PRAGMA foreign_keys = ON', 'PRAGMA synchronous = OFF', ]
     },
     loader_options  => { preserve_case => 1 },
     data_types  => {

diff --git a/t/backcompat/0.04006/lib/dbixcsl_common_tests.pm b/t/backcompat/0.04006/lib/dbixcsl_common_tests.pm
index a67eb61..6edbe61 100644 (file)
--- a/t/backcompat/0.04006/lib/dbixcsl_common_tests.pm
+++ b/t/backcompat/0.04006/lib/dbixcsl_common_tests.pm
@@ -579,6 +579,9 @@ sub dbconnect {
              AutoCommit => 1,
          }
     );
+    if ($self->{dsn} =~ /^[^:]+:SQLite:/) {
+      $dbh->do ('PRAGMA synchronous = OFF');
+    }
 
     die "Failed to connect to database: $DBI::errstr" if !$dbh;
 

diff --git a/t/backcompat/0.04006/lib/make_dbictest_db.pm b/t/backcompat/0.04006/lib/make_dbictest_db.pm
index 6613288..d9a8083 100644 (file)
--- a/t/backcompat/0.04006/lib/make_dbictest_db.pm
+++ b/t/backcompat/0.04006/lib/make_dbictest_db.pm
@@ -12,6 +12,7 @@ my $fn = './t/dbictest.db';
 unlink($fn);
 our $dsn = "dbi:$class:dbname=$fn";
 my $dbh = DBI->connect($dsn);
+$dbh->do ('PRAGMA SYNCHRONOUS = OFF');
 
 $dbh->do($_) for (
     q|CREATE TABLE foo (

diff --git a/t/lib/make_dbictest_db.pm b/t/lib/make_dbictest_db.pm
index 99ad862..118800b 100644 (file)
--- a/t/lib/make_dbictest_db.pm
+++ b/t/lib/make_dbictest_db.pm
@@ -12,6 +12,7 @@ my $fn = './t/dbictest.db';
 unlink($fn);
 our $dsn = "dbi:$class:dbname=$fn";
 my $dbh = DBI->connect($dsn);
+$dbh->do('PRAGMA SYNCHRONOUS = OFF');
 
 $dbh->do($_) for (
     q|CREATE TABLE foo (

diff --git a/t/lib/make_dbictest_db_clashing_monikers.pm b/t/lib/make_dbictest_db_clashing_monikers.pm
index 5f37fea..37741bb 100644 (file)
--- a/t/lib/make_dbictest_db_clashing_monikers.pm
+++ b/t/lib/make_dbictest_db_clashing_monikers.pm
@@ -12,6 +12,7 @@ my $fn = './t/dbictest_clashing_tables.db';
 unlink($fn);
 our $dsn = "dbi:$class:dbname=$fn";
 my $dbh = DBI->connect($dsn);
+$dbh->do('PRAGMA SYNCHRONOUS = OFF');
 
 $dbh->do($_) for (
     q|CREATE TABLE foo (

diff --git a/t/lib/make_dbictest_db_with_unique.pm b/t/lib/make_dbictest_db_with_unique.pm
index 6b6ab17..6f75ad3 100644 (file)
--- a/t/lib/make_dbictest_db_with_unique.pm
+++ b/t/lib/make_dbictest_db_with_unique.pm
@@ -12,6 +12,7 @@ my $fn = './t/dbictest_with_unique.db';
 unlink($fn);
 our $dsn = "dbi:$class:dbname=$fn";
 my $dbh = DBI->connect($dsn);
+$dbh->do('PRAGMA SYNCHRONOUS = OFF');
 
 $dbh->do($_) for (
     q|CREATE TABLE foos (