440 lines
11 KiB
Plaintext
440 lines
11 KiB
Plaintext
# 2006 September 4
|
|
#
|
|
# 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.
|
|
#
|
|
# $Id: misc7.test,v 1.15 2007/08/22 20:18:22 drh Exp $
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
#do_test misc7-1 {
|
|
# c_misuse_test
|
|
#} {}
|
|
|
|
do_test misc7-2 {
|
|
c_realloc_test
|
|
} {}
|
|
|
|
do_test misc7-3 {
|
|
c_collation_test
|
|
} {}
|
|
|
|
# Try to open a directory:
|
|
#
|
|
do_test misc7-4 {
|
|
file delete mydir
|
|
file mkdir mydir
|
|
set rc [catch {
|
|
sqlite3 db2 ./mydir
|
|
} msg]
|
|
list $rc $msg
|
|
} {1 {unable to open database file}}
|
|
|
|
# Try to open a file with a directory where it's journal file should be.
|
|
#
|
|
do_test misc7-5 {
|
|
file delete mydir
|
|
file mkdir mydir-journal
|
|
sqlite3 db2 ./mydir
|
|
catchsql {
|
|
CREATE TABLE abc(a, b, c);
|
|
} db2
|
|
} {1 {unable to open database file}}
|
|
db2 close
|
|
|
|
#--------------------------------------------------------------------
|
|
# The following tests, misc7-6.* test the libraries behaviour when
|
|
# it cannot open a file. To force this condition, we use up all the
|
|
# file-descriptors before running sqlite. This probably only works
|
|
# on unix.
|
|
#
|
|
|
|
proc use_up_files {} {
|
|
set ret [list]
|
|
catch {
|
|
while 1 { lappend ret [open test.db] }
|
|
}
|
|
return $ret
|
|
}
|
|
|
|
proc do_fileopen_test {prefix sql} {
|
|
set fd_list [use_up_files]
|
|
set ::go 1
|
|
set ::n 1
|
|
set ::sql $sql
|
|
while {$::go} {
|
|
catch {db close}
|
|
do_test ${prefix}.${::n} {
|
|
set rc [catch {
|
|
sqlite db test.db
|
|
db eval $::sql
|
|
} msg]
|
|
if {$rc == 0} {set ::go 0}
|
|
|
|
expr {$rc == 0 || ($rc == 1 && [string first unable $msg]==0)}
|
|
} 1
|
|
|
|
close [lindex $fd_list 0]
|
|
set fd_list [lrange $fd_list 1 end]
|
|
incr ::n
|
|
}
|
|
foreach fd $fd_list {
|
|
close $fd
|
|
}
|
|
db close
|
|
}
|
|
|
|
execsql { CREATE TABLE abc(a PRIMARY KEY, b, c); }
|
|
db close
|
|
|
|
if {$tcl_platform(platform)!="windows"} {
|
|
do_fileopen_test misc7-6.1 {
|
|
BEGIN;
|
|
INSERT INTO abc VALUES(1, 2, 3);
|
|
INSERT INTO abc VALUES(2, 3, 4);
|
|
INSERT INTO abc SELECT a+2, b, c FROM abc;
|
|
COMMIT;
|
|
}
|
|
|
|
do_fileopen_test misc7-6.2 {
|
|
PRAGMA temp.cache_size = 1000;
|
|
}
|
|
}
|
|
|
|
#
|
|
# End of tests for out-of-file-descriptors condition.
|
|
#--------------------------------------------------------------------
|
|
|
|
sqlite3 db test.db
|
|
execsql {
|
|
DELETE FROM abc;
|
|
INSERT INTO abc VALUES(1, 2, 3);
|
|
INSERT INTO abc VALUES(2, 3, 4);
|
|
INSERT INTO abc SELECT a+2, b, c FROM abc;
|
|
}
|
|
|
|
|
|
#--------------------------------------------------------------------
|
|
# Test that the sqlite3_busy_timeout call seems to delay approximately
|
|
# the right amount of time.
|
|
#
|
|
do_test misc7-7.0 {
|
|
sqlite3 db2 test.db
|
|
sqlite3_busy_timeout [sqlite3_connection_pointer db] 2000
|
|
execsql {
|
|
BEGIN EXCLUSIVE;
|
|
} db2
|
|
|
|
# Now db2 has an exclusive lock on the database file, and db has
|
|
# a busy-timeout of 2000 milliseconds. So check that trying to
|
|
# access the database using connection db delays for at least 1500 ms.
|
|
#
|
|
set tm [time {
|
|
set result [catchsql {
|
|
SELECT * FROM sqlite_master;
|
|
} db]
|
|
}]
|
|
set delay [lindex $tm 0] ;# In microseconds
|
|
lappend result [expr {$delay>1500000 && $delay<4000000}]
|
|
} {1 {database is locked} 1}
|
|
db2 close
|
|
|
|
#--------------------------------------------------------------------
|
|
# Test that nothing goes horribly wrong when attaching a database
|
|
# after the omit_readlock pragma has been exercised.
|
|
#
|
|
do_test misc7-7.1 {
|
|
file delete -force test2.db
|
|
file delete -force test2.db-journal
|
|
execsql {
|
|
PRAGMA omit_readlock = 1;
|
|
ATTACH 'test2.db' AS aux;
|
|
CREATE TABLE aux.hello(world);
|
|
SELECT name FROM aux.sqlite_master;
|
|
}
|
|
} {hello}
|
|
do_test misc7-7.2 {
|
|
execsql {
|
|
DETACH aux;
|
|
}
|
|
} {}
|
|
|
|
# Test the UTF-16 version of the "out of memory" message (used when
|
|
# malloc fails during sqlite3_open() ).
|
|
#
|
|
ifcapable utf16 {
|
|
do_test misc7-8 {
|
|
encoding convertfrom unicode [sqlite3_errmsg16 0x00000000]
|
|
} {out of memory}
|
|
}
|
|
|
|
do_test misc7-9 {
|
|
execsql {
|
|
SELECT *
|
|
FROM (SELECT name+1 AS one FROM sqlite_master LIMIT 1 OFFSET 1)
|
|
WHERE one LIKE 'hello%';
|
|
}
|
|
} {}
|
|
|
|
#--------------------------------------------------------------------
|
|
# Improve coverage for vtab code.
|
|
#
|
|
ifcapable vtab {
|
|
# Run some debug code to improve reported coverage
|
|
#
|
|
|
|
# set sqlite_where_trace 1
|
|
do_test misc7-10 {
|
|
register_echo_module [sqlite3_connection_pointer db]
|
|
execsql {
|
|
CREATE VIRTUAL TABLE t1 USING echo(abc);
|
|
SELECT a FROM t1 WHERE a = 1 ORDER BY b;
|
|
}
|
|
} {1}
|
|
set sqlite_where_trace 0
|
|
|
|
# Specify an ORDER BY clause that cannot be indexed.
|
|
do_test misc7-11 {
|
|
execsql {
|
|
SELECT t1.a, t2.a FROM t1, t1 AS t2 ORDER BY 2 LIMIT 1;
|
|
}
|
|
} {1 1}
|
|
|
|
# The whole point of this is to test an error code other than
|
|
# SQLITE_NOMEM from the vtab xBestIndex callback.
|
|
#
|
|
do_ioerr_test misc7-12 -tclprep {
|
|
sqlite3 db2 test.db
|
|
register_echo_module [sqlite3_connection_pointer db2]
|
|
db2 eval {
|
|
CREATE TABLE abc(a PRIMARY KEY, b, c);
|
|
INSERT INTO abc VALUES(1, 2, 3);
|
|
CREATE VIRTUAL TABLE t1 USING echo(abc);
|
|
}
|
|
db2 close
|
|
} -tclbody {
|
|
register_echo_module [sqlite3_connection_pointer db]
|
|
execsql {SELECT * FROM t1 WHERE a = 1;}
|
|
}
|
|
|
|
# The case where the virtual table module returns a very large number
|
|
# as the cost of a scan (greater than SQLITE_BIG_DOUBLE in the code).
|
|
#
|
|
do_test misc7-13 {
|
|
sqlite3 db test.db
|
|
register_echo_module [sqlite3_connection_pointer db]
|
|
set ::echo_module_cost 2.0e+99
|
|
execsql {SELECT * FROM t1 WHERE a = 1;}
|
|
} {1 2 3}
|
|
unset ::echo_module_cost
|
|
}
|
|
|
|
db close
|
|
file delete -force test.db
|
|
file delete -force test.db-journal
|
|
sqlite3 db test.db
|
|
|
|
ifcapable explain {
|
|
do_test misc7-14 {
|
|
execsql {
|
|
CREATE TABLE abc(a PRIMARY KEY, b, c);
|
|
}
|
|
execsql {
|
|
EXPLAIN QUERY PLAN SELECT * FROM abc AS t2 WHERE rowid = 1;
|
|
}
|
|
} {0 0 {TABLE abc AS t2 USING PRIMARY KEY}}
|
|
do_test misc7-15 {
|
|
execsql {
|
|
EXPLAIN QUERY PLAN SELECT * FROM abc AS t2 WHERE a = 1;
|
|
}
|
|
} {0 0 {TABLE abc AS t2 WITH INDEX sqlite_autoindex_abc_1}}
|
|
}
|
|
|
|
db close
|
|
file delete -force test.db
|
|
file delete -force test.db-journal
|
|
sqlite3 db test.db
|
|
|
|
#--------------------------------------------------------------------
|
|
# This is all to force the pager_remove_from_stmt_list() function
|
|
# (inside pager.c) to remove a pager from the middle of the
|
|
# statement-list.
|
|
#
|
|
do_test misc7-15.1 {
|
|
execsql {
|
|
PRAGMA cache_size = 10;
|
|
BEGIN;
|
|
CREATE TABLE abc(a PRIMARY KEY, b, c);
|
|
INSERT INTO abc
|
|
VALUES(randstr(100,100), randstr(100,100), randstr(100,100));
|
|
INSERT INTO abc SELECT
|
|
randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
|
|
INSERT INTO abc SELECT
|
|
randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
|
|
INSERT INTO abc SELECT
|
|
randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
|
|
INSERT INTO abc SELECT
|
|
randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
|
|
INSERT INTO abc SELECT
|
|
randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
|
|
INSERT INTO abc SELECT
|
|
randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
|
|
INSERT INTO abc SELECT
|
|
randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
|
|
INSERT INTO abc SELECT
|
|
randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
|
|
COMMIT;
|
|
}
|
|
expr {[file size test.db]>10240}
|
|
} {1}
|
|
do_test misc7-15.2 {
|
|
execsql {
|
|
DELETE FROM abc WHERE rowid > 12;
|
|
INSERT INTO abc SELECT
|
|
randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
|
|
}
|
|
} {}
|
|
|
|
db close
|
|
file delete -force test.db
|
|
file delete -force test.db-journal
|
|
sqlite3 db test.db
|
|
|
|
do_ioerr_test misc7-16 -sqlprep {
|
|
PRAGMA cache_size = 10;
|
|
PRAGMA default_cache_size = 10;
|
|
CREATE TABLE t3(a, b, UNIQUE(a, b));
|
|
INSERT INTO t3 VALUES( randstr(100, 100), randstr(100, 100) );
|
|
INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
|
|
INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
|
|
INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
|
|
INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
|
|
INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
|
|
UPDATE t3
|
|
SET b = 'hello world'
|
|
WHERE rowid >= (SELECT max(rowid)-1 FROM t3);
|
|
} -tclbody {
|
|
set rc [catch {db eval {
|
|
BEGIN;
|
|
PRAGMA cache_size = 10;
|
|
INSERT INTO t3 VALUES( randstr(100, 100), randstr(100, 100) );
|
|
UPDATE t3 SET a = b;
|
|
COMMIT;
|
|
}} msg]
|
|
|
|
if {!$rc || ($rc && [string first "columns" $msg]==0)} {
|
|
set msg
|
|
} else {
|
|
error $msg
|
|
}
|
|
}
|
|
|
|
sqlite3 db test.db
|
|
|
|
do_test misc7-16.X {
|
|
execsql {
|
|
SELECT count(*) FROM t3;
|
|
}
|
|
} {32}
|
|
|
|
set sqlite_pager_n_sort_bucket 4
|
|
do_test misc7-17 {
|
|
execsql {
|
|
PRAGMA integrity_check;
|
|
VACUUM;
|
|
PRAGMA integrity_check;
|
|
}
|
|
} {ok ok}
|
|
set sqlite_pager_n_sort_bucket 0
|
|
|
|
#----------------------------------------------------------------------
|
|
# Test the situation where a hot-journal is discovered but write-access
|
|
# to it is denied. This should return SQLITE_BUSY.
|
|
#
|
|
# These tests do not work on windows due to restrictions in the
|
|
# windows file system.
|
|
#
|
|
if {$tcl_platform(platform)!="windows"} {
|
|
do_test misc7-17.1 {
|
|
execsql {
|
|
BEGIN;
|
|
DELETE FROM t3 WHERE (oid%3)==0;
|
|
}
|
|
copy_file test.db bak.db
|
|
copy_file test.db-journal bak.db-journal
|
|
execsql {
|
|
COMMIT;
|
|
}
|
|
|
|
db close
|
|
copy_file bak.db test.db
|
|
copy_file bak.db-journal test.db-journal
|
|
sqlite3 db test.db
|
|
|
|
catch {file attributes test.db-journal -permissions r--------}
|
|
catch {file attributes test.db-journal -readonly 1}
|
|
catchsql {
|
|
SELECT count(*) FROM t3;
|
|
}
|
|
} {1 {database is locked}}
|
|
do_test misc7-17.2 {
|
|
catch {file attributes test.db-journal -permissions rw-------}
|
|
catch {file attributes test.db-journal -readonly 0}
|
|
catchsql {
|
|
SELECT count(*) FROM t3;
|
|
}
|
|
} {0 32}
|
|
|
|
set ::pending_byte_page [expr ($::sqlite_pending_byte / 1024) + 1]
|
|
do_test misc7-17.3 {
|
|
db eval {
|
|
pragma writable_schema = true;
|
|
UPDATE sqlite_master
|
|
SET rootpage = $pending_byte_page
|
|
WHERE type = 'table' AND name = 't3';
|
|
}
|
|
execsql {
|
|
SELECT rootpage FROM sqlite_master WHERE type = 'table' AND name = 't3';
|
|
}
|
|
} $::pending_byte_page
|
|
|
|
do_test misc7-17.4 {
|
|
db close
|
|
sqlite3 db test.db
|
|
catchsql {
|
|
SELECT count(*) FROM t3;
|
|
}
|
|
} {1 {database disk image is malformed}}
|
|
}
|
|
|
|
# Ticket #2470
|
|
#
|
|
do_test misc7-18.1 {
|
|
execsql {
|
|
CREATE TABLE table_1 (col_10);
|
|
CREATE TABLE table_2 (
|
|
col_1, col_2, col_3, col_4, col_5,
|
|
col_6, col_7, col_8, col_9, col_10
|
|
);
|
|
SELECT col_10
|
|
FROM
|
|
(SELECT table_1.col_10 AS col_10 FROM table_1),
|
|
(SELECT table_1.col_10, table_2.col_9 AS qcol_9
|
|
FROM table_1, table_2
|
|
GROUP BY table_1.col_10, qcol_9);
|
|
}
|
|
} {}
|
|
|
|
db close
|
|
file delete -force test.db
|
|
|
|
finish_test
|