# 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.6 2007/03/30 14:56:35 danielk1977 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
}
execsql { CREATE TABLE abc(a PRIMARY KEY, b, c); }
db close
set fd_list [use_up_files]
set ::go 1
set ::n 1
while {$::go} {
catch {db close}
do_test misc7-6.$::n {
set rc [catch {
sqlite db test.db
db eval {
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;
}
} msg]
if {$rc == 0} {set ::go 0}
expr {$rc == 0 || ($rc == 1 && $msg eq "unable to open database file")}
} 1
close [lindex $fd_list 0]
set fd_list [lrange $fd_list 1 end]
incr ::n
}
foreach fd $fd_list {
close $fd
}
db close
#
# End of tests for out-of-file-descriptors condition.
#--------------------------------------------------------------------
sqlite3 db test.db
#--------------------------------------------------------------------
# Test that the sqlite3_busy_timeout call seems to delay approximately
# the right amount of time.
#
do_test misc7-6 {
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<3000000}]
} {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 malloc failure whilst installing a foriegn key.
#
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
}
finish_test