System.Data.SQLite
Check-in [b93bd7e4d2]
Not logged in

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

Overview
Comment:Fix test suite usage of the haveSQLiteObjectCommand procedure.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b93bd7e4d213e1dba307de6af7238cd37e7997b8
User & Date: mistachkin 2015-04-09 01:06:25
Context
2015-04-09
01:37
Modify test suite initialization to optionally (and carefully) take advantage of the new 'debug' sub-commands from Eagle beta 33. check-in: 6b46295db1 user: mistachkin tags: trunk
01:06
Fix test suite usage of the haveSQLiteObjectCommand procedure. check-in: b93bd7e4d2 user: mistachkin tags: trunk
2015-04-08
23:12
Modify the test suite itself to work without the 'object' command, if necessary. check-in: 673875e370 user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Tests/tkt-2ce0870fad.eagle.

27
28
29
30
31
32
33




34
35
36
37
38
39
40
41
42
43
shutdownSQLite $test_channel

###############################################################################

for {set i 1} {$i < 3} {incr i} {
  runTest {test [appendArgs tkt-2ce0870fad-1. $i] {logging setup} -setup \
      [getAppDomainPreamble {




    set i {$i}

    set appDomainId($i) {[expr {[haveObjectCommand] ? \
        [object invoke AppDomain.CurrentDomain Id] : [info appdomain]}]}

    set fileName {[appendArgs tkt-2ce0870fad-1. $i .db]}
  }] -body {
    set appDomainId(3) [object invoke AppDomain.CurrentDomain Id]

    package require Eagle.Library







>
>
>
>


|







27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
shutdownSQLite $test_channel

###############################################################################

for {set i 1} {$i < 3} {incr i} {
  runTest {test [appendArgs tkt-2ce0870fad-1. $i] {logging setup} -setup \
      [getAppDomainPreamble {
    proc haveSQLiteObjectCommand {[info args haveSQLiteObjectCommand]} {
      [info body haveSQLiteObjectCommand]
    }

    set i {$i}

    set appDomainId($i) {[expr {[haveSQLiteObjectCommand] ? \
        [object invoke AppDomain.CurrentDomain Id] : [info appdomain]}]}

    set fileName {[appendArgs tkt-2ce0870fad-1. $i .db]}
  }] -body {
    set appDomainId(3) [object invoke AppDomain.CurrentDomain Id]

    package require Eagle.Library

Changes to Tests/tkt-72905c9a77.eagle.

28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

###############################################################################

#
# NOTE: This value is needed as part of the test result; therefore, it must be
#       set outside of the test setup.
#
if {[haveObjectCommand]} then {
  set id [object invoke Interpreter.GetActive NextId]
} else {
  set id [clock seconds]
}

###############################################################################








|







28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

###############################################################################

#
# NOTE: This value is needed as part of the test result; therefore, it must be
#       set outside of the test setup.
#
if {[haveSQLiteObjectCommand]} then {
  set id [object invoke Interpreter.GetActive NextId]
} else {
  set id [clock seconds]
}

###############################################################################

Changes to Tests/tkt-b4a7ddc83f.eagle.

27
28
29
30
31
32
33




34
35
36
37
38
39
40
41
shutdownSQLite $test_channel

###############################################################################

for {set i 1} {$i < 3} {incr i} {
  runTest {test [appendArgs tkt-b4a7ddc83f-1. $i] {logging shutdown} -setup \
      [getAppDomainPreamble {




    set appDomainId(1) {[expr {[haveObjectCommand] ? \
        [object invoke AppDomain.CurrentDomain Id] : [info appdomain]}]}

    set fileName {[appendArgs tkt-b4a7ddc83f-1. $i .db]}
  }] -body {
    set appDomainId(2) [object invoke AppDomain.CurrentDomain Id]

    package require Eagle.Library







>
>
>
>
|







27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
shutdownSQLite $test_channel

###############################################################################

for {set i 1} {$i < 3} {incr i} {
  runTest {test [appendArgs tkt-b4a7ddc83f-1. $i] {logging shutdown} -setup \
      [getAppDomainPreamble {
    proc haveSQLiteObjectCommand {[info args haveSQLiteObjectCommand]} {
      [info body haveSQLiteObjectCommand]
    }

    set appDomainId(1) {[expr {[haveSQLiteObjectCommand] ? \
        [object invoke AppDomain.CurrentDomain Id] : [info appdomain]}]}

    set fileName {[appendArgs tkt-b4a7ddc83f-1. $i .db]}
  }] -body {
    set appDomainId(2) [object invoke AppDomain.CurrentDomain Id]

    package require Eagle.Library