Index: third_party/sqlite/sqlite-src-3070603/test/alias.test |
diff --git a/third_party/sqlite/sqlite-src-3070603/test/alias.test b/third_party/sqlite/sqlite-src-3070603/test/alias.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..290798974b74c2e680d4af75c8e122f6f22ade89 |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3070603/test/alias.test |
@@ -0,0 +1,140 @@ |
+# 2008 August 28 |
+# |
+# 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. The |
+# focus of this script is correct code generation of aliased result-set |
+# values. See ticket #3343. |
+# |
+# $Id: alias.test,v 1.3 2009/04/23 13:22:44 drh Exp $ |
+# |
+set testdir [file dirname $argv0] |
+source $testdir/tester.tcl |
+ |
+# Aliases are currently evaluated twice. We might try to change this |
+# in the future. But not now. |
+return |
+ |
+# A procedure to return a sequence of increasing integers. |
+# |
+namespace eval ::seq { |
+ variable counter 0 |
+ proc value {args} { |
+ variable counter |
+ incr counter |
+ return $counter |
+ } |
+ proc reset {} { |
+ variable counter |
+ set counter 0 |
+ } |
+} |
+ |
+ |
+do_test alias-1.1 { |
+ db function sequence ::seq::value |
+ db eval { |
+ CREATE TABLE t1(x); |
+ INSERT INTO t1 VALUES(9); |
+ INSERT INTO t1 VALUES(8); |
+ INSERT INTO t1 VALUES(7); |
+ SELECT x, sequence() FROM t1; |
+ } |
+} {9 1 8 2 7 3} |
+do_test alias-1.2 { |
+ ::seq::reset |
+ db eval { |
+ SELECT x, sequence() AS y FROM t1 WHERE y>0 |
+ } |
+} {9 1 8 2 7 3} |
+do_test alias-1.3 { |
+ ::seq::reset |
+ db eval { |
+ SELECT x, sequence() AS y FROM t1 WHERE y>0 AND y<99 |
+ } |
+} {9 1 8 2 7 3} |
+do_test alias-1.4 { |
+ ::seq::reset |
+ db eval { |
+ SELECT x, sequence() AS y FROM t1 WHERE y>0 AND y<99 AND y!=55 |
+ } |
+} {9 1 8 2 7 3} |
+do_test alias-1.5 { |
+ ::seq::reset |
+ db eval { |
+ SELECT x, sequence() AS y FROM t1 |
+ WHERE y>0 AND y<99 AND y!=55 AND y NOT IN (56,57,58) |
+ AND y NOT LIKE 'abc%' AND y%10==2 |
+ } |
+} {8 2} |
+do_test alias-1.6 { |
+ ::seq::reset |
+ db eval { |
+ SELECT x, sequence() AS y FROM t1 WHERE y BETWEEN 0 AND 99 |
+ } |
+} {9 1 8 2 7 3} |
+#do_test alias-1.7 { |
+# ::seq::reset |
+# db eval { |
+# SELECT x, sequence() AS y FROM t1 WHERE y IN (55,66,3) |
+# } |
+#} {7 3} |
+do_test alias-1.8 { |
+ ::seq::reset |
+ db eval { |
+ SELECT x, 1-sequence() AS y FROM t1 ORDER BY y |
+ } |
+} {7 -2 8 -1 9 0} |
+do_test alias-1.9 { |
+ ::seq::reset |
+ db eval { |
+ SELECT x, sequence() AS y FROM t1 ORDER BY -y |
+ } |
+} {7 3 8 2 9 1} |
+do_test alias-1.10 { |
+ ::seq::reset |
+ db eval { |
+ SELECT x, sequence() AS y FROM t1 ORDER BY x%2, y |
+ } |
+} {8 2 9 1 7 3} |
+ |
+unset -nocomplain random_int_list |
+set random_int_list [db eval { |
+ SELECT random()&2147483647 AS r FROM t1, t1, t1, t1 ORDER BY r |
+}] |
+do_test alias-1.11 { |
+ lsort -integer $::random_int_list |
+} $random_int_list |
+ |
+ |
+do_test alias-2.1 { |
+ db eval { |
+ SELECT 4 UNION SELECT 1 ORDER BY 1 |
+ } |
+} {1 4} |
+do_test alias-2.2 { |
+ db eval { |
+ SELECT 4 UNION SELECT 1 UNION SELECT 9 ORDER BY 1 |
+ } |
+} {1 4 9} |
+ |
+if 0 { |
+ # Aliases in the GROUP BY clause cause the expression to be evaluated |
+ # twice in the current implementation. This might change in the future. |
+ # |
+ do_test alias-3.1 { |
+ ::seq::reset |
+ db eval { |
+ SELECT sequence(*) AS y, count(*) AS z FROM t1 GROUP BY y ORDER BY z, y |
+ } |
+ } {1 1 2 1 3 1} |
+} |
+ |
+finish_test |