141 lines
3.1 KiB
Plaintext
141 lines
3.1 KiB
Plaintext
# 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
|