From 33a8e17efb8c622413a861047c5c4589a9828f62 Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Thu, 24 Oct 2013 08:53:55 +0200
Subject: Disable SQLite foreign key checking while updating schema

---
 evolution/add-table/driver.cxx   | 10 ++++++++++
 evolution/soft-add/driver.cxx    | 10 ++++++++++
 evolution/soft-delete/driver.cxx | 11 ++++++++++-
 3 files changed, 30 insertions(+), 1 deletion(-)

diff --git a/evolution/add-table/driver.cxx b/evolution/add-table/driver.cxx
index bd62068..da4677e 100644
--- a/evolution/add-table/driver.cxx
+++ b/evolution/add-table/driver.cxx
@@ -13,6 +13,7 @@
 #include <odb/transaction.hxx>
 #include <odb/schema-catalog.hxx>
 
+#include <common/config.hxx>  // DATABASE_XXX
 #include <common/common.hxx>
 
 #include "test2.hxx"
@@ -45,11 +46,20 @@ main (int argc, char* argv[])
 
         if (embedded)
         {
+          // SQLite has broken foreign keys when it comes to DDL.
+          //
+#ifdef DATABASE_SQLITE
+          db->connection ()->execute ("PRAGMA foreign_keys=OFF");
+#endif
           transaction t (db->begin ());
           schema_catalog::drop_schema (*db);
           schema_catalog::create_schema (*db, "", false);
           schema_catalog::migrate_schema (*db, 2);
           t.commit ();
+
+#ifdef DATABASE_SQLITE
+          db->connection ()->execute ("PRAGMA foreign_keys=ON");
+#endif
         }
 
         object o (1);
diff --git a/evolution/soft-add/driver.cxx b/evolution/soft-add/driver.cxx
index 5ea54d5..699a21a 100644
--- a/evolution/soft-add/driver.cxx
+++ b/evolution/soft-add/driver.cxx
@@ -13,6 +13,7 @@
 #include <odb/transaction.hxx>
 #include <odb/schema-catalog.hxx>
 
+#include <common/config.hxx> // DATABASE_XXX
 #include <common/common.hxx>
 
 #include "test2.hxx"
@@ -45,11 +46,20 @@ main (int argc, char* argv[])
 
         if (embedded)
         {
+          // SQLite has broken foreign keys when it comes to DDL.
+          //
+#ifdef DATABASE_SQLITE
+          db->connection ()->execute ("PRAGMA foreign_keys=OFF");
+#endif
           transaction t (db->begin ());
           schema_catalog::drop_schema (*db);
           schema_catalog::create_schema (*db, "", false);
           schema_catalog::migrate_schema (*db, 2);
           t.commit ();
+
+#ifdef DATABASE_SQLITE
+          db->connection ()->execute ("PRAGMA foreign_keys=ON");
+#endif
         }
 
         // Test basic soft-added member logic.
diff --git a/evolution/soft-delete/driver.cxx b/evolution/soft-delete/driver.cxx
index fa5c810..95b62b5 100644
--- a/evolution/soft-delete/driver.cxx
+++ b/evolution/soft-delete/driver.cxx
@@ -13,8 +13,8 @@
 #include <odb/transaction.hxx>
 #include <odb/schema-catalog.hxx>
 
-#include <common/common.hxx>
 #include <common/config.hxx> // DATABASE_XXX
+#include <common/common.hxx>
 
 #include "test2.hxx"
 #include "test3.hxx"
@@ -46,11 +46,20 @@ main (int argc, char* argv[])
 
         if (embedded)
         {
+          // SQLite has broken foreign keys when it comes to DDL.
+          //
+#ifdef DATABASE_SQLITE
+          db->connection ()->execute ("PRAGMA foreign_keys=OFF");
+#endif
           transaction t (db->begin ());
           schema_catalog::drop_schema (*db);
           schema_catalog::create_schema (*db, "", false);
           schema_catalog::migrate_schema (*db, 2);
           t.commit ();
+
+#ifdef DATABASE_SQLITE
+          db->connection ()->execute ("PRAGMA foreign_keys=ON");
+#endif
         }
 
         // Test soft-deleted objects.
-- 
cgit v1.1