150 lines
12 KiB
Plaintext
150 lines
12 KiB
Plaintext
# 2011 March 25
|
|
#
|
|
# 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 the session module.
|
|
#
|
|
|
|
if {$tcl_version<8.6} {
|
|
puts "This module requires Tcl 8.6 or later"
|
|
return
|
|
}
|
|
|
|
if {![info exists testdir]} {
|
|
set testdir [file join [file dirname [info script]] .. .. test]
|
|
}
|
|
source [file join [file dirname [info script]] session_common.tcl]
|
|
source $testdir/tester.tcl
|
|
ifcapable !session {finish_test; return}
|
|
|
|
set testprefix session4
|
|
|
|
do_test 1.0 {
|
|
execsql {
|
|
CREATE TABLE x(a, b, c, d, e, PRIMARY KEY(c, e));
|
|
INSERT INTO x VALUES(65.21, X'28B0', 16.35, NULL, 'doers');
|
|
INSERT INTO x VALUES(NULL, 78.49, 2, X'60', -66);
|
|
INSERT INTO x VALUES('cathedral', NULL, 35, NULL, X'B220937E80A2D8');
|
|
INSERT INTO x VALUES(NULL, 'masking', -91.37, NULL, X'596D');
|
|
INSERT INTO x VALUES(19, 'domains', 'espouse', -94, 'throw');
|
|
}
|
|
|
|
set changeset [changeset_from_sql {
|
|
DELETE FROM x WHERE e = -66;
|
|
UPDATE x SET a = 'parameterizable', b = 31.8 WHERE c = 35;
|
|
INSERT INTO x VALUES(-75.61, -17, 16.85, NULL, X'D73DB02678');
|
|
}]
|
|
set {} {}
|
|
} {}
|
|
|
|
|
|
# This currently causes crashes. sqlite3changeset_invert() does not handle
|
|
# corrupt changesets well.
|
|
if 0 {
|
|
do_test 1.1 {
|
|
for {set i 0} {$i < [string length $changeset]} {incr i} {
|
|
set before [string range $changeset 0 [expr $i-1]]
|
|
set after [string range $changeset [expr $i+1] end]
|
|
for {set j 10} {$j < 260} {incr j} {
|
|
set x [binary format "a*ca*" $before $j $after]
|
|
catch { sqlite3changeset_invert $x }
|
|
}
|
|
}
|
|
} {}
|
|
}
|
|
|
|
do_test 1.2 {
|
|
set x [binary format "ca*" 0 [string range $changeset 1 end]]
|
|
list [catch { sqlite3changeset_invert $x } msg] $msg
|
|
} {1 SQLITE_CORRUPT}
|
|
|
|
do_test 1.3 {
|
|
set x [binary format "ca*" 0 [string range $changeset 1 end]]
|
|
list [catch { sqlite3changeset_apply db $x xConflict } msg] $msg
|
|
} {1 SQLITE_CORRUPT}
|
|
|
|
#-------------------------------------------------------------------------
|
|
reset_db
|
|
do_execsql_test 2.0 {
|
|
CREATE TABLE t1(a INTEGER PRIMARY KEY,b,c,d);
|
|
CREATE TABLE t2(e TEXT PRIMARY KEY NOT NULL,f,g);
|
|
CREATE TABLE t3(w REAL PRIMARY KEY NOT NULL,x,y);
|
|
CREATE TABLE t4(z PRIMARY KEY) WITHOUT ROWID;
|
|
}
|
|
|
|
foreach {tn blob} {
|
|
1 54010174340012000000
|
|
2 54fefe8bcb0012000300
|
|
3 5480809280808001017434001200fb
|
|
4 50af9c939c9c9cb09c9c6400b09c9c6400
|
|
5 12000300
|
|
6 09847304
|
|
7 5401017434001208
|
|
8 54010174340012fc0386868600
|
|
9 54010174340012FC0386868600
|
|
10 548894FEFE
|
|
11 54010171340012E703ABFA7433FD1200
|
|
12 540101743400120003FFED00010000000000000002120002400C00000000000054040100000074310017000100000000000000050100000000000000030100000000000000040000010000000000000004010000000000000003001700010000000000000007030378797A01000000000000000F000001000000000000000F030378797A005403010000743200090003037838790100000000800000000200000000000000000900030378327902400C0000000000000304666F7572
|
|
13 540101743400120003001200010000000000000002120002400C0000000000005404010000007431001700010000000000000005010000000000000003010000000000000004000001000000000000000401000000000000000300170001000000000000000703FC87797A01000000000000000F000001000000000000000F030378797A005403010000743200090003037838790100000000800000000200000000000000000900030378327902400C0000000000000304666F7572
|
|
14 540101743400120003001200010000000000000002120002400C00000000000054040100000074310017000100000000000000050100000000000000030100000000000000040000010000000000000004010000000000000003001700010000000000000007030378797A01000000000000000F000001000000000000000F03FC87797A005403010000743200090003037838790100000000800000000200000000000000000900030378327902400C0000000000000304666F7572
|
|
15 540101743400120003001200010000000000000002120002400C00000000000054040100000074310017000100000000000000050100000000000000030100000000000000040000010000000000000004010000000000000003001700010000000000000007030378797A01000000000000000F000001000000000000000F030378797A005403010000743200090003FC8738790100000000800000000200000000000000000900030378327902400C0000000000000304666F7572
|
|
16 540101743400120003001200010000000000000002120002400C00000000000054040100000074310017000100000000000000050100000000000000030100000000000000040000010000000000000004010000000000000003001700010000000000000007030378797A01000000000000000F000001000000000000000F030378797A00540301000074320009000303783879010000000080000000020000000000000000090003FC87327902400C0000000000000304666F7572
|
|
17 540101743400120003FFE3000412F7010000E600000000021202120002400C0000000000005B0401000000743100171C0304646F750002400C000000000000540401000000D3310017000100000000000000050100000000000378797A405403000002F10100000100000000000004090001000100000007030378797A0100000000000D0007000001000000002300000F1B0378797A405403013900743200090003038C3879010000000000000000000002120002400C0000000000005B0401000000743117170003047C5E00FF
|
|
18 54010174340012000300120001000000E6FF100000120002401E00000000000054040100000074310017000100040000010000000000000004FFFF7FFF0000000000010000010000001000000007030378797A01000000000000000F000000000000FA0304666F7572
|
|
19 540101743400120003001200010000000000000002121B02400C00000000000054040000000074310017000100000000000000050100000000000000030100000000000000040000010000000000000004010000000000000003001700010000000000000007030378817A01000000000000000F000001000000000100000F030378797A005403010000743200090003FFE809000303780000000000000304666F7572
|
|
20 5401017D3400120003001200010000000000000002120002400CFC00000000005404010000007431001700010000000000000005010000000000000003010000000000000004000001000000000000000401000000000000000300170001000000000000000703FFFF797A01000000000000000F000001000000000000000F030378797A005403010000743200090003037838790100000000800000000200000000000000000900030378326C02400C0000000000000304666F7572
|
|
21 5401017434001200030012000100FFE20000000002120002400C00000000000054040100E0007431001700010000E99D000000020000000003FFE70009000303783279020004000001030000000000002117000003001700012701000100000000743100000100000000008000090003037F387901000000008000000002000000000400000009005303010A00FF7FFFFF00000000000304664F6572
|
|
22 540101743400120003FFFF7FFF0000000000000002120002400C00000000000054040100000074310017000100000000000000050100000000000000030100010000000000000000040000010000000000000004010000000000000003001700010000000000000007030378797A01000000000000000F000001000000000000000F030378797A005403010000743200090003037838790100000000800000000200000000000000000900030378327902400C0000000000000304666F7572
|
|
23 540101742700120100120003F5FF0300
|
|
24 5401017434E312540101743400120003FFFC00
|
|
25 540101743400540101743D3D3D3D3D3D3D3D3D3D3D3D3D3400120003FFED000300
|
|
26 5401017446EA5301743D1D3D3D01743D1D3D3DCF3D3D3D1A3D3D3D3D3400120003FFFF000000
|
|
27 540101743400540101743D3D3D3D3D3D3D3D3D3D251000120003FF81000000000000
|
|
28 540101340012000397FF3D7F3D3400120003001200540101743D3D3D3D3D3D393D3D3D12000300
|
|
29 500174340050010F74340012000300120003FFE5
|
|
30 5004007233E900177FEF0054257F0002EF001200031E12000300
|
|
31 5001015001015252525250010174340012EF039A9A0100E351525D52525252525252525252525252525252525250010174340012EF039A0100009A9A9A9A9A9BA3B200120003010040743400
|
|
32 5401017400123400120003FFFC00
|
|
33 540101743400120003001200010000000000004002120002400C0000000000005404010000007431001700010000000000000005010000000000000003010000000000000004000001000000000000000401000000000000000300170001000000000000000703FC87797A01000000000000000F000001000000000000000F030378797A005403010000743200090003037838790100000000800000000200000000000000000900030378327902400C0000000000000304666F7572
|
|
34 54040100000074310017000100000002000015050100000000000000030100000000140000040000010000000000000004010000000000000003001700010000000000000007030378797A01000000000000000F000001000000000000000F030378797A0054030100007432000900030378387901000000008E000000020000000000000000090003FFFF000002400C0000000000000304666F7572
|
|
35 540101743400120003001200010000000000000002120002400C00000000000050060100000074310017000100000000000000050100000000000000030100000003001700010000666F7572
|
|
36 540101743400120003001200010000000000000002120002400C00000000000050050100000074310017000100000000000000050100000000000000030100000003001700010000666F7572
|
|
37 540101743400120003001200010000000000000002120002400C00000000000050040100008074310017000100000000000000050100000000000000030100000003001700010000666F7572
|
|
38 540101743400120003001200010000000000000002120002400C00000000000050040100000074310017000000000000000000050100000000000000030100000003001700010000666F7572
|
|
39 540101743400120003001200010000000000000002120002400C00000000000050040100018074310017000100000000000000050100000000000000030100000003001700010000666F7572
|
|
40 540101743400120003001200010000000000000002120002400C0000000000005004FEFFFFFF74310017000100000000000000050100000000000000030100000003001700010000666F7572
|
|
41 540101743400120003001200010000000000000002120002400C00000000000050040100000074310017000004000000000000050100000000000000030100000003001700010000666F7572
|
|
42 540101743400120003001200010000000000000002120002400C0000000000005005FFFF050074310017000100000000000000050100000000000000030100000003001700010000666F7572
|
|
43 540101743400120003001200010000000000000002120002400C000000000000500401006E0074310017000300000000001221050100000000000000030100000003001700010000666F7572
|
|
44 540101743400120003001200010000000000020000120002400C00000000000050050100000074310017000100000000000000050100004000000000030100000025001700010000666F7572
|
|
45 540101743400120003001200010000000000ECFF02120002400C000000000000500401F9FF00743100170001000000000000000500E1000000000000030100000003000000000000666F7572
|
|
46 54010174340B0B0B0B0B0B0B0B0B0B0B0B0B0B0B00120003001200010000000000000002120002400C00000000000050040100000074310017010000000000000000050100FFE900000000030100000003007F00000000666F7572
|
|
47 54010103001200010000000000020002120002400C0000000000005004010000F374310017000100000000000000050100000000000000030100000003001700010000666F8E72
|
|
48 540101743400120003001200010000000000000002120002400C00000000000050030012000174310017000700000000000000050100002000000001000000000003001700010000666F7572
|
|
49 540101743400120004001200010000000000000002120002400C0000000000005004010000FC733100170001000000000000000501000000000000000301000000F6FF17000100007C6F7572
|
|
50 54010174FFDDFF8003001200010000100000000002120002400C000000000000500401000000743100170000000005010000000000000000000003010072
|
|
51 540101743200120003001200010000000000000002120002400C00000000000050040100001074310017000000000003010000120300170100000000000000050100000000000000030100000003001700010000666F7572
|
|
52 540101745401017434001200010000000000001702120002400C00000000000050040100001A74310017000100000000000100000100000000000000030100000003001700010000666F7572
|
|
53 540101743400120003001200010000000000000002120002400C000000000000500401000000743100170001000002400C00000000000050040110000074310017000000000000050100000000000000030100000003001700010000666F7572
|
|
54 540101743400120003001200010000000000000002120002400C000000000002120002400C00000000000050040100000074310017FF0050040100000074310017FF7F00000000000000050100000000000000030100000003001700010000666F7572
|
|
55 540101743400120003001200010000000000000002120002400C00000000000050040100000074310017000100010080000001000000020003010100000300170100000003001700010000666F7572
|
|
56 5487ffffff7f
|
|
} {
|
|
do_test 2.$tn {
|
|
set changeset [binary decode hex $blob]
|
|
#set fd [open x.change w+]
|
|
#fconfigure $fd -translation binary
|
|
#puts -nonewline $fd $changeset
|
|
#close $fd
|
|
list [catch { sqlite3changeset_apply db $changeset xConflict } msg] $msg
|
|
} {1 SQLITE_CORRUPT}
|
|
}
|
|
|
|
finish_test
|