Index: third_party/sqlite/sqlite-src-3080704/test/alias.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/alias.test b/third_party/sqlite/sqlite-src-3080704/test/alias.test |
deleted file mode 100644 |
index 290798974b74c2e680d4af75c8e122f6f22ade89..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3080704/test/alias.test |
+++ /dev/null |
@@ -1,140 +0,0 @@ |
-# 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 |