| Index: third_party/sqlite/test/alias.test
|
| ===================================================================
|
| --- third_party/sqlite/test/alias.test (revision 56608)
|
| +++ third_party/sqlite/test/alias.test (working copy)
|
| @@ -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
|
|
|