Check-in [323dd8ca3e]

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

Overview
Comment:Add more FDDD tests, clean up whitespace in tests, and fix bugs exposed in testing.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:323dd8ca3e0282ed6b5065e120604e123a8baf99
User & Date: kbk 2014-08-03 01:38:49
Context
2014-08-03
01:39
Add more FDDD tests, clean up whitespace in tests, and fix bugs exposed in testing. check-in: bb22f9b118 user: kbk tags: trunk
01:38
Add more FDDD tests, clean up whitespace in tests, and fix bugs exposed in testing. check-in: 323dd8ca3e user: kbk tags: trunk
01:37
Add more FDDD tests, clean up whitespace in tests, and fix bugs exposed in testing. check-in: e546ebb465 user: kbk tags: trunk
Changes

Changes to tests/fddd.test.

451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
    -body {
        list [catch {
            db enumerate d isParentOf {error testing}
        } result] $result [regsub -all \n $::errorInfo ^]
    }
    -cleanup {db destroy}
    -match glob
    -result {1 testing {testing^    while executing^"error testing"^    ("enumerate" body, line 1)^    invoked from within^"db enumerate d isParentOf {error testing}"}}
}

test fddd-8.3 {enumerate - return from script} {*}{
    -setup {
        makeDB
        proc doit {} {
            db enumerate d isParentOf {return {testing}}







|







451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
    -body {
        list [catch {
            db enumerate d isParentOf {error testing}
        } result] $result [regsub -all \n $::errorInfo ^]
    }
    -cleanup {db destroy}
    -match glob
    -result {1 testing {testing^    while executing^"error testing"^    ("enumerate" body line 1)^    invoked from within^"db enumerate d isParentOf {error testing}"}}
}

test fddd-8.3 {enumerate - return from script} {*}{
    -setup {
        makeDB
        proc doit {} {
            db enumerate d isParentOf {return {testing}}