Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Completely ignore 'stray' connections in the test for ticket [aba4549801]. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
9b42a935c085548cf8cb3677d642ff46 |
| User & Date: | mistachkin 2016-10-14 01:45:59 |
Context
|
2016-10-19
| ||
| 19:18 | Compilation enhancements for Mono on POSIX. check-in: 6bb855c1dd user: mistachkin tags: trunk | |
|
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 | |
Changes
Changes to Tests/tkt-aba4549801.eagle.
16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
############################################################################### 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 } else { lappend list $sender } if {[string length $e] > 0} then { lappend list [$e EventType] |
< < < < < < < < < > > > > > > > > > > > > |
16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
###############################################################################
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 {
set connectionString [$sender ConnectionString]
if {![string match "*\[/\\\]tkt-aba4549801-1.1.db\;*" \
$connectionString]} then {
#
# NOTE: This is a "stray" connection (i.e. it is not
# part of this test); therefore, ignore events
# for it.
#
return
}
lappend list 1
} else {
lappend list $sender
}
if {[string length $e] > 0} then {
lappend list [$e EventType]
|