diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/delete.test | 4 | ||||
| -rw-r--r-- | test/index.test | 8 | ||||
| -rw-r--r-- | test/insert.test | 6 | ||||
| -rw-r--r-- | test/table.test | 22 | ||||
| -rw-r--r-- | test/update.test | 119 |
5 files changed, 139 insertions, 20 deletions
diff --git a/test/delete.test b/test/delete.test index 4be52ee70..c745afa15 100644 --- a/test/delete.test +++ b/test/delete.test @@ -23,7 +23,7 @@ # This file implements regression tests for SQLite library. The # focus of this file is testing the DELETE FROM statement. # -# $Id: delete.test,v 1.1 2000/05/30 00:51:27 drh Exp $ +# $Id: delete.test,v 1.2 2000/05/30 03:12:22 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -40,7 +40,7 @@ do_test delete-1.1 { do_test delete-2.1 { set v [catch {execsql {DELETE FROM sqlite_master}} msg] lappend v $msg -} {1 {table "sqlite_master" may not be modified}} +} {1 {table sqlite_master may not be modified}} diff --git a/test/index.test b/test/index.test index f53cc9d3f..e760fe019 100644 --- a/test/index.test +++ b/test/index.test @@ -23,7 +23,7 @@ # This file implements regression tests for SQLite library. The # focus of this file is testing the CREATE INDEX statement. # -# $Id: index.test,v 1.1 2000/05/29 23:58:12 drh Exp $ +# $Id: index.test,v 1.2 2000/05/30 03:12:22 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -167,14 +167,14 @@ do_test index-6.1 { execsql {CREATE INDEX index1 ON test1(f1)} set v [catch {execsql {CREATE INDEX index1 ON test2(g1)}} msg] lappend v $msg -} {1 {index "index1" already exists}} +} {1 {index index1 already exists}} do_test index-6.1b { execsql {SELECT name FROM sqlite_master ORDER BY name} } {index1 test1 test2} do_test index-6.2 { set v [catch {execsql {CREATE INDEX test1 ON test2(g1)}} msg] lappend v $msg -} {1 {there is already a table named "test1"}} +} {1 {there is already a table named test1}} do_test index-6.2b { execsql {SELECT name FROM sqlite_master ORDER BY name} } {index1 test1 test2} @@ -210,7 +210,7 @@ do_test index-7.4 { do_test index-8.1 { set v [catch {execsql {DROP INDEX index1}} msg] lappend v $msg -} {1 {no such index: "index1"}} +} {1 {no such index: index1}} diff --git a/test/insert.test b/test/insert.test index e5bdb669d..2bb4c6d00 100644 --- a/test/insert.test +++ b/test/insert.test @@ -23,7 +23,7 @@ # This file implements regression tests for SQLite library. The # focus of this file is testing the INSERT statement. # -# $Id: insert.test,v 1.1 2000/05/30 00:51:27 drh Exp $ +# $Id: insert.test,v 1.2 2000/05/30 03:12:22 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -33,14 +33,14 @@ source $testdir/tester.tcl do_test insert-1.1 { set v [catch {execsql {INSERT INTO test1 VALUES(1,2,3)}} msg] lappend v $msg -} {1 {no such table: "test1"}} +} {1 {no such table: test1}} # Try to insert into sqlite_master # do_test insert-1.2 { set v [catch {execsql {INSERT INTO sqlite_master VALUES(1,2,3,4)}} msg] lappend v $msg -} {1 {table "sqlite_master" may not be modified}} +} {1 {table sqlite_master may not be modified}} # Try to insert the wrong number of entries. # diff --git a/test/table.test b/test/table.test index 24c6bb45a..9c54a9596 100644 --- a/test/table.test +++ b/test/table.test @@ -23,7 +23,7 @@ # This file implements regression tests for SQLite library. The # focus of this file is testing the CREATE TABLE statement. # -# $Id: table.test,v 1.1 2000/05/29 23:58:12 drh Exp $ +# $Id: table.test,v 1.2 2000/05/30 03:12:22 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -96,17 +96,17 @@ do_test table-2.1 { execsql {CREATE TABLE test2(one text)} set v [catch {execsql {CREATE TABLE test2(two text)}} msg] lappend v $msg -} {1 {table "test2" already exists}} +} {1 {table test2 already exists}} do_test table-2.1b { set v [catch {execsql {CREATE TABLE sqlite_master(two text)}} msg] lappend v $msg -} {1 {table "sqlite_master" already exists}} +} {1 {table sqlite_master already exists}} do_test table-2.1c { db close sqlite db testdb set v [catch {execsql {CREATE TABLE sqlite_master(two text)}} msg] lappend v $msg -} {1 {table "sqlite_master" already exists}} +} {1 {table sqlite_master already exists}} do_test table-2.1d { execsql {DROP TABLE test2; SELECT name FROM sqlite_master} } {} @@ -117,13 +117,13 @@ do_test table-2.2 { execsql {CREATE TABLE test2(one text); CREATE INDEX test3 ON test2(one)} set v [catch {execsql {CREATE TABLE test3(two text)}} msg] lappend v $msg -} {1 {there is already an index named "test3"}} +} {1 {there is already an index named test3}} do_test table-2.2b { db close sqlite db testdb set v [catch {execsql {CREATE TABLE test3(two text)}} msg] lappend v $msg -} {1 {there is already an index named "test3"}} +} {1 {there is already an index named test3}} do_test table-2.2c { execsql {DROP INDEX test3} set v [catch {execsql {CREATE TABLE test3(two text)}} msg] @@ -169,21 +169,21 @@ do_test table-3.1 { do_test table-3.2 { set v [catch {execsql {CREATE TABLE BIG(xyz foo)}} msg] lappend v $msg -} {1 {table "BIG" already exists}} +} {1 {table BIG already exists}} do_test table-3.3 { set v [catch {execsql {CREATE TABLE biG(xyz foo)}} msg] lappend v $msg -} {1 {table "biG" already exists}} +} {1 {table biG already exists}} do_test table-3.4 { set v [catch {execsql {CREATE TABLE bIg(xyz foo)}} msg] lappend v $msg -} {1 {table "bIg" already exists}} +} {1 {table bIg already exists}} do_test table-3.5 { db close sqlite db testdb set v [catch {execsql {CREATE TABLE Big(xyz foo)}} msg] lappend v $msg -} {1 {table "Big" already exists}} +} {1 {table Big already exists}} do_test table-3.6 { execsql {DROP TABLE big} execsql {SELECT name FROM sqlite_master} @@ -248,7 +248,7 @@ do_test table-5.1 { do_test table-5.2 { set v [catch {execsql {DROP TABLE sqlite_master}} msg] lappend v $msg -} {1 {table "sqlite_master" may not be dropped}} +} {1 {table sqlite_master may not be dropped}} # Make sure an EXPLAIN does not really create a new table # diff --git a/test/update.test b/test/update.test new file mode 100644 index 000000000..cd0a2047d --- /dev/null +++ b/test/update.test @@ -0,0 +1,119 @@ +# Copyright (c) 1999, 2000 D. Richard Hipp +# +# This program is free software; you can redistribute it and/or +# modify it under the terms of the GNU General Public +# License as published by the Free Software Foundation; either +# version 2 of the License, or (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public +# License along with this library; if not, write to the +# Free Software Foundation, Inc., 59 Temple Place - Suite 330, +# Boston, MA 02111-1307, USA. +# +# Author contact information: +# drh@hwaci.com +# http://www.hwaci.com/drh/ +# +#*********************************************************************** +# This file implements regression tests for SQLite library. The +# focus of this file is testing the UPDATE statement. +# +# $Id: update.test,v 1.1 2000/05/30 03:12:22 drh Exp $ + +set testdir [file dirname $argv0] +source $testdir/tester.tcl + +# Try to update an non-existent table +# +do_test update-1.1 { + set v [catch {execsql {UPDATE test1 SET f2=5 WHERE f1<1}} msg] + lappend v $msg +} {1 {no such table: test1}} + +# Try to update a read-only table +# +do_test update-2.1 { + set v [catch \ + {execsql {UPDATE sqlite_master SET name='xyz' WHERE name='123'}} msg] + lappend v $msg +} {1 {table sqlite_master may not be modified}} + +# Create a table to work with +# +do_test update-3.1 { + execsql {CREATE TABLE test1(f1 int,f2 int)} + for {set i 1} {$i<=10} {incr i} { + set sql "INSERT INTO test1 VALUES($i,[expr {int(pow(2,$i))}])" + execsql $sql + } + execsql {SELECT * FROM test1 ORDER BY f1} +} {1 2 2 4 3 8 4 16 5 32 6 64 7 128 8 256 9 512 10 1024} + +# Unknown field name in an expression +# +do_test update-3.2 { + set v [catch {execsql {UPDATE test1 SET f1=f3*2 WHERE f2==32}} msg] + lappend v $msg +} {1 {no such field: f3}} +do_test update-3.3 { + set v [catch {execsql {UPDATE test1 SET f1=test2.f1*2 WHERE f2==32}} msg] + lappend v $msg +} {1 {no such field: test2.f1}} +do_test update-3.4 { + set v [catch {execsql {UPDATE test1 SET f3=f1*2 WHERE f2==32}} msg] + lappend v $msg +} {1 {no such field: f3}} + +# Actually do some updates +# +do_test update-3.5 { + execsql {UPDATE test1 SET f2=f2*3} + execsql {SELECT * FROM test1 ORDER BY f1} +} {1 6 2 12 3 24 4 48 5 96 6 192 7 384 8 768 9 1536 10 3072} +do_test update-3.6 { + execsql {UPDATE test1 SET f2=f2/3 WHERE f1<=5} + execsql {SELECT * FROM test1 ORDER BY f1} +} {1 2 2 4 3 8 4 16 5 32 6 192 7 384 8 768 9 1536 10 3072} +do_test update-3.7 { + execsql {UPDATE test1 SET f2=f2/3 WHERE f1>5} + execsql {SELECT * FROM test1 ORDER BY f1} +} {1 2 2 4 3 8 4 16 5 32 6 64 7 128 8 256 9 512 10 1024} + +# Swap the values of f1 and f2 for all elements +# +do_test update-3.8 { + execsql {UPDATE test1 SET f2=f1, f1=f2} + execsql {SELECT * FROM test1 ORDER BY f1} +} {2 1 4 2 8 3 16 4 32 5 64 6 128 7 256 8 512 9 1024 10} + +# Create an index and make sure updating works with an index. +# +do_test update-3.9 { + execsql {CREATE INDEX index1 ON test1(f1)} + execsql {CREATE INDEX index2 ON test1(f1)} + execsql {UPDATE test1 SET f1=1025 WHERE f2==10} + execsql {SELECT * FROM test1 ORDER BY f1} +} {2 1 4 2 8 3 16 4 32 5 64 6 128 7 256 8 512 9 1025 10} +do_test update-3.10 { + execsql {SELECT * FROM test1 WHERE f1=1025} +} {1025 10} +do_test update-3.11 { + execsql {UPDATE test1 SET f2=11 WHERE f1==1025} + execsql {SELECT * FROM test1 ORDER BY f1} +} {2 1 4 2 8 3 16 4 32 5 64 6 128 7 256 8 512 9 1025 11} +do_test update-3.12 { + execsql {SELECT * FROM test1 WHERE f1=1025} +} {1025 11} + + + + + + + +finish_test |