System.Data.SQLite

Check-in [071b74f390]
Login

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

Overview
Comment:Further changes to make the test for ticket [aba4549801] more robust against 'stray' IDisposable objects.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 071b74f3907d0acfb70ff43ad9d38638ba343551
User & Date: mistachkin 2016-10-14 00:41:07.184
Context
2016-10-14
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
00:18
Improvements to the test suite infrastructure. Fix intermittent failures of the test for ticket [aba4549801]. check-in: 54a9280a9d user: mistachkin tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Tests/tkt-aba4549801.eagle.
︙︙
16
17
18
19
20
21
22









23
24
25
26
27
28
29

###############################################################################

package require System.Data.SQLite.Test
runSQLiteTestPrologue

###############################################################################










runTest {test tkt-aba4549801-1.1 {SQLiteConnection.Changed event} -setup {
  proc onChanged { sender e } {
    set list [list]

    if {[isObjectHandle $sender] && \
        [regexp -- $::patterns(connection) $sender]} then {
      lappend list 1








>
>
>
>
>
>
>
>
>








16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

###############################################################################

package require System.Data.SQLite.Test
runSQLiteTestPrologue

###############################################################################

#
# HACK: Make sure that any stray connections or other IDisposable items for
#       System.Data.SQLite are disposed prior to running this test, this is
#       needed to prevent "stray" events from messing up the results.
#
collectGarbage $test_channel

###############################################################################

runTest {test tkt-aba4549801-1.1 {SQLiteConnection.Changed event} -setup {
  proc onChanged { sender e } {
    set list [list]

    if {[isObjectHandle $sender] && \
        [regexp -- $::patterns(connection) $sender]} then {
      lappend list 1
︙︙
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107


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

  sql transaction commit $transaction

  cleanupDb $fileName
  collectGarbage $test_channel

  set result
} -cleanup {
  object invoke System.Data.SQLite.SQLiteConnection remove_Changed $callback
  catch {object removecallback $callback}

  unset -nocomplain rows transaction result callback patterns db fileName








<








102
103
104
105
106
107
108

109
110
111
112
113
114
115


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

  sql transaction commit $transaction

  cleanupDb $fileName


  set result
} -cleanup {
  object invoke System.Data.SQLite.SQLiteConnection remove_Changed $callback
  catch {object removecallback $callback}

  unset -nocomplain rows transaction result callback patterns db fileName
︙︙