Move bundled copy of sqlite one level deeper to better separate it...

third_party/sqlite/test/alias.test

-# 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