1 files changed, 89 insertions, 0 deletions
diff --git a/test/tkt3922.test b/test/tkt3922.test
new file mode 100644
index 0000000..86bf5fe
--- /dev/null
+++ b/test/tkt3922.test
@@ -0,0 +1,89 @@
+# 2009 June 17
+#
+# The author disclaims copyright to this source code.  In place of
+# a legal notice, here is a blessing:
+#
+#    May you do good and not evil.
+#    May you find forgiveness for yourself and forgive others.
+#    May you share freely, never taking more than you give.
+#
+#***********************************************************************
+#
+# $Id: tkt3922.test,v 1.2 2009/06/26 14:17:47 shane Exp $
+
+set testdir [file dirname $argv0]
+source $testdir/tester.tcl
+
+if {[working_64bit_int]} {
+  do_test tkt3922.1 {
+    execsql {
+      CREATE TABLE t1(a NUMBER);
+      INSERT INTO t1 VALUES('-9223372036854775808');
+      SELECT a, typeof(a) FROM t1;
+    }
+  } {-9223372036854775808 integer}
+} else {
+  # this alternate version of tkt3922.1 doesn't
+  # really test the same thing as the original, 
+  # but is needed to create the table and 
+  # provided simply as a place holder for 
+  # platforms without working 64bit support.
+  do_test tkt3922.1 {
+    execsql {
+      CREATE TABLE t1(a NUMBER);
+      INSERT INTO t1 VALUES('-1');
+      SELECT a, typeof(a) FROM t1;
+    }
+  } {-1 integer}
+}
+do_realnum_test tkt3922.2 {
+  execsql {
+    DELETE FROM t1;
+    INSERT INTO t1 VALUES('-9223372036854775809');
+    SELECT a, typeof(a) FROM t1;
+  }
+} {-9.22337203685478e+18 real}
+do_realnum_test tkt3922.3 {
+  execsql {
+    DELETE FROM t1;
+    INSERT INTO t1 VALUES('-9223372036854776832');
+    SELECT a, typeof(a) FROM t1;
+  }
+} {-9.22337203685478e+18 real}
+do_realnum_test tkt3922.4 {
+  execsql {
+    DELETE FROM t1;
+    INSERT INTO t1 VALUES('-9223372036854776833');
+    SELECT a, typeof(a) FROM t1;
+  }
+} {-9.22337203685478e+18 real}
+if {[working_64bit_int]} {
+  do_test tkt3922.5 {
+    execsql {
+      DELETE FROM t1;
+      INSERT INTO t1 VALUES('9223372036854775807');
+      SELECT a, typeof(a) FROM t1;
+    }
+  } {9223372036854775807 integer}
+} else {
+  # this alternate version of tkt3922.5 doesn't
+  # really test the same thing as the original, 
+  # but provided simply as a place holder for 
+  # platforms without working 64bit support.
+  do_test tkt3922.5 {
+    execsql {
+      DELETE FROM t1;
+      INSERT INTO t1 VALUES('1');
+      SELECT a, typeof(a) FROM t1;
+    }
+  } {1 integer}
+}
+do_realnum_test tkt3922.6 {
+  execsql {
+    DELETE FROM t1;
+    INSERT INTO t1 VALUES('9223372036854775808');
+    SELECT a, typeof(a) FROM t1;
+  }
+} {9.22337203685478e+18 real}
+
+finish_test