System.Data.SQLite
Check-in [9b42a935c0]
Not logged in

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: 9b42a935c085548cf8cb3677d642ff46e796da1d
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to Tests/tkt-aba4549801.eagle.

    16     16   ###############################################################################
    17     17   
    18     18   package require System.Data.SQLite.Test
    19     19   runSQLiteTestPrologue
    20     20   
    21     21   ###############################################################################
    22     22   
    23         -#
    24         -# HACK: Make sure that any stray connections or other IDisposable items for
    25         -#       System.Data.SQLite are disposed prior to running this test, this is
    26         -#       needed to prevent "stray" events from messing up the results.
    27         -#
    28         -collectGarbage $test_channel
    29         -
    30         -###############################################################################
    31         -
    32     23   runTest {test tkt-aba4549801-1.1 {SQLiteConnection.Changed event} -setup {
    33     24     proc onChanged { sender e } {
    34     25       set list [list]
    35     26   
    36     27       if {[isObjectHandle $sender] && \
    37     28           [regexp -- $::patterns(connection) $sender]} then {
           29  +      set connectionString [$sender ConnectionString]
           30  +
           31  +      if {![string match "*\[/\\\]tkt-aba4549801-1.1.db\;*" \
           32  +          $connectionString]} then {
           33  +        #
           34  +        # NOTE: This is a "stray" connection (i.e. it is not
           35  +        #       part of this test); therefore, ignore events
           36  +        #       for it.
           37  +        #
           38  +        return
           39  +      }
           40  +
    38     41         lappend list 1
    39     42       } else {
    40     43         lappend list $sender
    41     44       }
    42     45   
    43     46       if {[string length $e] > 0} then {
    44     47         lappend list [$e EventType]