1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
(: Schema for results :)
import schema default element namespace "http://www.w3.org/2005/02/query-test-XQTSResult" at "w3c_full_text_reportingresults/XQFTTSResult.xsd";
(: Test.xml file from ctest :)
declare variable $ctests as document-node() external;
if(fn:empty($ctests)) then
fn:error()
else
validate {
<test-suite-result>
<implementation
name="Zorba"
version="trunk, r10831"
anonymous-result-column="false">
<organization
name='FLWOR Foundation'
website="http://zorba-xquery.com/"
anonymous="false" />
<submittor
name="Zorba Team"
email="contact@zorba-xquery.com" />
<description>
<p>Zorba is a general purpose XQuery processor implementing in C++
the W3C family of specifications. It is not an XML database.
The query processor has been designed to be embeddable in a
variety of environments such as other programming languages
extended with XML processing capabilities, browsers,
database servers, XML message dispatchers, or smartphones.
Its architecture employes a modular design, which allows customizing
the Zorba query processor to the environment’s needs.
For more details please check out http://www.zorba-xquery.com.</p>
</description>
{
let $XQFTTSZorba := fn:doc("XQFTTS.xml")
return
(
<implementation-defined-items>
{
for $idi in $XQFTTSZorba//*:implementation-defined-item
return
<implementation-defined-item name="{data($idi/@name)}" value="{data($idi/@value)}" />
}
</implementation-defined-items>,
<features>{$XQFTTSZorba//*:feature}</features>,
<context-properties>
{
for $cp in $XQFTTSZorba//*:context-property
return
<context-property name="{data($cp/@name)}" context-type="{data($cp/@context-type)}" value="{data($cp/@value)}" />
}
</context-properties>
)
}
</implementation>
<syntax>XQueryX</syntax>
<test-run dateRun="2012-05-09">
<test-suite version="current"/>
<transformation><p>Standard</p></transformation>
<comparison><p>Standard</p></comparison>
<otherComments><p>XQFTTS taken from W3C CVS as of 2012-05-09.</p></otherComments>
</test-run>
{
for $test in $ctests/*:Site/*:Testing/*:Test
let $testname := fn:tokenize(fn:data($test/*:Name), "/")[last()]
order by $testname
return
<test-case
name="{$testname}"
result="{fn:substring(fn:data($test/@Status), 0, 5)}"
/>
}
</test-suite-result>
}
|