Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | First attempt to address some test issues seen on Mono. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a7124e2dadada5345d9e893b95099423 |
| User & Date: | mistachkin 2017-10-17 08:41:27 |
Context
|
2017-10-17
| ||
| 18:09 | Update the expected results for test 'authorizer-1.1' to account for upstream changes. check-in: c5ddcaede4 user: mistachkin tags: trunk | |
| 08:41 | First attempt to address some test issues seen on Mono. check-in: a7124e2dad user: mistachkin tags: trunk | |
| 08:39 | Adjust some doc comments to be more accurate. check-in: a6cae4efbf user: mistachkin tags: trunk | |
Changes
Changes to Tests/session.eagle.
16 17 18 19 20 21 22 23 24 25 26 27 28 29 ... 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 ... 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 .... 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 |
###############################################################################
package require System.Data.SQLite.Test
runSQLiteTestPrologue
###############################################################################
proc getSomeText { random count } {
set items [list \
Alpha Bravo Charlie Delta Echo Foxtrot Golf Hotel \
India Juliet Kilo Lima Mike November Oscar Papa \
Quebec Romeo Sierra Tango Uniform Victor Whiskey X-ray \
Yankee Zulu]
................................................................................
###############################################################################
proc addStreamChangeSetForObject { object fileName } {
if {[isObjectHandle $object] && $object ne "null"} then {
set stream [object create -alias \
System.IO.FileStream $fileName Open Read]
$object AddChangeSet $stream
return true
}
return false
}
................................................................................
proc writeStreamChangeSetForObject { object fileName {patch false} } {
if {[isObjectHandle $object] && $object ne "null"} then {
set stream [object create -alias \
System.IO.FileStream $fileName Create Write]
if {$patch} then {
$object CreatePatchSet $stream
} else {
$object CreateChangeSet $stream
}
$stream Flush; $stream Close
return true
}
................................................................................
rename openStreamChangeSetForConnection ""
rename writeRawDataToFile ""
rename createMemoryChangeSetForObject ""
rename createMemoryChangeSetForConnection ""
rename forDisplay ""
rename cleanupSomeText ""
rename getSomeText ""
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
> > > > > > > > > > > > > > | | | > |
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 ... 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 ... 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 .... 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 |
############################################################################### package require System.Data.SQLite.Test runSQLiteTestPrologue ############################################################################### # # HACK: When running on Mono, always insert a "-parametertypes" option when # calling method overloads that require a Stream. # proc useStreamMaybeWithMono { args } { if {[isMono]} then { set args [linsert $args 1 -parametertypes [list System.IO.Stream]] } return [uplevel 1 $args] } ############################################################################### proc getSomeText { random count } { set items [list \ Alpha Bravo Charlie Delta Echo Foxtrot Golf Hotel \ India Juliet Kilo Lima Mike November Oscar Papa \ Quebec Romeo Sierra Tango Uniform Victor Whiskey X-ray \ Yankee Zulu] ................................................................................ ############################################################################### proc addStreamChangeSetForObject { object fileName } { if {[isObjectHandle $object] && $object ne "null"} then { set stream [object create -alias \ System.IO.FileStream $fileName Open Read] useStreamMaybeWithMono $object AddChangeSet $stream return true } return false } ................................................................................ proc writeStreamChangeSetForObject { object fileName {patch false} } { if {[isObjectHandle $object] && $object ne "null"} then { set stream [object create -alias \ System.IO.FileStream $fileName Create Write] if {$patch} then { useStreamMaybeWithMono $object CreatePatchSet $stream } else { useStreamMaybeWithMono $object CreateChangeSet $stream } $stream Flush; $stream Close return true } ................................................................................ rename openStreamChangeSetForConnection "" rename writeRawDataToFile "" rename createMemoryChangeSetForObject "" rename createMemoryChangeSetForConnection "" rename forDisplay "" rename cleanupSomeText "" rename getSomeText "" rename useStreamMaybeWithMono "" ############################################################################### runSQLiteTestEpilogue runTestEpilogue |