Add infrastructure for oracle development testing and implement native test

1 files changed, 78 insertions, 0 deletions

diff --git a/oracle/native/driver.cxx b/oracle/native/driver.cxx
new file mode 100644
index 0000000..ab1138a
--- /dev/null
+++ b/oracle/native/driver.cxx
@@ -0,0 +1,78 @@
+// file      : oracle/native/driver.cxx
+// author    : Constantin Michael <constantin@codesynthesis.com>
+// copyright : Copyright (c) 2009-2011 Code Synthesis Tools CC
+// license   : ODB NCUEL; see accompanying LICENSE file
+
+// Test native SQL execution.
+//
+
+#include <memory>   // std::auto_ptr
+#include <cassert>
+#include <iostream>
+
+#include <odb/oracle/database.hxx>
+#include <odb/oracle/transaction.hxx>
+
+#include <common/common.hxx>
+
+using namespace std;
+using namespace odb::core;
+
+int
+main (int argc, char* argv[])
+{
+  try
+  {
+    auto_ptr<database> db (create_database (argc, argv, false));
+
+    // Create the database schema.
+    //
+    {
+      transaction t (db->begin ());
+
+      db->execute ("BEGIN "
+                   "  EXECUTE IMMEDIATE 'DROP TABLE oracle_native_test'; "
+                   "  EXCEPTION "
+                   "    WHEN OTHERS THEN "
+                   "      IF SQLCODE != -942 THEN RAISE; END IF; "
+                   "END;");
+
+      db->execute ("CREATE TABLE oracle_native_test (n NUMERIC(10,0))");
+
+      t.commit ();
+    }
+
+    // Insert a few rows.
+    //
+    {
+      transaction t (db->begin ());
+
+      assert (
+        db->execute ("INSERT INTO oracle_native_test (n) VALUES (1)") == 1);
+
+      assert (
+        db->execute ("INSERT INTO oracle_native_test (n) VALUES (2)") == 1);
+
+      t.commit ();
+    }
+
+    // Select a few rows.
+    //
+    {
+      transaction t (db->begin ());
+
+      assert (
+        db->execute ("SELECT n FROM oracle_native_test WHERE n < 3") == 2);
+
+      assert (
+        db->execute ("SELECT n FROM oracle_native_test WHERE n > 3") == 0);
+
+      t.commit ();
+    }
+  }
+  catch (const odb::exception& e)
+  {
+    cerr << e.what () << endl;
+    return 1;
+  }
+}