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

"{ NameSpace: XQuery }"

XQTSTestCase subclass:#XQTSOrderbyExprWithTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'XQuery-Tests-XQTS'

!

!XQTSOrderbyExprWithTests methodsFor:'tests'!

test_orderBy1

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy1 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "$x ", where $x is a set of Strings and the ordering mode set to ascending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/Strings/orderData

 order by $x ascending return $x

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy1.txt')

!

test_orderBy10

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy10 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "concat($x,"") ", where $x is a set of Strings and the ordering mode set to ascending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/Strings/orderData

 order by concat($x,"") ascending return concat($x,"")

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy10.txt')

!

test_orderBy11

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy11 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "concat("",$x) ", where $x is a set of Strings and the ordering mode set to descending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/Strings/orderData

 order by concat("",$x) descending return concat("",$x)

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy11.txt')

!

test_orderBy12

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy12 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "concat("",$x) ", where $x is a set of Strings and the ordering mode set to ascending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/Strings/orderData

 order by concat("",$x) ascending return concat("",$x)

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy12.txt')

!

test_orderBy13

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy13 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "concat("",$x) ", where $x is a set of Strings and the ordering mode set to ascending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/Strings/orderData

 order by concat("",$x) ascending return concat("",$x)

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy13.txt')

!

test_orderBy14

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy14 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "$x is $x ", where $x is a set of Strings and the ordering mode set to ascending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/Strings/orderData

 order by $x is $x ascending return $x is $x

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy14.txt')

!

test_orderBy15

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy15 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "$x is $x ", where $x is a set of Strings and the ordering mode set to descending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/Strings/orderData

 order by $x is $x descending return $x is $x

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy15.txt')

!

test_orderBy16

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy16 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "concat($x,$x) ", where $x is a set of Strings and the ordering mode set to ascending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/Strings/orderData

 order by concat($x,$x) ascending return concat($x,$x)

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy16.txt')

!

test_orderBy17

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy17 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "string-length($x) ", where $x is a set of Strings and the ordering mode set to ascending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/Strings/orderData

 order by string-length($x) ascending return string-length($x)

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy17.txt')

!

test_orderBy18

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy18 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "count($x) ", where $x is a set of Strings and the ordering mode set to ascending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/Strings/orderData

 order by count($x) ascending return count($x)

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy18.txt')

!

test_orderBy19

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy19 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "string-length($x) ", where $x is a set of Strings and the ordering mode set to ascending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/Strings/orderData

 order by string-length($x) ascending return string-length($x)

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy19.txt')

!

test_orderBy2

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy2 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "$x ", where $x is a set of Strings and the ordering mode set to descending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/Strings/orderData

 order by $x descending return $x

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy2.txt')

!

test_orderBy20

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy20 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "$x ", where $x is a set of negative numbers and the ordering mode set to ascending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/NegativeNumbers/orderData

 order by $x ascending return $x

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy20.txt')

!

test_orderBy21

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy21 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "$x ", where $x is a set of negative numbers and the ordering mode set to descending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/NegativeNumbers/orderData

 order by $x descending return $x

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy21.txt')

!

test_orderBy22

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy22 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "($x + $x) ", where $x is a set of negative numbers and the ordering mode set to descending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/NegativeNumbers/orderData

 order by ($x + $x) descending return $x + $x

}

</results>

'.

    self xqtsBind: 'input-context1' toContentsOf: 'orderData'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWith/orderBy22.txt')

!

test_orderBy23

    | query result |

    query := ' 

        declare default element namespace "http://www.w3.org/XQueryTestOrderBy";

(: name : orderBy23 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "$x is $x ", where $x is a set of negative numbers and the ordering mode set to ascending :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in $input-context1/DataValues/NegativeNumbers/orderData

 order by $x is $x ascending return $x is $x

}

</results>