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

"{ NameSpace: XQuery }"

XQTSTestCase subclass:#XQTSGenCompGTEQTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'XQuery-Tests-XQTS'

!

!XQTSGenCompGTEQTests methodsFor:'tests'!

test_K_GenCompGTEQ_1

    | query result |

    query := ' 

        (:*******************************************************:)

(: Test: K-GenCompGTEQ-1                                 :)

(: Written by: Frans Englich                             :)

(: Date: 2006-10-05T18:29:37+02:00                       :)

(: Purpose: General comparison where one or more operands is the empty sequence. :)

(:*******************************************************:)

not(() >= () )

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/K-GenCompGTEQ-1.txt')

!

test_K_GenCompGTEQ_10

    | query result |

    query := ' 

        (:*******************************************************:)

(: Test: K-GenCompGTEQ-10                                :)

(: Written by: Frans Englich                             :)

(: Date: 2006-10-05T18:29:37+02:00                       :)

(: Purpose: <= combined with count().                    :)

(:*******************************************************:)

1 <= count((1, 2, 3, timezone-from-time(current-time()), 4))

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/K-GenCompGTEQ-10.txt')

!

test_K_GenCompGTEQ_2

    | query result |

    query := ' 

        (:*******************************************************:)

(: Test: K-GenCompGTEQ-2                                 :)

(: Written by: Frans Englich                             :)

(: Date: 2006-10-05T18:29:37+02:00                       :)

(: Purpose: General comparison where one or more operands is the empty sequence. :)

(:*******************************************************:)

not(1 >= () )

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/K-GenCompGTEQ-2.txt')

!

test_K_GenCompGTEQ_3

    | query result |

    query := ' 

        (:*******************************************************:)

(: Test: K-GenCompGTEQ-3                                 :)

(: Written by: Frans Englich                             :)

(: Date: 2006-10-05T18:29:37+02:00                       :)

(: Purpose: General comparison where one or more operands is the empty sequence. :)

(:*******************************************************:)

not(() >= 1 )

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/K-GenCompGTEQ-3.txt')

!

test_K_GenCompGTEQ_4

    | query result |

    query := ' 

        (:*******************************************************:)

(: Test: K-GenCompGTEQ-4                                 :)

(: Written by: Frans Englich                             :)

(: Date: 2006-10-05T18:29:37+02:00                       :)

(: Purpose: A syntactically invalid expression that reminds of a general comparison operator. :)

(:*******************************************************:)

1 =>; 1

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_K_GenCompGTEQ_5

    | query result |

    query := ' 

        (:*******************************************************:)

(: Test: K-GenCompGTEQ-5                                 :)

(: Written by: Frans Englich                             :)

(: Date: 2006-10-05T18:29:37+02:00                       :)

(: Purpose: An expression involving the ">=" operator that trigger certain optimization paths in some implementations. :)

(:*******************************************************:)

count((0, timezone-from-time(current-time()))) >= 1

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/K-GenCompGTEQ-5.txt')

!

test_K_GenCompGTEQ_6

    | query result |

    query := ' 

        (:*******************************************************:)

(: Test: K-GenCompGTEQ-6                                 :)

(: Written by: Frans Englich                             :)

(: Date: 2006-10-05T18:29:37+02:00                       :)

(: Purpose: General comparison causing a xs:untypedAtomic value to be cast to xs:boolean, and then compared. :)

(:*******************************************************:)

xs:untypedAtomic("false") >= false()

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/K-GenCompGTEQ-6.txt')

!

test_K_GenCompGTEQ_7

    | query result |

    query := ' 

        (:*******************************************************:)

(: Test: K-GenCompGTEQ-7                                 :)

(: Written by: Frans Englich                             :)

(: Date: 2006-10-05T18:29:37+02:00                       :)

(: Purpose: General comparison causing a xs:untypedAtomic value to be cast to xs:boolean, and then compared. :)

(:*******************************************************:)

true() >= xs:untypedAtomic("false")

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/K-GenCompGTEQ-7.txt')

!

test_K_GenCompGTEQ_8

    | query result |

    query := ' 

        (:*******************************************************:)

(: Test: K-GenCompGTEQ-8                                 :)

(: Written by: Frans Englich                             :)

(: Date: 2006-10-05T18:29:37+02:00                       :)

(: Purpose: General comparison causing a xs:untypedAtomic value to be cast to xs:boolean, and then compared. :)

(:*******************************************************:)

false() >= xs:untypedAtomic("false")

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/K-GenCompGTEQ-8.txt')

!

test_K_GenCompGTEQ_9

    | query result |

    query := ' 

        (:*******************************************************:)

(: Test: K-GenCompGTEQ-9                                 :)

(: Written by: Frans Englich                             :)

(: Date: 2006-10-05T18:29:37+02:00                       :)

(: Purpose: General comparison causing a xs:untypedAtomic value to be cast to xs:boolean, and then compared. :)

(:*******************************************************:)

xs:untypedAtomic("false") >= false()

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/K-GenCompGTEQ-9.txt')

!

test_generalexpression496

    | query result |

    query := ' 

(:*******************************************************:)

(:Written By: Carmelo Montanez (Automatic Generation)    :)

(:Date: June 2, 2005                                :)

(:Purpose: Test of a General Expression      :)

(:with the operands set as follows          :)

(:  operand1 = Empty sequence:)

(:  operator = >=:)

(:  operand2 = Empty sequence:)

(:*******************************************************:)

() >= ()

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/generalexpression496.txt')

!

test_generalexpression497

    | query result |

    query := ' 

(:*******************************************************:)

(:Written By: Carmelo Montanez (Automatic Generation)    :)

(:Date: June 2, 2005                                :)

(:Purpose: Test of a General Expression      :)

(:with the operands set as follows          :)

(:  operand1 = Empty sequence:)

(:  operator = >=:)

(:  operand2 = Atomic Value:)

(:*******************************************************:)

() >= 10000

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/generalexpression497.txt')

!

test_generalexpression498

    | query result |

    query := ' 

(:*******************************************************:)

(:Written By: Carmelo Montanez (Automatic Generation)    :)

(:Date: June 2, 2005                                :)

(:Purpose: Test of a General Expression      :)

(:with the operands set as follows          :)

(:  operand1 = Empty sequence:)

(:  operator = >=:)

(:  operand2 = Sequence of single atomic value:)

(:*******************************************************:)

() >= (50000)

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/generalexpression498.txt')

!

test_generalexpression499

    | query result |

    query := ' 

(:*******************************************************:)

(:Written By: Carmelo Montanez (Automatic Generation)    :)

(:Date: June 2, 2005                                :)

(:Purpose: Test of a General Expression      :)

(:with the operands set as follows          :)

(:  operand1 = Empty sequence:)

(:  operator = >=:)

(:  operand2 = Sequence of single atomic values:)

(:*******************************************************:)

() >= (10000,50000)

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/generalexpression499.txt')

!

test_generalexpression500

    | query result |

    query := ' 

(:*******************************************************:)

(:Written By: Carmelo Montanez (Automatic Generation)    :)

(:Date: June 2, 2005                                :)

(:Purpose: Test of a General Expression      :)

(:with the operands set as follows          :)

(:  operand1 = Empty sequence:)

(:  operator = >=:)

(:  operand2 = Element Constructor:)

(:*******************************************************:)

() >= <a>10000</a>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/generalexpression500.txt')

!

test_generalexpression501

    | query result |

    query := ' 

(:*******************************************************:)

(:Written By: Carmelo Montanez (Automatic Generation)    :)

(:Date: June 2, 2005                                :)

(:Purpose: Test of a General Expression      :)

(:with the operands set as follows          :)

(:  operand1 = Empty sequence:)

(:  operator = >=:)

(:  operand2 = Sequence of single element constructor:)

(:*******************************************************:)

() >= (<a>10000</a>)

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/generalexpression501.txt')

!

test_generalexpression502

    | query result |

    query := ' 

(:*******************************************************:)

(:Written By: Carmelo Montanez (Automatic Generation)    :)

(:Date: June 2, 2005                                :)

(:Purpose: Test of a General Expression      :)

(:with the operands set as follows          :)

(:  operand1 = Empty sequence:)

(:  operator = >=:)

(:  operand2 = Sequence of multiple element constructors:)

(:*******************************************************:)

() >= (<a>10000</a>,<b>50000</b>)

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/generalexpression502.txt')

!

test_generalexpression503

    | query result |

    query := ' 

(:*******************************************************:)

(:Written By: Carmelo Montanez (Automatic Generation)    :)

(:Date: June 2, 2005                                :)

(:Purpose: Test of a General Expression      :)

(:with the operands set as follows          :)

(:  operand1 = Empty sequence:)

(:  operator = >=:)

(:  operand2 = Sequence of single element nodes:)

(:*******************************************************:)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

() >= ($input-context1/works/employee[1]/hours[1])

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/Operators/CompExpr/GenComprsn/GenCompGTEQ/generalexpression503.txt')

!