# 2001 September 15 # # 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 file is testing aggregate functions and the # GROUP BY and HAVING clauses of SELECT statements. # # $Id: select5.test,v 1.7 2004/05/27 17:22:56 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Build some test data # execsql { CREATE TABLE t1(x int, y int); BEGIN; } for {set i 1} {$i<32} {incr i} { for {set j 0} {pow(2,$j)<$i} {incr j} {} execsql "INSERT INTO t1 VALUES([expr {32-$i}],[expr {10-$j}])" } execsql { COMMIT } do_test select5-1.0 { execsql {SELECT DISTINCT y FROM t1 ORDER BY y} } {5 6 7 8 9 10} # Sort by an aggregate function. # do_test select5-1.1 { execsql {SELECT y, count(*) FROM t1 GROUP BY y ORDER BY y} } {5 15 6 8 7 4 8 2 9 1 10 1} do_test select5-1.2 { execsql {SELECT y, count(*) FROM t1 GROUP BY y ORDER BY count(*), y} } {9 1 10 1 8 2 7 4 6 8 5 15} do_test select5-1.3 { execsql {SELECT count(*), y FROM t1 GROUP BY y ORDER BY count(*), y} } {1 9 1 10 2 8 4 7 8 6 15 5} # Some error messages associated with aggregates and GROUP BY # do_test select5-2.1 { set v [catch {execsql { SELECT y, count(*) FROM t1 GROUP BY z ORDER BY y }} msg] lappend v $msg } {1 {no such column: z}} do_test select5-2.2 { set v [catch {execsql { SELECT y, count(*) FROM t1 GROUP BY z(y) ORDER BY y }} msg] lappend v $msg } {1 {no such function: z}} do_test select5-2.3 { set v [catch {execsql { SELECT y, count(*) FROM t1 GROUP BY y HAVING count(*)<3 ORDER BY y }} msg] lappend v $msg } {0 {8 2 9 1 10 1}} do_test select5-2.4 { set v [catch {execsql { SELECT y, count(*) FROM t1 GROUP BY y HAVING z(y)<3 ORDER BY y }} msg] lappend v $msg } {1 {no such function: z}} do_test select5-2.5 { set v [catch {execsql { SELECT y, count(*) FROM t1 GROUP BY y HAVING count(*)100 } } {{}} do_test select5-4.2 { execsql { SELECT count(x) FROM t1 WHERE x>100 } } {0} do_test select5-4.3 { execsql { SELECT min(x) FROM t1 WHERE x>100 } } {{}} do_test select5-4.4 { execsql { SELECT max(x) FROM t1 WHERE x>100 } } {{}} do_test select5-4.5 { execsql { SELECT sum(x) FROM t1 WHERE x>100 } } {0} finish_test