release v1.4.0-beta1v1.4.0-beta1

1 files changed, 86 insertions, 0 deletions

diff --git a/testdata/tcl/tkt-f973c7ac31.test b/testdata/tcl/tkt-f973c7ac31.test
new file mode 100644
index 0000000..4543090
--- /dev/null
+++ b/testdata/tcl/tkt-f973c7ac31.test
@@ -0,0 +1,86 @@
+# 2010 June 09
+#
+# 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.
+#
+#***********************************************************************
+# This file implements regression tests for SQLite library. 
+#
+
+set testdir [file dirname $argv0]
+source $testdir/tester.tcl
+
+do_test tkt-f973c7ac3-1.0 {
+  execsql {
+    CREATE TABLE t(c1 INTEGER, c2 INTEGER);
+    INSERT INTO t VALUES(5, 5);
+    INSERT INTO t VALUES(5, 4);
+  }
+} {}
+
+foreach {tn sql} {
+  1 ""
+  2 "CREATE INDEX i1 ON t(c1, c2)"
+} {
+
+  execsql $sql
+
+  do_test tkt-f973c7ac3-1.$tn.1 {
+    execsql { 
+      SELECT * FROM t WHERE c1 = 5 AND c2>0 AND c2<='2' ORDER BY c2 DESC 
+    }
+  } {}
+  do_test tkt-f973c7ac3-1.$tn.2 {
+    execsql { 
+      SELECT * FROM t WHERE c1 = 5 AND c2>0 AND c2<=5 ORDER BY c2 DESC 
+    }
+  } {5 5 5 4}
+  do_test tkt-f973c7ac3-1.$tn.3 {
+    execsql { 
+      SELECT * FROM t WHERE c1 = 5 AND c2>0 AND c2<='5' ORDER BY c2 DESC 
+    }
+  } {5 5 5 4}
+  do_test tkt-f973c7ac3-1.$tn.4 {
+    execsql { 
+      SELECT * FROM t WHERE c1 = 5 AND c2>'0' AND c2<=5 ORDER BY c2 DESC 
+    }
+  } {5 5 5 4}
+  do_test tkt-f973c7ac3-1.$tn.5 {
+    execsql { 
+      SELECT * FROM t WHERE c1 = 5 AND c2>'0' AND c2<='5' ORDER BY c2 DESC 
+    }
+  } {5 5 5 4}
+
+  do_test tkt-f973c7ac3-1.$tn.6 {
+    execsql { 
+      SELECT * FROM t WHERE c1 = 5 AND c2>0 AND c2<='2' ORDER BY c2 ASC 
+    }
+  } {}
+  do_test tkt-f973c7ac3-1.$tn.7 {
+    execsql { 
+      SELECT * FROM t WHERE c1 = 5 AND c2>0 AND c2<=5 ORDER BY c2 ASC 
+    }
+  } {5 4 5 5}
+  do_test tkt-f973c7ac3-1.$tn.8 {
+    execsql { 
+      SELECT * FROM t WHERE c1 = 5 AND c2>0 AND c2<='5' ORDER BY c2 ASC 
+    }
+  } {5 4 5 5}
+  do_test tkt-f973c7ac3-1.$tn.9 {
+    execsql { 
+      SELECT * FROM t WHERE c1 = 5 AND c2>'0' AND c2<=5 ORDER BY c2 ASC 
+    }
+  } {5 4 5 5}
+  do_test tkt-f973c7ac3-1.$tn.10 {
+    execsql { 
+      SELECT * FROM t WHERE c1 = 5 AND c2>'0' AND c2<='5' ORDER BY c2 ASC 
+    }
+  } {5 4 5 5}
+} 
+
+
+finish_test