Implement on_delete pragma for object pointers

Translates to the ON DELETE SQL clause.

1 files changed, 81 insertions, 0 deletions

diff --git a/common/relationship/on-delete/driver.cxx b/common/relationship/on-delete/driver.cxx
new file mode 100644
index 0000000..25b534b
--- /dev/null
+++ b/common/relationship/on-delete/driver.cxx
@@ -0,0 +1,81 @@
+// file      : common/relationship/on-delete/driver.cxx
+// copyright : Copyright (c) 2009-2013 Code Synthesis Tools CC
+// license   : GNU GPL v2; see accompanying LICENSE file
+
+// Test ON DELETE functionality.
+//
+
+#include <memory>   // std::auto_ptr
+#include <cassert>
+#include <iostream>
+
+#include <odb/database.hxx>
+#include <odb/transaction.hxx>
+
+#include <common/common.hxx>
+
+#include "test.hxx"
+#include "test-odb.hxx"
+
+using namespace std;
+using namespace odb::core;
+
+int
+main (int argc, char* argv[])
+{
+  try
+  {
+    auto_ptr<database> db (create_database (argc, argv));
+
+    object o;
+
+    cascade c;
+    c.p = &o;
+
+    cascade_cont cc;
+    cc.p.push_back (&o);
+
+    set_null n;
+    n.p = &o;
+
+    set_null_cont nc;
+    nc.p.push_back (&o);
+
+    {
+      transaction t (db->begin ());
+      db->persist (o);
+      db->persist (c);
+      db->persist (cc);
+      db->persist (n);
+      db->persist (nc);
+      t.commit ();
+    }
+
+    {
+      transaction t (db->begin ());
+      db->erase (o);
+      t.commit ();
+    }
+
+    {
+      transaction t (db->begin ());
+      assert (db->find<cascade> (c.id) == 0);
+
+      auto_ptr<cascade_cont> pcc (db->load<cascade_cont> (cc.id));
+      assert (pcc->p.empty ());
+
+      auto_ptr<set_null> pn (db->load<set_null> (n.id));
+      assert (pn->p == 0);
+
+      auto_ptr<set_null_cont> pnc (db->load<set_null_cont> (nc.id));
+      assert (pnc->p.size () == 1 && pnc->p[0] == 0);
+
+      t.commit ();
+    }
+  }
+  catch (const odb::exception& e)
+  {
+    cerr << e.what () << endl;
+    return 1;
+  }
+}