1 files changed, 366 insertions, 0 deletions
diff --git a/odb-tests/oracle/types/driver.cxx b/odb-tests/oracle/types/driver.cxx
new file mode 100644
index 0000000..2e3e2e7
--- /dev/null
+++ b/odb-tests/oracle/types/driver.cxx
@@ -0,0 +1,366 @@
+// file      : oracle/types/driver.cxx
+// license   : GNU GPL v2; see accompanying LICENSE file
+
+// Test Oracle type conversion.
+//
+
+#include <memory>   // std::auto_ptr
+#include <cassert>
+#include <iostream>
+
+#include <odb/oracle/database.hxx>
+#include <odb/oracle/transaction.hxx>
+
+#include <common/common.hxx>
+
+#include "test.hxx"
+#include "test-odb.hxx"
+
+using namespace std;
+namespace oracle = odb::oracle;
+using namespace oracle;
+
+int
+main (int argc, char* argv[])
+{
+  try
+  {
+    // Create an Oracle database instance, setting both the client database
+    // and national character set to UTF-8.
+    //
+    auto_ptr<database> db (create_specific_database<database> (argc, argv));
+
+    object o (1);
+
+    o.int_ = -123456;
+    o.uint_ = 123456;
+    o.long_long_ = -123456;
+    o.ulong_long_ = 123456;
+
+    o.float_ = 1.123F;
+    o.double_ = 1.123;
+    o.num_float_ = 1.123F;
+    o.num_double_ = 1.123;
+    o.binary_float_ = 1.123F;
+    o.binary_double_ = 1.123;
+
+    o.date_ = date_time (2010, 8, 29, 15, 33, 18, 0);
+    o.timestamp_ = date_time (1996, 3, 9, 18, 2, 54, 123000);
+    o.interval_ds_ = time_interval (0, 0, 13, 15, 23, 19, 123000);
+    o.interval_ym_ = time_interval (12, 3, 0, 0, 0, 0, 0);
+
+    string vshort_str (8, 's');
+    string short_str (13, 's');
+    string medium_str (104, 'm');
+    string long_str (1018, 'l');
+    string vlong_str (15000, 'v');
+
+    o.char_ = short_str;
+    o.varchar2_ = medium_str;
+    o.clob_.assign (vlong_str.data (), vlong_str.data () + vlong_str.size ());
+
+    o.nchar_ = vshort_str;
+    o.nvarchar2_ = medium_str;
+    o.nclob_.assign (vlong_str.data (), vlong_str.data () + vlong_str.size ());
+
+    o.empty_c_.push_back ("");
+
+    o.raw_.assign (long_str.data (), long_str.data () + long_str.size ());
+    o.blob_.assign (vlong_str.data (), vlong_str.data () + vlong_str.size ());
+
+    o.strs_.push_back (short_str);
+    o.strs_.push_back (medium_str);
+    o.strs_.push_back (long_str);
+    o.strs_.push_back (vlong_str);
+
+    // Persist.
+    //
+    {
+      transaction t (db->begin ());
+      db->persist (o);
+      t.commit ();
+    }
+
+    // Load.
+    //
+    {
+      transaction t (db->begin ());
+      auto_ptr<object> o1 (db->load<object> (1));
+      t.commit ();
+
+      assert (o == *o1);
+    }
+
+    // Test character set conversion.
+    //
+    const char* unicode_str = "a \xD5\x95 \xEA\xAA\xAA \xF2\xAA\xAA\xAA";
+
+    // Testing of character set conversion to and from the client's database
+    // character set is disabled as the server database character set may
+    // not be able to represent some Unicode characters. If this were the case
+    // the test outcome would be a false negative.
+    //
+    // o.char_ = unicode_str;
+    // o.varchar2_ = unicode_str;
+    // o.clob_ = unicode_str;
+
+    o.nchar_ = unicode_str;
+    o.nvarchar2_ = unicode_str;
+    o.nclob_ = unicode_str;
+
+    // Persist.
+    //
+    {
+      transaction t (db->begin ());
+      db->update (o);
+      t.commit ();
+    }
+
+    // Load.
+    //
+    {
+      transaction t (db->begin ());
+      auto_ptr<object> o1 (db->load<object> (1));
+      t.commit ();
+
+      assert (o == *o1);
+    }
+
+    // Test 64 bit integers.
+    //
+    big_int bi1 (1, 0x8000000000000000LL);
+    big_int bi2 (2, -123456);
+    big_int bi3 (3, 0);
+    big_int bi4 (4, 123456);
+    big_int bi5 (5, 0xFFFFFFFFFFFFFFFFULL);
+
+    big_uint bui1 (1, 0);
+    big_uint bui2 (2, 123456);
+    big_uint bui3 (3, 0xFFFFFFFFFFFFFFFFULL);
+
+    // Persist.
+    //
+    {
+      transaction t (db->begin ());
+      db->persist (bi1);
+      db->persist (bi2);
+      db->persist (bi3);
+      db->persist (bi4);
+      db->persist (bi5);
+      db->persist (bui1);
+      db->persist (bui2);
+      db->persist (bui3);
+      t.commit ();
+    }
+
+    // Load.
+    //
+    {
+      transaction t (db->begin ());
+      auto_ptr<big_int> bil1 (db->load<big_int> (1));
+      auto_ptr<big_int> bil2 (db->load<big_int> (2));
+      auto_ptr<big_int> bil3 (db->load<big_int> (3));
+      auto_ptr<big_int> bil4 (db->load<big_int> (4));
+      auto_ptr<big_int> bil5 (db->load<big_int> (5));
+      auto_ptr<big_uint> buil1 (db->load<big_uint> (1));
+      auto_ptr<big_uint> buil2 (db->load<big_uint> (2));
+      auto_ptr<big_uint> buil3 (db->load<big_uint> (3));
+      t.commit ();
+
+      assert (bi1 == *bil1);
+      assert (bi2 == *bil2);
+      assert (bi3 == *bil3);
+      assert (bi4 == *bil4);
+      assert (bi5 == *bil5);
+      assert (bui1 == *buil1);
+      assert (bui2 == *buil2);
+      assert (bui3 == *buil3);
+    }
+
+    // Test large BLOBs.
+    //
+    descriptor b1 (1);
+    b1.blob.assign (50000, 'b');
+    b1.timestamp = date_time (1996, 3, 9, 18, 2, 54, 123000);
+    b1.interval_ds = time_interval (0, 0, 13, 15, 23, 19, 123000);
+    b1.interval_ym = time_interval (12, 3, 0, 0, 0, 0, 0);
+
+    descriptor b2 (2);
+    b2.blob.assign (500000, 'b');
+    b2.timestamp = date_time (1997, 4, 10, 19, 3, 55, 234000);
+    b2.interval_ds = time_interval (0, 0, 14, 16, 24, 20, 234000);
+    b2.interval_ym = time_interval (13, 4, 0, 0, 0, 0, 0);
+
+    descriptor b3 (3);
+    b3.blob.assign (5000, 'b');
+    b3.timestamp = date_time (1995, 2, 8, 17, 1, 53, 120000);
+    b3.interval_ds = time_interval (0, 0, 12, 14, 22, 18, 120000);
+    b3.interval_ym = time_interval (11, 2, 0, 0, 0, 0, 0);
+
+    // Persist.
+    //
+    {
+      transaction t (db->begin ());
+      db->persist (b1);
+      db->persist (b2);
+      t.commit ();
+    }
+
+    // Load.
+    //
+    {
+      transaction t (db->begin ());
+      auto_ptr<descriptor> p1 (db->load<descriptor> (1));
+      auto_ptr<descriptor> p2 (db->load<descriptor> (2));
+      t.commit ();
+
+      assert (b1 == *p1);
+      assert (b2 == *p2);
+    }
+
+    // Test image copying with descriptor-based type (LOB, date-time) data.
+    //
+    {
+      typedef oracle::query<descriptor> query;
+      typedef odb::result<descriptor> result;
+
+      transaction t (db->begin ());
+
+      // Pre-bind the image for other operations.
+      //
+      {
+        db->persist (b3);
+        db->update (b3);
+        db->reload (b3);
+        db->erase (b3);
+      }
+
+
+      result r (db->query<descriptor> (query::id < 3));
+      result::iterator i (r.begin ());
+
+      assert (i != r.end ());
+
+      {
+        result r (db->query<descriptor> (query::id > 1));
+        result::iterator i (r.begin ());
+        assert (i != r.end ());
+        assert (*i == b2);
+        assert (++i == r.end ());
+      }
+
+      assert (*i == b1); // Load from copy (copy c-tor).
+
+      ++i;
+      assert (i != r.end ());
+
+      {
+        result r (db->query<descriptor> (query::id < 2));
+        result::iterator i (r.begin ());
+        assert (i != r.end ());
+        assert (*i == b1);
+        assert (++i == r.end ());
+      }
+
+      assert (*i == b2); // Load from copy (copy assign).
+      assert (++i == r.end ());
+
+      // Make sure all other operations are still working.
+      //
+      {
+        db->persist (b3);
+#ifdef HAVE_CXX11
+        unique_ptr<descriptor> p (db->load<descriptor> (3));
+#else
+        auto_ptr<descriptor> p (db->load<descriptor> (3));
+#endif
+        assert (b3 == *p);
+        b3.blob.push_back (123);
+        db->update (b3);
+        db->reload (p);
+        assert (b3 == *p);
+        db->erase (b3);
+      }
+
+      t.commit ();
+    }
+
+    // Test descriptor management in TIMESTAMP and INTERVAL images.
+    //
+    {
+      typedef oracle::query<object> query;
+      typedef odb::result<object> result;
+
+      query q (query::timestamp == o.timestamp_ &&
+               query::interval_ym == o.interval_ym_ &&
+               query::interval_ds == o.interval_ds_);
+
+      transaction t (db->begin ());
+
+      {
+        result r (db->query<object> (q));
+        assert (size (r) == 1);
+      }
+
+      {
+        result r (db->query<object> (q));
+        assert (size (r) == 1);
+      }
+
+      {
+        // Query temporary.
+        //
+        result r (db->query<object> (
+                    query::timestamp == o.timestamp_ &&
+                    query::interval_ym == o.interval_ym_ &&
+                    query::interval_ds == o.interval_ds_));
+
+        query dummy (query::timestamp == o.timestamp_ &&
+                     query::interval_ym == o.interval_ym_ &&
+                     query::interval_ds == o.interval_ds_);
+
+        assert (size (r) == 1);
+      }
+
+      t.commit ();
+    }
+
+    // Test char array.
+    //
+    {
+      char_array o1 (1, "");
+      char_array o2 (2, "1234567890");
+      char_array o3 (3, "1234567890123456");
+
+      {
+        transaction t (db->begin ());
+        db->persist (o1);
+        db->persist (o2);
+        db->persist (o3);
+        t.commit ();
+      }
+
+      // Oracle returns padded values for CHAR(N) unless they are
+      // empty (represented as NULL).
+      //
+      memcpy (o2.s2, "1234567890      ", 16);
+
+      {
+        transaction t (db->begin ());
+        auto_ptr<char_array> p1 (db->load<char_array> (1));
+        auto_ptr<char_array> p2 (db->load<char_array> (2));
+        auto_ptr<char_array> p3 (db->load<char_array> (3));
+        t.commit ();
+
+        assert (o1 == *p1);
+        assert (o2 == *p2);
+        assert (o3 == *p3);
+      }
+    }
+  }
+  catch (const odb::exception& e)
+  {
+    cerr << e.what () << endl;
+    return 1;
+  }
+}