System.Data.SQLite

Check-in [9b42a935c0]
Login

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
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9b42a935c085548cf8cb3677d642ff46e796da1d
User & Date: mistachkin 2016-10-14 01:45:59.334
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
Unified Diff Show Whitespace Changes Patch
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]
︙︙