- add sources.
[platform/framework/web/crosswalk.git] / src / third_party / sqlite / src / test / tkt-f7b4edec.test
1 # 2011 March 18
2 #
3 # The author disclaims copyright to this source code.  In place of
4 # a legal notice, here is a blessing:
5 #
6 #    May you do good and not evil.
7 #    May you find forgiveness for yourself and forgive others.
8 #    May you share freely, never taking more than you give.
9 #
10 #***********************************************************************
11 # This file implements regression tests for SQLite library.
12 #
13 # This file implements tests to verify that ticket 
14 # [f7b4edece25c994857dc139207f55a53c8319fae] has been fixed.
15 #
16
17 set testdir [file dirname $argv0]
18 source $testdir/tester.tcl
19
20 # Open two database connections to the same database file in
21 # shared cache mode.  Create update hooks that will fire on
22 # each connection.
23 #
24 db close
25 set ::enable_shared_cache [sqlite3_enable_shared_cache 1]
26 sqlite3 db1 test.db
27 sqlite3 db2 test.db
28 unset -nocomplain HOOKS
29 set HOOKS {}
30 proc update_hook {args} { lappend ::HOOKS $args }
31 db1 update_hook update_hook
32 db2 update_hook update_hook
33
34 # Create a prepared statement
35 #
36 do_test tkt-f7b4edec-1 {
37   execsql { CREATE TABLE t1(x, y); } db1
38   execsql { INSERT INTO t1 VALUES(1, 2) } db1
39   set ::HOOKS
40 } {{INSERT main t1 1}}
41
42 # In the second database connection cause the schema to be reparsed
43 # without changing the schema cookie.
44 #
45 set HOOKS {}
46 do_test tkt-f7b4edec-2 {
47   execsql {
48     BEGIN;
49       DROP TABLE t1;
50       CREATE TABLE t1(x, y);
51     ROLLBACK;
52   } db2
53   set ::HOOKS
54 } {}
55
56 # Rerun the prepared statement that was created prior to the 
57 # schema reparse.  Verify that the update-hook gives the correct
58 # output.
59 #
60 set HOOKS {}
61 do_test tkt-f7b4edec-3 {
62   execsql { INSERT INTO t1 VALUES(1, 2) } db1
63   set ::HOOKS
64 } {{INSERT main t1 2}}
65
66 # Be sure to restore the original shared-cache mode setting before
67 # returning.
68 #
69 db1 close
70 db2 close
71 sqlite3_enable_shared_cache $::enable_shared_cache
72
73
74 finish_test