4 files changed, 242 insertions, 0 deletions
diff --git a/odb-tests/common/default/buildfile b/odb-tests/common/default/buildfile
new file mode 100644
index 0000000..e25bd08
--- /dev/null
+++ b/odb-tests/common/default/buildfile
@@ -0,0 +1,41 @@
+# file      : common/default/buildfile
+# license   : GNU GPL v2; see accompanying LICENSE file
+
+import libodb = libodb%lib{odb}
+
+libs =
+
+for db: $databases
+  import libs += libodb-$db%lib{odb-$db}
+
+import libs += lib{common}
+
+exe{driver}: {hxx cxx}{* -*-odb -*-odb-*} {hxx ixx cxx}{test-odb} testscript
+
+# Introduce the metadata library target to make sure the libodb library is
+# resolved for the odb_compile ad hoc rule (see build/root.build for details).
+#
+libue{test-meta}: $libodb
+
+<{hxx ixx cxx}{test-odb}>: hxx{test} libue{test-meta}
+
+for db: $databases
+{
+  exe{driver}: {hxx ixx cxx}{test-odb-$db}: include = $multi
+  <{hxx ixx cxx}{test-odb-$db}>: hxx{test} libue{test-meta}
+}
+
+exe{driver}: libue{test-meta} $libs
+
+# Specify the ODB custom options to be used by the odb_compile ad hoc rule
+# (see build/root.build for details).
+#
+odb_options = --table-prefix default_ \
+              --generate-schema       \
+              --generate-query
+
+cxx.poptions =+ "-I$out_base" "-I$src_base"
+
+# Testscript's run-time prerequisites.
+#
+exe{driver}: ../../alias{database-client}: include = adhoc
diff --git a/odb-tests/common/default/driver.cxx b/odb-tests/common/default/driver.cxx
new file mode 100644
index 0000000..2d3ef01
--- /dev/null
+++ b/odb-tests/common/default/driver.cxx
@@ -0,0 +1,81 @@
+// file      : common/default/driver.cxx
+// license   : GNU GPL v2; see accompanying LICENSE file
+
+// Test default values.
+//
+
+#include <memory>   // std::unique_ptr
+#include <iostream>
+
+#include <odb/database.hxx>
+#include <odb/transaction.hxx>
+
+#include <libcommon/common.hxx>
+
+#include "test.hxx"
+#include "test-odb.hxx"
+
+#undef NDEBUG
+#include <cassert>
+
+using namespace std;
+using namespace odb::core;
+
+int
+main (int argc, char* argv[])
+{
+  try
+  {
+    unique_ptr<database> db (create_database (argc, argv));
+
+    // Insert an object using an ad-hoc SQL statement. This way
+    // we get all the default values.
+    //
+    {
+      transaction t (db->begin ());
+
+      if (db->id () != odb::id_oracle)
+        db->execute ("INSERT INTO default_object (obj_id) VALUES (1)");
+      else
+        db->execute ("INSERT INTO \"default_object\" (\"obj_id\") VALUES (1)");
+
+      t.commit ();
+    }
+
+    // Now load the object and check all the values.
+    //
+    {
+      transaction t (db->begin ());
+      unique_ptr<object> o (db->load<object> (1));
+      t.commit ();
+
+      assert (o->b);
+      assert (o->pi == 1234);
+      assert (o->ni == -1234);
+      assert (o->zi == 0);
+      assert (o->pf == 1.234);
+      assert (o->nf == -1.234);
+      assert (o->zf == 0.0);
+      assert (o->sf == 1.123e+10);
+      assert (o->str == "Someone's string");
+      assert (o->e == green);
+    }
+
+    // Check the NULL default value using a query.
+    //
+    {
+      typedef odb::query<object> query;
+      typedef odb::result<object> result;
+
+      transaction t (db->begin ());
+      result r (db->query<object> (query::null.is_null ()));
+      assert (!r.empty ());
+      t.commit ();
+    }
+  }
+  catch (const odb::exception& e)
+  {
+    cerr << e.what () << endl;
+    return 1;
+  }
+}
diff --git a/odb-tests/common/default/test.hxx b/odb-tests/common/default/test.hxx
new file mode 100644
index 0000000..7f35ed4
--- /dev/null
+++ b/odb-tests/common/default/test.hxx
@@ -0,0 +1,67 @@
+// file      : common/default/test.hxx
+// license   : GNU GPL v2; see accompanying LICENSE file
+
+#ifndef TEST_HXX
+#define TEST_HXX
+
+#include <string>
+#include <odb/core.hxx>
+
+enum color {red, green, blue};
+
+#pragma db value(unsigned long) default(0)
+
+#pragma db object
+struct object
+{
+  #pragma db id
+  unsigned long obj_id;
+
+  // NULL.
+  //
+  #pragma db null default(null)
+  unsigned long null;
+
+  // Boolean.
+  //
+  #pragma db default(true)
+  bool b;
+
+  // Integers.
+  //
+  #pragma db default(1234)
+  unsigned long pi;
+
+  #pragma db default(-1234)
+  long ni;
+
+  // 0 default taken from the type.
+  unsigned long zi;
+
+  // Floats.
+  //
+  #pragma db default(1.234)
+  double pf;
+
+  #pragma db default(-1.234)
+  double nf;
+
+  #pragma db default(0.0)
+  double zf;
+
+  #pragma db default(1.123e+10)
+  double sf;
+
+  // Strings. MySQL doesn't support default values on TEXT
+  // columns, so make the type VARCHAR.
+  //
+  #pragma db type("VARCHAR(64)") default("Someone's string")
+  std::string str;
+
+  // Enums.
+  //
+  #pragma db default(green)
+  color e;
+};
+
+#endif // TEST_HXX
diff --git a/odb-tests/common/default/testscript b/odb-tests/common/default/testscript
new file mode 100644
index 0000000..47ab5ec
--- /dev/null
+++ b/odb-tests/common/default/testscript
@@ -0,0 +1,53 @@
+# file      : common/default/testscript
+# license   : GNU GPL v2; see accompanying LICENSE file
+
+.include ../../database-options.testscript
+
+: mysql
+:
+if $mysql
+{
+  .include ../../mysql.testscript
+
+  $create_schema;
+  $*
+}
+
+: sqlite
+:
+if $sqlite
+{
+  .include ../../sqlite.testscript
+
+  $*
+}
+
+: pgsql
+:
+if $pgsql
+{
+  .include ../../pgsql.testscript
+
+  $create_schema;
+  $*
+}
+
+: oracle
+:
+if $oracle
+{
+  .include ../../oracle.testscript
+
+  $create_schema;
+  $*
+}
+
+: mssql
+:
+if $mssql
+{
+  .include ../../mssql.testscript
+
+  $create_schema;
+  $*
+}