Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Minor revisions to the test for ticket [0e48e80333]. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
5017305c0d364edaa62bf409f91644f1 |
User & Date: | mistachkin 2018-01-22 22:28:09.340 |
Context
2018-01-23
| ||
00:44 | Update the Eagle shell configuration file. check-in: f722d13e2d user: mistachkin tags: trunk | |
2018-01-22
| ||
22:28 | Minor revisions to the test for ticket [0e48e80333]. check-in: 5017305c0d user: mistachkin tags: trunk | |
20:04 | Pickup the SQLite core library 3.22.0 docs from upstream. check-in: ab8e950457 user: mistachkin tags: trunk | |
Changes
Changes to Tests/tkt-0e48e80333.eagle.
︙ | ︙ | |||
18 19 20 21 22 23 24 25 26 27 28 29 30 31 | package require System.Data.SQLite.Test runSQLiteTestPrologue ############################################################################### runTest {test tkt-0e48e80333-1.1 {unhook delegates on pooled close} -setup { moveEagleShellMdaConfig false saveMdaConfigEnvironment } -body { set configFileName [writeEagleShellMdaConfig [string trim { <?xml version="1.0" encoding="UTF-8" ?> <mdaConfig xmlns="http://schemas.microsoft.com/CLR/2004/10/mda"> <assistants> <callbackOnCollectedDelegate listSize="50" /> | > > | 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | package require System.Data.SQLite.Test runSQLiteTestPrologue ############################################################################### runTest {test tkt-0e48e80333-1.1 {unhook delegates on pooled close} -setup { moveEagleShellMdaConfig false saveEagleShellEnvironment saveMdaConfigEnvironment } -body { set configFileName [writeEagleShellMdaConfig [string trim { <?xml version="1.0" encoding="UTF-8" ?> <mdaConfig xmlns="http://schemas.microsoft.com/CLR/2004/10/mda"> <assistants> <callbackOnCollectedDelegate listSize="50" /> |
︙ | ︙ | |||
77 78 79 80 81 82 83 84 85 86 87 88 89 90 | if {$::result eq [lrepeat $count $sql False]} then { exit Success } else { exit Failure } }] set env(COMPLUS_MDA) 1; # enable MDA config file. set code [catch { execTestShell [list \ -eventflags Wait -success Success -stdout output] \ -preInitialize [appendArgs \" "set no(logFileName) 1" \"] \ -file [appendArgs \" $scriptFileName \"] \ | > | 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 | if {$::result eq [lrepeat $count $sql False]} then { exit Success } else { exit Failure } }] set env(NoMutexes) 1; # ignore Eagle mutexes. set env(COMPLUS_MDA) 1; # enable MDA config file. set code [catch { execTestShell [list \ -eventflags Wait -success Success -stdout output] \ -preInitialize [appendArgs \" "set no(logFileName) 1" \"] \ -file [appendArgs \" $scriptFileName \"] \ |
︙ | ︙ | |||
101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 | catch {file delete $scriptFileName} catch {file delete $configFileName} unset -nocomplain code output error scriptFileName configFileName restoreMdaConfigEnvironment moveEagleShellMdaConfig true } -constraints {eagle dotNet testExec command.object monoBug28 command.sql\ compile.DATA SQLite System.Data.SQLite} -result {0}} ############################################################################### runTest {test tkt-0e48e80333-1.2 {delegate MDA on pooled close} -setup { moveEagleShellMdaConfig false | > > | > | 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 | catch {file delete $scriptFileName} catch {file delete $configFileName} unset -nocomplain code output error scriptFileName configFileName restoreMdaConfigEnvironment restoreEagleShellEnvironment moveEagleShellMdaConfig true } -constraints {eagle dotNet testExec command.object monoBug28 command.sql\ compile.DATA SQLite System.Data.SQLite} -result {0}} ############################################################################### runTest {test tkt-0e48e80333-1.2 {delegate MDA on pooled close} -setup { moveEagleShellMdaConfig false saveEagleShellEnvironment saveMdaConfigEnvironment setupDb [set fileName tkt-0e48e80333-1.2.db] } -body { set configFileName [writeEagleShellMdaConfig [string trim { <?xml version="1.0" encoding="UTF-8" ?> <mdaConfig xmlns="http://schemas.microsoft.com/CLR/2004/10/mda"> |
︙ | ︙ | |||
257 258 259 260 261 262 263 | object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} ThreadedPoolTraceTest } result] : [set result ""]}] $result] }] | | | > > | | 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 | object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} ThreadedPoolTraceTest } result] : [set result ""]}] $result] }] set env(NoMutexes) 1; # ignore Eagle mutexes. set env(COMPLUS_MDA) 1; # enable MDA config file. set code [catch { execTestShell [list \ -eventflags Wait -success Success -stdout output] \ -preInitialize [appendArgs \" "set fileName {" $fileName }\"] \ -preInitialize [appendArgs \" "set no(logFileName) 1" \"] \ -file [appendArgs \" $scriptFileName \"] \ -logFile [appendArgs \" [getTestLog] \"] } error] tlog "---- BEGIN STDOUT OUTPUT\n" tlog $output tlog "\n---- END STDOUT OUTPUT\n" set error [lindex \ [split [string map [list \r\n \n] [string trim $error]] \n] end] if {![regexp -- {0 (\d+)$} $error dummy count]} then { set count <unknown> } tputs $test_channel [appendArgs \ "---- executed a total of " $count " queries\n"] list $code $error } -cleanup { cleanupDb $fileName catch {file delete $scriptFileName} catch {file delete $configFileName} unset -nocomplain dummy count unset -nocomplain code output error scriptFileName configFileName unset -nocomplain db fileName restoreMdaConfigEnvironment restoreEagleShellEnvironment moveEagleShellMdaConfig true } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^0 \{Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\} 0 \d+\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to lib/System.Data.SQLite/common.eagle.
︙ | ︙ | |||
3079 3080 3081 3082 3083 3084 3085 3086 3087 3088 3089 3090 3091 3092 | # NOTE: This is self-cleaning. If no saved environment variables now # exist, remove the array. # if {[array size savedEnv] == 0} then { unset -nocomplain savedEnv } } proc saveMdaConfigEnvironment {} { upvar 1 savedEnv savedEnv saveEnvironmentVariables [list COMPLUS_MDA] savedEnv } | > > > > > > > > > > > > | 3079 3080 3081 3082 3083 3084 3085 3086 3087 3088 3089 3090 3091 3092 3093 3094 3095 3096 3097 3098 3099 3100 3101 3102 3103 3104 | # NOTE: This is self-cleaning. If no saved environment variables now # exist, remove the array. # if {[array size savedEnv] == 0} then { unset -nocomplain savedEnv } } proc saveEagleShellEnvironment {} { upvar 1 savedEnv savedEnv saveEnvironmentVariables [list NoMutexes] savedEnv } proc restoreEagleShellEnvironment {} { upvar 1 savedEnv savedEnv restoreEnvironmentVariables [list NoMutexes] savedEnv } proc saveMdaConfigEnvironment {} { upvar 1 savedEnv savedEnv saveEnvironmentVariables [list COMPLUS_MDA] savedEnv } |
︙ | ︙ |