"{ Package: 'stx:goodies/xmlsuite/xquery' }"

"{ NameSpace: XQuery }"

XQTSTestCase subclass:#XQTSDirectConElemContentTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'XQuery-Tests-XQTS'

!

!XQTSDirectConElemContentTests methodsFor:'tests'!

test_Constr_cont_adjtext_1

    | query result |

    query := ' 

        (: Name: Constr-cont-adjtext-1 :)

(: Written by: Andreas Behm :)

(: Description: single text node in element content :)

count((<elem>a{1,2,3}b</elem>)/text())

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-adjtext-1.txt')

!

test_Constr_cont_adjtext_2

    | query result |

    query := ' 

        (: Name: Constr-cont-adjtext-2 :)

(: Written by: Andreas Behm :)

(: Description: two text nodes in element content :)

count((<elem>a{1,<a/>,3}b</elem>)/text())

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-adjtext-2.txt')

!

test_Constr_cont_adjtext_3

    | query result |

    query := ' 

        (: Name: Constr-cont-adjtext-3 :)

(: Written by: Andreas Behm :)

(: Description: strip empty text node :)

count((<elem>{""}</elem>)/text())

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-adjtext-3.txt')

!

test_Constr_cont_adjtext_4

    | query result |

    query := ' 

        (: Name: Constr-cont-adjtext-4 :)

(: Written by: Andreas Behm :)

(: Description: no text node for empty sequence constructed :)

count((<elem>{()}</elem>)/text())

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-adjtext-4.txt')

!

test_Constr_cont_attr_1

    | query result |

    query := ' 

        (: Name: Constr-cont-attr-1 :)

(: Written by: Andreas Behm :)

(: Description: attribute node following atomic value :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<elem>{1, $input-context//west/@mark}</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'TopMany'.

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_cont_attr_2

    | query result |

    query := ' 

        (: Name: Constr-cont-attr-2 :)

(: Written by: Andreas Behm :)

(: Description: attribute node following node :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<elem><a/>{$input-context//west/@mark}</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'TopMany'.

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_cont_attr_3

    | query result |

    query := ' 

        (: Name: Constr-cont-attr-3 :)

(: Written by: Andreas Behm :)

(: Description: attribute node following empty sequence :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<elem>{()}{$input-context//west/@mark}</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'TopMany'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-attr-3.xml')

!

test_Constr_cont_attr_4

    | query result |

    query := ' 

        (: Name: Constr-cont-attr-4 :)

(: Written by: Andreas Behm :)

(: Description: attribute node following direct content :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<elem>{$input-context//west/@mark}x{$input-context//west/@west-attr-1}</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'TopMany'.

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_cont_attr_5

    | query result |

    query := ' 

        (: Name: Constr-cont-attr-5 :)

(: Written by: Andreas Behm :)

(: Description: attributes in content :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<elem>{$input-context//west/@mark, $input-context//west/@west-attr-1}</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'TopMany'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-attr-5.xml')

!

test_Constr_cont_attr_6

    | query result |

    query := ' 

        (: Name: Constr-cont-attr-6 :)

(: Written by: Andreas Behm :)

(: Description: attributes direct and in content :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<elem mark="w0">{$input-context//west/@west-attr-1, $input-context//west/@west-attr-2}</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'TopMany'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-attr-6.xml')

!

test_Constr_cont_attr_7

    | query result |

    query := ' 

        (: Name: Constr-cont-attr-7 :)

(: Written by: Andreas Behm :)

(: Description: attribute in content with same name :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<elem>{$input-context//west/@mark, $input-context//center/@mark}</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'TopMany'.

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_cont_attr_8

    | query result |

    query := ' 

        (: Name: Constr-cont-attr-8 :)

(: Written by: Andreas Behm :)

(: Description: attributes direct and in content with same name :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<elem mark="w0">{$input-context//west/@west-attr-1, $input-context//west/@mark}</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'TopMany'.

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_cont_baseuri_1

    | query result |

    query := ' 

        (: Name: Constr-cont-baseuri-1 :)

(: Written by: Andreas Behm :)

(: Description: base-uri through xml:base attribute :)

fn:base-uri(<elem xml:base="http://www.example.com"/>)

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-baseuri-1.txt')

!

test_Constr_cont_baseuri_2

    | query result |

    query := ' 

        (: Name: Constr-cont-baseuri-2 :)

(: Written by: Andreas Behm :)

(: Description: base-uri through parent :)

fn:base-uri((<elem xml:base="http://www.example.com"><a/></elem>)/a)

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-baseuri-2.txt')

!

test_Constr_cont_baseuri_3

    | query result |

    query := ' 

        (: Name: Constr-cont-baseuri-3 :)

(: Written by: Andreas Behm :)

(: Description: base-uri through declaration :)

declare base-uri "http://www.example.com";

fn:base-uri(<elem/>)

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-baseuri-3.txt')

!

test_Constr_cont_charref_1

    | query result |

    query := ' 

        (: Name: Constr-cont-charref-1 :)

(: Written by: Andreas Behm :)

(: Description: character reference :)

<elem>&#x30;</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-charref-1.xml')

!

test_Constr_cont_charref_2

    | query result |

    query := ' 

        (: Name: Constr-cont-charref-2 :)

(: Written by: Andreas Behm :)

(: Description: invalid character reference :)

<elem>&#x0;</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_cont_constrmod_1

    | query result |

    query := ' 

        (: Name: Constr-cont-constrmod-1 :)

(: Written by: Andreas Behm :)

(: Description: strip IDREFS type :)

declare construction strip;

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

fn:count(fn:data(<elem>{$input-context//*:idrefs}</elem>/*))

'.

    self xqtsBind: 'input-context' toContentsOf: 'atomic'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-constrmod-1.txt')

!

test_Constr_cont_constrmod_2

    | query result |

    query := ' 

        (: Name: Constr-cont-constrmod-2 :)

(: Written by: Andreas Behm :)

(: Description: preserve IDREFS type :)

declare construction preserve;

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

fn:count(fn:data(<elem>{$input-context//*:idrefs}</elem>/*))

'.

    self xqtsBind: 'input-context' toContentsOf: 'atomic'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemContent/Constr-cont-constrmod-2.txt')

!

test_Constr_cont_constrmod_3

    | query result |

    query := ' 

        (: Name: Constr-cont-constrmod-3 :)

(: Written by: Andreas Behm :)

(: Description: strip decimal type :)

declare construction strip;

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<elem>{$input-context//*:decimal}</elem>/* cast as xs:integer

'.