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

Overview
Comment:Save work.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | wip
Files: files | file ages | folders
SHA3-256: 0e666eae10244fc16a7bdee7286382f9b16119ae3aafcd69f0033b22b87072d9
User & Date: rolf 2020-03-25 20:17:29
Context
2020-03-27
00:42
Save work. check-in: 3b5fdf0979 user: rolf tags: wip
2020-03-25
20:17
Save work. check-in: 0e666eae10 user: rolf tags: wip
2020-03-22
02:04
wip check-in: 16e44b5f70 user: rolf tags: wip
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/schema.test.

7278
7279
7280
7281
7282
7283
7284
7285
7286
7287
7288
7289
7290
7291
7292
7293
7294
7295
7296
7297
7298
7299
7300
....
7323
7324
7325
7326
7327
7328
7329
7330
7331
7332
7333
7334
7335
7336
7337
        if {$errorInfo eq "MISSING_ELEMENT"} {
            return ignore
        }
    } else {
        lappend fromReportCmd "END_EVENT expecting [$scmd info expected]"
    }
}
# <doc/>
# <doc><a/></doc>
# <doc><b/></doc>
# <doc><c/></doc>
# <doc><a/><b/></doc>
# <doc><a/><c/></doc>
# <doc><b/><c/></doc>
# <doc><unknown/></doc>
# <doc><a/><unknown/></doc>
test schema-17.22 {info expected} {
    set defs {
        {
            element a
            element b
            element c
        }
................................................................................
            lappend result {*}$fromReportCmd
            incr xmlnr
        }
        s delete
        incr defnr
    }
    set result
} {0/0: 1 a b END_EVENT c 0/1: 1 a c b c}

proc schema-18 {args} {
    lappend ::result {*}$args
}
test schema-18.1 {reportcmd} {
    tdom::schema s
    s define {







<
<
<
<
<
<
<
<
<







 







|







7278
7279
7280
7281
7282
7283
7284









7285
7286
7287
7288
7289
7290
7291
....
7314
7315
7316
7317
7318
7319
7320
7321
7322
7323
7324
7325
7326
7327
7328
        if {$errorInfo eq "MISSING_ELEMENT"} {
            return ignore
        }
    } else {
        lappend fromReportCmd "END_EVENT expecting [$scmd info expected]"
    }
}









test schema-17.22 {info expected} {
    set defs {
        {
            element a
            element b
            element c
        }
................................................................................
            lappend result {*}$fromReportCmd
            incr xmlnr
        }
        s delete
        incr defnr
    }
    set result
} {0/0: 1 MISSING_ELEMENT {END_EVENT expecting a} 0/1: 1 MISSING_ELEMENT {END_EVENT expecting b} 0/2: 1 MISSING_ELEMENT {matching b} {expecting a} MISSING_ELEMENT {END_EVENT expecting c} 0/3: 1 MISSING_ELEMENT {matching c} {expecting a} MISSING_ELEMENT {matching c} {expecting b} 0/4: 1 MISSING_ELEMENT {END_EVENT expecting c} 0/5: 1 MISSING_ELEMENT {matching c} {expecting b} 0/6: 1 MISSING_ELEMENT {matching b} {expecting a} 0/7: 1 MISSING_ELEMENT {matching unknown} {expecting a} MISSING_ELEMENT {matching unknown} {expecting b} MISSING_ELEMENT {matching unknown} {expecting c} UNEXPECTED_ELEMENT {matching unknown} {expecting {<elementend> {}}} 0/8: 1 MISSING_ELEMENT {matching unknown} {expecting b} MISSING_ELEMENT {matching unknown} {expecting c} UNEXPECTED_ELEMENT {matching unknown} {expecting {<elementend> {}}}}

proc schema-18 {args} {
    lappend ::result {*}$args
}
test schema-18.1 {reportcmd} {
    tdom::schema s
    s define {