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

Overview
Comment:Added a test.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | wip
Files: files | file ages | folders
SHA3-256: fd510a13be181de68b4723221273f69c2012fa5dd8655717db2efae6ee10d0d9
User & Date: rolf 2019-10-28 00:33:07
Context
2019-10-31
14:12
Work on validation error recovery continues. Since there seems to be no silver bullet, this throws code sprinkled all over the code to make some progress. check-in: 70f5d362f7 user: rolf tags: wip
2019-10-28
00:33
Added a test. check-in: fd510a13be user: rolf tags: wip
2019-10-26
01:20
Fixed not always poping up of tcl errors in called script during validation. check-in: a43c523416 user: rolf tags: wip
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/schema.test.

1542
1543
1544
1545
1546
1547
1548



























1549
1550
1551
1552
1553
1554
1555
    grammar define {
        defelement doc {
            group * {
                element a
                element b
            }
            element c



























        }
        foreach e {a b c} {
            defelement $e {}
        }
    }
    set result [list]
    foreach xml {







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
    grammar define {
        defelement doc {
            group * {
                element a
                element b
            }
            element c
        }
        foreach e {a b c} {
            defelement $e {}
        }
    }
    set result [list]
    foreach xml {
        <doc><c/></doc>
        <doc><a/><b/><c/></doc>
        <doc><a/><b/><a/><b/><c/></doc>
        <doc><a/><b/><a/><b/></doc>
    } {
        lappend result [grammar validate $xml]
    }
    grammar delete
    set result
} {1 1 1 0}

test schema-7.11b {loop over seq} {
    tdom::schema create grammar
    grammar define {
        defelement doc {
            group 2 {
                element a ?
                element b ?
            }
            element c
        }
        foreach e {a b c} {
            defelement $e {}
        }
    }
    set result [list]
    foreach xml {