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

"{ NameSpace: XQuery }"

XQTSTestCase subclass:#XQTSOrderbyExprWithoutTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'XQuery-Tests-XQTS'

!

!XQTSOrderbyExprWithoutTests methodsFor:'tests'!

test_orderbywithout_1

    | query result |

    query := ' 

        (: name : orderbywithout-1 :)

(: 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. :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in ("A String","B String","C String","D String","E String","F String","G String","H String","I String","J String","K String","L String","M String","N String","O String","P String","R String","S String","T String","U String","V String","W String","X String","Y String","Z String")

 order by xs:string($x) return xs:string($x)

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-1.txt')

!

test_orderbywithout_10

    | query result |

    query := ' 

        (: name : orderbywithout-10 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "count($x) ", where $x is a set of node with strings as content.:)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in ("A String","B String","C String","D String","E String","F String","G String","H String","I String","J String","K String","L String","M String","N String","O String","P String","R String","S String","T String","U String","V String","W String","X String","Y String","Z String")

 order by count(xs:string($x)) return count(xs:string($x))

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-10.txt')

!

test_orderbywithout_11

    | query result |

    query := ' 

        (: name : orderbywithout-11 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "$x ", where $x is a set of negative numbers casted as decimals. :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (-100000000000000000,-10000000000000000,-1000000000000000,-100000000000000,-10000000000000,-1000000000000,-100000000000,-10000000000,-1000000000,-100000000,-10000000,-1000000,-100000,-10000,-1000,-100,-10,-1,-0)

 order by xs:decimal($x) return xs:decimal($x)

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-11.txt')

!

test_orderbywithout_12

    | query result |

    query := ' 

        (: name : orderbywithout-12 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "($x + $x) ", where $x is a set of negative numbers casted as decimals. :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (-100000000000000000,-10000000000000000,-1000000000000000,-100000000000000,-10000000000000,-1000000000000,-100000000000,-10000000000,-1000000000,-100000000,-10000000,-1000000,-100000,-10000,-1000,-100,-10,-1,-0)

 order by (xs:decimal($x) + xs:decimal($x)) return xs:decimal($x) + xs:decimal($x)

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-12.txt')

!

test_orderbywithout_13

    | query result |

    query := ' 

        (: name : orderbywithout-13 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "$x is $x ", where $x is a set of nodes with negative numbers as content. :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (<orderData>-100000000000000000</orderData>,<orderData>-10000000000000000</orderData>,<orderData>-1000000000000000</orderData>,<orderData>-100000000000000</orderData>,

<orderData>-10000000000000</orderData>,<orderData>-1000000000000</orderData>,<orderData>-100000000000</orderData>,<orderData>-10000000000</orderData>,<orderData>-1000000000</orderData>,

<orderData>-100000000</orderData>,<orderData>-10000000</orderData>,<orderData>-1000000</orderData>,<orderData>-100000</orderData>,<orderData>-10000</orderData>,<orderData>-1000</orderData>,

<orderData>-100</orderData>,<orderData>-10</orderData>,<orderData>-1</orderData>,<orderData>-0</orderData>)

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

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-13.txt')

!

test_orderbywithout_14

    | query result |

    query := ' 

        (: name : orderbywithout-14 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "xs:float($x) ", where $x is a set of negative numbers. :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (-100000000000000000,-10000000000000000,-1000000000000000,-100000000000000,-10000000000000,-1000000000000,-100000000000,-10000000000,-1000000000,-100000000,-10000000,-1000000,-100000,-10000,-1000,-100,-10,-1,-0)

 order by xs:float($x) return xs:float($x)

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-14.txt')

!

test_orderbywithout_15

    | query result |

    query := ' 

        (: name : orderbywithout-15 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "xs:double($x) ", where $x is a set of negative numbers. :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (-100000000000000000,-10000000000000000,-1000000000000000,-100000000000000,-10000000000000,-1000000000000,-100000000000,-10000000000,-1000000000,-100000000,-10000000,-1000000,-100000,-10000,-1000,-100,-10,-1,-0)

 order by xs:double($x) return xs:double($x)

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-15.txt')

!

test_orderbywithout_16

    | query result |

    query := ' 

        (: name : orderbywithout-16 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "xs:integer($x) ", where $x is a set of negative numbers. :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (-100000000000000000,-10000000000000000,-1000000000000000,-100000000000000,-10000000000000,-1000000000000,-100000000000,-10000000000,-1000000000,-100000000,-10000000,-1000000,-100000,-10000,-1000,-100,-10,-1,-0)

 order by xs:integer($x) return xs:integer($x)

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-16.txt')

!

test_orderbywithout_17

    | query result |

    query := ' 

        (: name : orderbywithout-17 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "($x * -1) ", where $x is a set of negative numbers. :)

(: Use a locally defined sequence. :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (-100000000000000000,-10000000000000000,-1000000000000000,-100000000000000,-10000000000000,-1000000000000,-100000000000,-10000000000,-1000000000,-100000000,-10000000,-1000000,-100000,-10000,-1000,-100,-10,-1,-0)

 order by (xs:decimal($x) * -1) return (xs:decimal($x) * -1)

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-17.txt')

!

test_orderbywithout_18

    | query result |

    query := ' 

        (: name : orderbywithout-18 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "$x ", where $x is a set of positive numbers.:)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (100000000000000000,10000000000000000,1000000000000000,100000000000000,10000000000000,1000000000000,100000000000,10000000000,1000000000,100000000,10000000,1000000,100000,10000,1000,100,10,1,0)

 order by xs:decimal($x) return xs:decimal($x)

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-18.txt')

!

test_orderbywithout_19

    | query result |

    query := ' 

        (: name : orderbywithout-19 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "($x + $x) ", where $x is a set of positive numbers. :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (100000000000000000,10000000000000000,1000000000000000,100000000000000,10000000000000,1000000000000,100000000000,10000000000,1000000000,100000000,10000000,1000000,100000,10000,1000,100,10,1,0)

 order by (xs:decimal($x) + xs:decimal($x)) return xs:decimal($x) + xs:decimal($x)

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-19.txt')

!

test_orderbywithout_2

    | query result |

    query := ' 

        (: name : orderbywithout-2 :)

(: 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.:)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in ("A String","B String","C String","D String","E String","F String","G String","H String","I String","J String","K String","L String","M String","N String","O String","P String","R String","S String","T String","U String","V String","W String","X String","Y String","Z String")

 order by concat(xs:string($x),"()") return concat(xs:string($x),"()")

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-2.txt')

!

test_orderbywithout_20

    | query result |

    query := ' 

        (: name : orderbywithout-20 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "$x is $x ", where $x is a set of nodes with positive numbers as content. :)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (<orderData>100000000000000000</orderData>,<orderData>10000000000000000</orderData>,<orderData>1000000000000000</orderData>,

<orderData>100000000000000</orderData>,<orderData>10000000000000</orderData>,<orderData>1000000000000</orderData>,<orderData>100000000000</orderData>,

<orderData>10000000000</orderData>,<orderData>1000000000</orderData>,<orderData>100000000</orderData>,<orderData>10000000</orderData>,

<orderData>1000000</orderData>,<orderData>100000</orderData>,<orderData>10000</orderData>,<orderData>1000</orderData>,<orderData>100</orderData>,

<orderData>10</orderData>,<orderData>1</orderData>,<orderData>0</orderData>)

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

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-20.txt')

!

test_orderbywithout_21

    | query result |

    query := ' 

        (: name : orderbywithout-21 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "xs:float($x) ", where $x is a set of positive numbers.:)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (100000000000000000,10000000000000000,1000000000000000,100000000000000,10000000000000,1000000000000,100000000000,10000000000,1000000000,100000000,10000000,1000000,100000,10000,1000,100,10,1,0)

 order by xs:float($x) return xs:float($x)

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-21.txt')

!

test_orderbywithout_22

    | query result |

    query := ' 

        (: name : orderbywithout-22 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWR expression set to "xs:decimal($x)", where $x is a set of positive numbers.:)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (100000000000000000,10000000000000000,1000000000000000,100000000000000,10000000000000,1000000000000,100000000000,10000000000,1000000000,100000000,10000000,1000000,100000,10000,1000,100,10,1,0)

 order by xs:decimal($x) return xs:decimal($x)

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/OrderbyExpr/OrderbyExprWithout/orderbywithout-22.txt')

!

test_orderbywithout_23

    | query result |

    query := ' 

        (: name : orderbywithout-23 :)

(: description : Evaluation of "order by" clause with the "order by" clause of a FLWOR expression set to "xs:double($x)", where $x is a set of positive numbers.:)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

<results> {

for $x in (100000000000000000,10000000000000000,1000000000000000,100000000000000,10000000000000,1000000000000,100000000000,10000000000,1000000000,100000000,10000000,1000000,100000,10000,1000,100,10,1,0)

 order by xs:double($x) return xs:double($x)

}

</results>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile: