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

"{ NameSpace: XQuery }"

XQTSTestCase subclass:#XQTSComputeConElemTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'XQuery-Tests-XQTS'

!

!XQTSComputeConElemTests methodsFor:'tests'!

test_Constr_compelem_adjtext_1

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: merge adjacent atomic values to text node :)

count((element elem {1, "string", 1,2e3})/text())

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/ComputeCon/ComputeConElem/Constr-compelem-adjtext-1.txt')

!

test_Constr_compelem_adjtext_2

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: merge adjacent atomic values and text nodes to text node :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

count((element elem {1, $input-context//text(), "string"})/text())

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/ComputeCon/ComputeConElem/Constr-compelem-adjtext-2.txt')

!

test_Constr_compelem_adjtext_3

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: merge adjacent atomic values between other nodes to text node :)

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

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/ComputeCon/ComputeConElem/Constr-compelem-adjtext-3.txt')

!

test_Constr_compelem_attr_1

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: attribute node following atomic value :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

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

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_compelem_attr_2

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: attribute node following node :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

element elem {element a {}, $input-context//west/@mark}

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_compelem_attr_3

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: attributes in content :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

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

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/ComputeCon/ComputeConElem/Constr-compelem-attr-3.xml')

!

test_Constr_compelem_attr_4

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

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

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

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

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_compelem_baseuri_1

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

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

fn:base-uri(element elem {attribute 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/ComputeCon/ComputeConElem/Constr-compelem-baseuri-1.txt')

!

test_Constr_compelem_baseuri_2

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: base-uri through parent :)

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

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/ComputeCon/ComputeConElem/Constr-compelem-baseuri-2.txt')

!

test_Constr_compelem_baseuri_3

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: base-uri through declaration :)

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

fn:base-uri(element elem {})

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/ComputeCon/ComputeConElem/Constr-compelem-baseuri-3.txt')

!

test_Constr_compelem_compname_1

    | query result |

    query := ' 

        (: Name: Constr-compelem-compname-1 :)

(: Written by: Andreas Behm :)

(: Description: empty computed name :)

element {()} {"text"}

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_compelem_compname_10

    | query result |

    query := ' 

        (: Name: Constr-compelem-compname-10 :)

(: Written by: Andreas Behm :)

(: Description: string as name :)

element {"elem"} {"text"}

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/ComputeCon/ComputeConElem/Constr-compelem-compname-10.xml')

!

test_Constr_compelem_compname_11

    | query result |

    query := ' 

        (: Name: Constr-compelem-compname-11 :)

(: Written by: Andreas Behm :)

(: Description: string as name :)

element {"elem", ()} {"text"}

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/ComputeCon/ComputeConElem/Constr-compelem-compname-11.xml')

!

test_Constr_compelem_compname_12

    | query result |

    query := ' 

        (: Name: Constr-compelem-compname-12 :)

(: Written by: Andreas Behm :)

(: Description: string as name :)

element {(), "elem"} {"text"}

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/ComputeCon/ComputeConElem/Constr-compelem-compname-12.xml')

!

test_Constr_compelem_compname_13

    | query result |

    query := ' 

        (: Name: Constr-compelem-compname-13 :)

(: Written by: Andreas Behm :)

(: Description: string with prefix as name :)

<elem xmlns:foo="http://www.example.com/foo">{element {"foo:elem"} {"text"}}</elem>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/ComputeCon/ComputeConElem/Constr-compelem-compname-13.xml')

!

test_Constr_compelem_compname_14

    | query result |

    query := ' 

        (: Name: Constr-compelem-compname-14 :)

(: Written by: Andreas Behm :)

(: Description: string with undeclared prefix as name :)

element {"foo:elem"} {}

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_compelem_compname_15

    | query result |

    query := ' 

        (: Name: Constr-compelem-compname-15 :)

(: Written by: Andreas Behm :)

(: Description: untyped atomic as name :)

element {xs:untypedAtomic("elem")} {"text"}

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/ComputeCon/ComputeConElem/Constr-compelem-compname-15.xml')

!

test_Constr_compelem_compname_16

    | query result |

    query := ' 

        (: Name: Constr-compelem-compname-16 :)

(: Written by: Andreas Behm :)

(: Description: untyped atomic with prefix as name :)

<elem xmlns:foo="http://www.example.com/foo">{element {xs:untypedAtomic("foo:elem")} {"text"}}</elem>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/ComputeCon/ComputeConElem/Constr-compelem-compname-16.xml')

!

test_Constr_compelem_compname_17

    | query result |

    query := ' 

        (: Name: Constr-compelem-compname-17 :)

(: Written by: Andreas Behm :)

(: Description: untyped atomic with undeclared prefix as name :)

element {xs:untypedAtomic("foo:elem")} {"text"}

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_compelem_compname_18

    | query result |

    query := ' 

        (: Name: Constr-compelem-compname-18 :)

(: Written by: Andreas Behm :)

(: Description: non-ncname string as name :)

element {"el em"} {"text"}

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_compelem_compname_19

    | query result |

    query := ' 

        (: Name: Constr-compelem-compname-19 :)

(: Written by: Andreas Behm :)

(: Description: non-ncname untyped atomic as name :)

element {xs:untypedAtomic("el em")} {"text"}

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_compelem_compname_2