X Catalog001:

declare namespace fots = "http://www.w3.org/2010/09/qt-fots-catalog"; let $testsets := //fots:test-set/@file/doc(resolve-uri(., base-uri(..))), $tests := $testsets//fots-test-case, $environments := (//fots:environment | $testsets//fots:environment)[@name], $refs := $testsets//fots:environment[@ref] return $refs[not(@ref = $environments/@name)]

 X Catalog002:

import schema namespace fots = "http://www.w3.org/2010/09/qt-fots-catalog"; let $testsets := //fots:test-set/@file/(validate{doc(resolve-uri(., base-uri(..)))}) for $test in $testsets//fots:test-case[not(fots:result/fots:error)][ contains(test, "declare variable") or contains(test, "declare function") or matches(test, "<.+>") or contains(test, "typeswitch")] where empty($test/(fots:dependency | ../fots:dependency)) or exists($test/(fots:dependency | ../fots:dependency)[contains(., "XP")]) return $test

 X Catalog003:

declare namespace fots = "http://www.w3.org/2010/09/qt-fots-catalog"; let $testsets := //fots:test-set/@file/doc(resolve-uri(., base-uri(..))) for $test in $testsets//fots:test-case[contains(test, "import schema")] where empty($test/(fots:dependency | ../fots:dependency)[@type='feature' and @value="schemaImport"]) return $test

 X Catalog004:

declare namespace fots = "http://www.w3.org/2010/09/qt-fots-catalog"; let $testsets := //fots:test-set/@file/doc(resolve-uri(., base-uri(..))) for $schema in (.|$testsets)//fots:environment/fots:schema let $targetNamespace := doc(resolve-uri($schema/@file, base-uri($schema)))/*/@targetNamespace where not($schema/@uri eq $targetNamespace or (empty($targetNamespace) and string(@uri)='')) return ($schema, <file>{base-uri($schema)}</file>)

 X Catalog005:

declare namespace fots = "http://www.w3.org/2010/09/qt-fots-catalog"; (: ask whether a test is XQuery-only :) declare function local:needs-xq($t as element(fots:test-case)) as xs:boolean { let $spec := $t/fots:dependency[@type='spec'][1] return exists($spec) and contains($spec/@value, 'XQ') and not(contains($spec/@value, 'XP')) }; let $testsets := //fots:test-set/@file/doc(resolve-uri(., base-uri(..))) let $nsenvs := for $t in ($testsets|.) for $e in $t//fots:environment[@name] where exists($e/fots:namespace) return concat($t/*/@name, '~', $e/@name/string()) let $xq-testcases := $testsets//fots:test-case [local:needs-xq(.)] for $tc in $xq-testcases [concat(/*/@name, '~', fots:environment/@ref) = $nsenvs or fots:environment[fots:namespace]] return $tc/@name/string()

 X Catalog006:

declare namespace fots = "http://www.w3.org/2010/09/qt-fots-catalog"; (: ask whether a test is XQuery-only :) declare function local:needs-xq($t as element(fots:test-case)) as xs:boolean { let $spec := $t/fots:dependency[@type='spec'][1] return exists($spec) and contains($spec/@value, 'XQ') and not(contains($spec/@value, 'XP')) }; let $testsets := //fots:test-set/@file/doc(resolve-uri(., base-uri(..))) let $nsenvs := for $t in ($testsets|.) for $e in $t//fots:environment where exists($e/fots:decimal-format) return $e/@name/string() let $xq-testcases := $testsets//fots:test-case [local:needs-xq(.)] for $tc in $xq-testcases [fots:environment/@ref = $nsenvs or fots:environment[fots:decimal-format]] return $tc/@name/string()

 X Catalog007:

xquery version "3.0"; (: output the non-unique test names. There should be none :) declare namespace fots = "http://www.w3.org/2010/09/qt-fots-catalog"; let $testsets := //fots:test-set/@file/doc(resolve-uri(., base-uri(..))) for $xq-testcase in $testsets//fots:test-case let $testname := $xq-testcase/@name group by $testname where count($xq-testcase) gt 1 return $testname

 X Catalog008:

declare namespace fots = "http://www.w3.org/2010/09/qt-fots-catalog"; for $xq-testcase in //fots:test-set let $testname := $xq-testcase/@name let $testfile := $xq-testcase/@file/doc(resolve-uri(., base-uri(..))) let $file-testname := $testfile/fots:test-set/@name where $testname != $file-testname return <out catalog-name="{string($testname)}" test-name="{string($file-testname)}"/>

 X Catalog009:

xquery version "3.0"; declare namespace fots = "http://www.w3.org/2010/09/qt-fots-catalog"; let $testsets := //fots:test-set/@file/doc(resolve-uri(., base-uri(..))) for $dependencyTS in $testsets//fots:dependency let $name := $dependencyTS/@type let $value := $dependencyTS/@value group by $name, $value order by $name, $value return <dependency type='{$name}' value='{$value}' />

 X Catalog010:

declare namespace fots = "http://www.w3.org/2010/09/qt-fots-catalog"; let $changes := doc('../changes.xml')//change/@id/string() for $xq-test in //fots:test-set let $testfile := $xq-test/@file/doc(resolve-uri(., base-uri(..))) let $testset := $testfile/fots:test-set let $testcases := $testset/fots:test-case for $token in distinct-values((tokenize($testset/@covers, ' '), $testcases/@covers/tokenize(., ' '))) where not($token = $changes) return <out test-set="{string($testset/@name)}" bad-covers-value="{$token}"/>

 X Catalog011:

declare namespace fots = "http://www.w3.org/2010/09/qt-fots-catalog"; <r>{ let $changes := doc('../changes.xml')//change/@id/string() let $testfiles := //fots:test-set/@file/doc(resolve-uri(., base-uri(..))) let $testsets := $testfiles/fots:test-set for $token in distinct-values($changes) let $relevant-testsets := $testsets[tokenize(@covers, ' ') = $token] let $relevant-testcases := $testsets/fots:test-case[tokenize(@covers, ' ') = $token] let $count := count($relevant-testsets/fots:test-case) + count($relevant-testcases) where $count lt 5 return <out change="{$token}" tests="{$count}"/> }</r>

 X Catalog012:

declare namespace fots = "http://www.w3.org/2010/09/qt-fots-catalog"; let $testsets := //fots:test-set/@file/doc(resolve-uri(., base-uri(..))) return $testsets//fots:test-case[.//fots:assert-xml[starts-with(., '<?xml')]]