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

"{ NameSpace: XQuery }"

XQTSTestCase subclass:#XQTSDirectConElemAttrTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'XQuery-Tests-XQTS'

!

!XQTSDirectConElemAttrTests methodsFor:'tests'!

test_Constr_attr_charref_1

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: character references in attribute content :)

<elem attr="&#x30;&#x31;&#x32;"/>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-charref-1.xml')

!

test_Constr_attr_content_2

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: Illegal attribute content "{" :)

<elem attr="{"/>

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_attr_content_3

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: Illegal attribute content "}" :)

<elem attr="}"/>

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_attr_content_4

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: Illegal attribute content "<" :)

<elem attr="<"/>

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_attr_content_5

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: Illegal attribute content "&" :)

<elem attr="&"/>

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_attr_distnames_1

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: attributes with identical local names :)

<elem attr="val1" attr="val2" attr2="val3"/>

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_attr_distnames_2

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: attributes with identical local names :)

<elem attr="val1" attr2="val2" attr="val3"/>

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_attr_distnames_3

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: attributes with identical local names :)

<elem attr1="val1" attr="val2" attr2="val3" attr="val4" attr3="val5"/>

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_attr_distnames_4

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: attributes with identical local name and URI :)

<elem xmlns:foo="http://www.w3.org/XQueryTest/Construct" xmlns:bar="http://www.w3.org/XQueryTest/Construct" foo:attr="val1" bar:attr="val2"/>

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_Constr_attr_enclexpr_1

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: enclosed expression in attribute content - atomic values :)

<elem attr="{1,"string",3.14,xs:float("1.2345e-2"),xs:dateTime("2002-04-02T12:00:00-01:00")}"/>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-enclexpr-1.xml')

!

test_Constr_attr_enclexpr_2

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: enclosed expression in attribute content - nodes :)

<elem attr="{<elem>123</elem>, (<elem attr="456"/>)/@attr, (<elem>789</elem>)/text()}"/>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-enclexpr-2.xml')

!

test_Constr_attr_enclexpr_3

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: enclosed expression in attribute content - empty string :)

<elem attr="{1,"",2}"/>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-enclexpr-3.xml')

!

test_Constr_attr_enclexpr_4

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: enclosed expression in attribute content - empty node :)

<elem attr="{1,<a/>,2}"/>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-enclexpr-4.xml')

!

test_Constr_attr_enclexpr_5

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: enclosed expression in attribute content - mix direct content and enclosed expressions :)

<elem attr="123{456}"/>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-enclexpr-5.xml')

!

test_Constr_attr_enclexpr_6

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: enclosed expression in attribute content - mix direct content and enclosed expressions :)

<elem attr="{123}456"/>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-enclexpr-6.xml')

!

test_Constr_attr_enclexpr_7

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: enclosed expression in attribute content - mix direct content and enclosed expressions :)

<elem attr="1{2,3}{4,5}6{<a>7</a>}{<a>8</a>}9"/>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-enclexpr-7.xml')

!

test_Constr_attr_entref_1

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: entity references in attribute content :)

<elem attr="&amp;&lt;&gt;"/>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-entref-1.xml')

!

test_Constr_attr_entref_2

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: entity references in attribute content :)

fn:string-length(string((<elem attr="&amp;&lt;&gt;"/>)/@attr))

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-entref-2.txt')

!

test_Constr_attr_id_1

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: attribute xml:id - content is ncname :)

<elem xml:id="ncname"/>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-id-1.xml')

!

test_Constr_attr_id_2

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: attribute xml:id - content is to be further normalized :)

<elem xml:id="    a{"b    c

d","        "}"/>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-id-2.xml')

!

test_Constr_attr_nsdecl_1

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: namespace declaration does not count as attribute :)

fn:count((<elem xmlns:foo="uri"/>)/@*)

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-nsdecl-1.txt')

!

test_Constr_attr_nsdecl_2

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: namespace default declaration does not count as attribute :)

fn:count((<elem xmlns="uri"/>)/@*)

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Construct/DirectConElem/DirectConElemAttr/Constr-attr-nsdecl-2.txt')

!

test_Constr_attr_nspre_1

    | query result |

    query := ' 

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

(: Written by: Andreas Behm :)

(: Description: attribute prefix declared in prolog :)

declare namespace foo="http://www.w3.org/XQueryTest/Construct"; 

<elem foo:attr="value"/>

'.

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