System.Data.SQLite

Check-in [f34ecf2ef7]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Minor tweak to test for ticket [aba4549801].
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f34ecf2ef71d43c62a7ed87303fb2817b25c4cd6
User & Date: mistachkin 2016-10-14 01:03:00.655
Context
2016-10-14
01:45
Completely ignore 'stray' connections in the test for ticket [aba4549801]. check-in: 9b42a935c0 user: mistachkin tags: trunk
01:03
Minor tweak to test for ticket [aba4549801]. check-in: f34ecf2ef7 user: mistachkin tags: trunk
00:41
Further changes to make the test for ticket [aba4549801] more robust against 'stray' IDisposable objects. check-in: 071b74f390 user: mistachkin tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Tests/tkt-aba4549801.eagle.
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
  set patterns(command) {^System#Data#SQLite#SQLiteCommand#\d+$}
  set patterns(dataReader) {^System#Data#SQLite#SQLiteDataReader#\d+$}
  set patterns(handle1) {^System#Data#SQLite#SQLiteConnectionHandle#\d+$}
  set patterns(handle2) {^System#Data#SQLite#SQLiteStatementHandle#\d+$}

  set callback onChanged
  object invoke System.Data.SQLite.SQLiteConnection add_Changed $callback

  setupDb [set fileName tkt-aba4549801-1.1.db]
} -body {
  sql execute $db "CREATE TABLE t1(x);"

  set transaction [sql transaction begin $db]

  sql execute -execute reader $db \
      "INSERT INTO t1(x) VALUES(1); SELECT x FROM t1;"








|

|







89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
  set patterns(command) {^System#Data#SQLite#SQLiteCommand#\d+$}
  set patterns(dataReader) {^System#Data#SQLite#SQLiteDataReader#\d+$}
  set patterns(handle1) {^System#Data#SQLite#SQLiteConnectionHandle#\d+$}
  set patterns(handle2) {^System#Data#SQLite#SQLiteStatementHandle#\d+$}

  set callback onChanged
  object invoke System.Data.SQLite.SQLiteConnection add_Changed $callback
} -body {
  setupDb [set fileName tkt-aba4549801-1.1.db]

  sql execute $db "CREATE TABLE t1(x);"

  set transaction [sql transaction begin $db]

  sql execute -execute reader $db \
      "INSERT INTO t1(x) VALUES(1); SELECT x FROM t1;"