# 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 the INSERT statement that takes is # result from a SELECT. # # $Id: insert2.test,v 1.4 2001/09/16 00:13:28 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Create some tables with data that we can select against # do_test insert2-1.0 { execsql {CREATE TABLE d1(n int, log int);} for {set i 1} {$i<=20} {incr i} { for {set j 0} {pow(2,$j)<$i} {incr j} {} execsql "INSERT INTO d1 VALUES($i,$j)" } execsql {SELECT * FROM d1 ORDER BY n} } {1 0 2 1 3 2 4 2 5 3 6 3 7 3 8 3 9 4 10 4 11 4 12 4 13 4 14 4 15 4 16 4 17 5 18 5 19 5 20 5} # Insert into a new table from the old one. # do_test insert2-1.1 { execsql { CREATE TABLE t1(log int, cnt int); ---vdbe-trace-on-- INSERT INTO t1 SELECT log, count(*) FROM d1 GROUP BY log; } execsql {SELECT * FROM t1 ORDER BY log} } {0 1 1 1 2 2 3 4 4 8 5 4} do_test insert2-1.2 { catch {execsql {DROP TABLE t1}} execsql { CREATE TABLE t1(log int, cnt int); INSERT INTO t1 SELECT log, count(*) FROM d1 GROUP BY log EXCEPT SELECT n-1,log FROM d1; SELECT * FROM t1 ORDER BY log; } } {0 1 3 4 4 8 5 4} do_test insert2-1.3 { catch {execsql {DROP TABLE t1}} execsql { CREATE TABLE t1(log int, cnt int); INSERT INTO t1 SELECT log, count(*) FROM d1 GROUP BY log INTERSECT SELECT n-1,log FROM d1; SELECT * FROM t1 ORDER BY log; } } {1 1 2 2} do_test insert2-1.4 { catch {execsql {DROP TABLE t1}} set r [execsql { CREATE TABLE t1(log int, cnt int); CREATE INDEX i1 ON t1(log); CREATE INDEX i2 ON t1(cnt); INSERT INTO t1 SELECT log, count() FROM d1 GROUP BY log; SELECT * FROM t1 ORDER BY log; }] lappend r [execsql {SELECT cnt FROM t1 WHERE log=3}] lappend r [execsql {SELECT log FROM t1 WHERE cnt=4 ORDER BY log}] } {0 1 1 1 2 2 3 4 4 8 5 4 4 {3 5}} finish_test