Commit d260560c authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-06-13 10:24:26 by cvscast] - added two tests for the interpreter

- added another recursion test case

Original author: cvscast
Date: 2003-06-13 10:24:26+00:00
parent de8be9c0
schema F = "schema/regtest/flatten.xsd" ;;
let v = load_xml "schema/regtest/flatten.xml" ;;
let vv = validate v with F # foo ;;
schema M = "schema/regtest/mails.xsd" ;;
let v = load_xml "schema/regtest/mails.xml" ;;
let vv = validate v with M # mails ;;
<foo>
<foo>
<foo>
<end/>
</foo>
</foo>
</foo>
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<!-- recursion between an element and a type -->
<xsd:element name="foo" type="fooT"/>
<xsd:complexType name="fooT">
<xsd:choice>
<xsd:element name="end" type="xsd:string"/>
<xsd:element ref="foo"/>
</xsd:choice>
</xsd:complexType>
</xsd:schema>
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment