System.Data.SQLite
Check-in [0d56186490]
Not logged in

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

Overview
Comment:Cleanup the databases opened by the test for ticket [8c3bee31c8].
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 0d56186490cb9ffaafbe4f56ea05fc931ead21cc
User & Date: mistachkin 2012-08-28 21:26:34
Context
2012-08-29
11:19
Make adjustments to allow the release archive verification tool to verify archives built from the latest trunk. check-in: 4909ea3b27 user: mistachkin tags: trunk
2012-08-28
21:26
Cleanup the databases opened by the test for ticket [8c3bee31c8]. check-in: 0d56186490 user: mistachkin tags: trunk
17:50
Phrasing change for the managed-only NuGet package text. check-in: e71df197ac user: mistachkin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to Tests/common.eagle.

   660    660         # NOTE: Check if the file still exists.
   661    661         #
   662    662         if {!$isMemory && $delete && [file exists $fileName]} then {
   663    663           #
   664    664           # NOTE: Skip deleting database files if somebody sets the global
   665    665           #       variable to prevent it.
   666    666           #
   667         -        if {![info exists ::no(cleanupDb)]} then {
          667  +        if {![info exists ::no(cleanupDbFile)]} then {
   668    668             #
   669    669             # NOTE: Attempt to delete the test database file now.
   670    670             #
   671    671             if {[set code [catch {file delete $fileName} error]]} then {
   672    672               #
   673    673               # NOTE: We somehow failed to delete the file, report why.
   674    674               #

Changes to Tests/tkt-8c3bee31c8.eagle.

    54     54   } -body {
    55     55     set fileName [appendArgs ' [file join [getDatabaseDirectory] \
    56     56         tkt-8c3bee31c8-1.2.db] ']
    57     57   
    58     58     set o [object create -alias System.Data.SQLite.SQLiteConnection]
    59     59     $o ConnectionString [appendArgs "Data Source=" $fileName \;]
    60     60     $o Open; # NOTE: This command may throw an exception, failing the test.
           61  +  $o Close
    61     62   } -cleanup {
           63  +  cleanupFile [string trim $fileName ']
           64  +
    62     65     unset -nocomplain fileName o
    63     66   } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\
    64     67   System.Data.SQLite} -result {}}
    65     68   
    66     69   ###############################################################################
    67     70   
    68     71   runTest {test tkt-8c3bee31c8-1.3 {open double quoted file name} -setup {
................................................................................
    70     73   } -body {
    71     74     set fileName [appendArgs \" [file join [getDatabaseDirectory] \
    72     75         tkt-8c3bee31c8-1.3.db] \"]
    73     76   
    74     77     set o [object create -alias System.Data.SQLite.SQLiteConnection]
    75     78     $o ConnectionString [appendArgs "Data Source=" $fileName \;]
    76     79     $o Open; # NOTE: This command may throw an exception, failing the test.
           80  +  $o Close
    77     81   } -cleanup {
           82  +  cleanupFile [string trim $fileName \"]
           83  +
    78     84     unset -nocomplain fileName o
    79     85   } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\
    80     86   System.Data.SQLite} -result {}}
    81     87   
    82     88   ###############################################################################
    83     89   
    84     90   runSQLiteTestEpilogue
    85     91   runTestEpilogue