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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
071b74f3907d0acfb70ff43ad9d38638 |
| User & Date: | mistachkin 2016-10-14 00:41:07 |
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
Changes to Tests/tkt-aba4549801.eagle.
16
17
18
19
20
21
22
23
24
25
26
27
28
29
..
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
###############################################################################
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
................................................................................
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
|
>
>
>
>
>
>
>
>
>
<
|
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
...
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
############################################################################### 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 ................................................................................ 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 |